Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: durchgestrichene Zeilen ausblenden

durchgestrichene Zeilen ausblenden
18.11.2004 13:45:44
M_K
Hallo Leute!
Ich habe ein Makro aufgezeichnet, in der ich verschiedene Excel-Spalten nach betimmten Kriterien gefiltert habe.
Nun möchte ich aber auch noch, daß von den übrig gebliebenen Zeilen genau DIE Zeilen ausgeblendet werden, die durchgestrichen sind (Zelle formatieren Schrift durchgestrichen), denn die sollen ebenfalls nicht angezeigt werden.
Wäre sehr froh wenn mir jemand helfen könnte, Danke schon mal!
M_K
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: durchgestrichene Zeilen ausblenden
WernerB.
Hallo ?,
in diesem Forum bitte mit Real(vor)namen auftreten; siehe dazu bitte auch die "Forums-FAQ"!. Danke!
Wie gefällt Dir das?
Da ich die Position Deines Autofilterbereiches nicht kenne und meine Glaskugel gerade in Reparatur ist, musst Du das nachstehende Makro ggf. selbst anpassen.

Sub M_K()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 2 Step -1
If Rows(i).Hidden = False Then
If Cells(i, 1).Font.Strikethrough = True Then
Rows(i).EntireRow.Hidden = True
End If
End If
Next i
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Durchgestrichene Zeilen in Excel ausblenden


Schritt-für-Schritt-Anleitung

Um in Excel durchgestrichene Zeilen auszublenden, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne die Excel-Datei, in der Du durchgestrichene Zeilen ausblenden möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle im Menü "Einfügen" die Option "Modul", um ein neues Modul zu erstellen.

  4. Kopiere den folgenden Code in das Modul:

    Sub DurchgestricheneZeilenAusblenden()
       Dim laR As Long, i As Long
       laR = Cells(Rows.Count, 1).End(xlUp).Row
       For i = laR To 2 Step -1
           If Rows(i).Hidden = False Then
               If Cells(i, 1).Font.Strikethrough = True Then
                   Rows(i).EntireRow.Hidden = True
               End If
           End If
       Next i
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Drücke ALT + F8, wähle das Makro DurchgestricheneZeilenAusblenden aus und klicke auf "Ausführen".

Jetzt sollten alle durchgestrichenen Zeilen in Deinem Excel-Blatt ausgeblendet sein.


Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Du das Makro korrekt eingefügt hast und dass Du in der richtigen Arbeitsmappe arbeitest.
  • Fehler: Durchgestrichene Zeilen werden nicht ausgeblendet.

    • Lösung: Überprüfe, ob die Zellen tatsächlich mit der Schriftart "Durchgestrichen" formatiert sind. Manchmal kann es sein, dass die Formatierung nicht korrekt angewendet wurde.

Alternative Methoden

Eine weitere Methode, um durchgestrichene Zeilen in Excel auszublenden, ist die Verwendung von Autofilter:

  1. Wähle die gesamte Tabelle aus.
  2. Gehe zu "Daten" und klicke auf "Filter".
  3. Klicke auf den kleinen Pfeil in der Spaltenüberschrift und wähle "Textfilter".
  4. Wähle "Benutzerdefiniertes Filter" und filtere nach durchgestrichenem Text.

Diese Methode ist besonders nützlich, wenn Du Daten manuell filtern möchtest, ohne ein Makro zu verwenden.


Praktische Beispiele

Wenn Du beispielsweise eine Liste von Verkaufszahlen hast und durchgestrichene Zahlen nicht summieren möchtest, kannst Du das oben beschriebene Makro verwenden, um diese schnell auszublenden. So siehst Du nur die relevanten Daten.


Tipps für Profis

  • Nutze die Funktion Workbook_Open, um das Makro automatisch auszuführen, wenn die Datei geöffnet wird. So kannst Du immer die neuesten Daten ohne durchgestrichene Zeilen sehen.
  • Experimentiere mit verschiedenen Filteroptionen in Excel, um Deine Daten noch besser zu organisieren.

FAQ: Häufige Fragen

1. Wie kann ich durchgestrichenen Text in Excel entfernen?
Du kannst dies tun, indem Du die Zelle auswählst und im Menü "Start" die Schriftart-Einstellungen anpasst oder den Shortcut STRG + 5 verwendest, um die Durchstreichung aufzuheben.

2. Kann ich auch nach durchgestrichenen Zahlen filtern?
Ja, das Makro funktioniert auch für durchgestrichene Zahlen. Es filtert alle Zeilen aus, die eine durchgestrichene Schriftart aufweisen, unabhängig davon, ob es sich um Text oder Zahlen handelt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige