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

Forumthread: Nach Autofilter > ausgeblendete Zeilen löschen

Nach Autofilter > ausgeblendete Zeilen löschen
Stef@n
Hallo Excel-Freunde
ich habe eine sehr große Datei und möchte daraus verschiedene einzelne Dateien erzeugen.
Dazu filter ich eine Spalte in die Liste nach "enthält nicht" und dann eine Wert (Name einer Gruppe)
So erhalte ich eine Liste aller Zeilen, die zu dieser Gruppe gehört
So: nun will ich diese Datei speichern unter dem Namen
Dateien_der_Gruppe_xx
und xx soll der Name der Gruppe sein
und vor dem Speichern sollen alle ausgeblendeten Zeilen gelöscht werden.
Da ich seehr viele Dateien erzeugen muss:
Kann man das per Makro machen ?
Den Filter setzen will ich manuell selber machen.
Genial wäre natürlich, wenn die die Liste nach 2 verschiedenen Spalten filter,
dass der Dateiname dann diese beiden Filter mit "aufnimmt" - muss aber nicht unbedingt
Freu mich auf einen Tip
Gruß
Stef@n
Anzeige
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 14:47:13
guentherh
Hallo Stef@n,
hier mal ein Teil der die ausgeblendeten Zeilen löscht.
Sub Test
Dim i
For i = ActiveSheet.UsedRange.Row To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows. _
Count
'Each Reihchen In activesheet.UsedRange.Rows
If ActiveSheet.Rows(i).Hidden Then
Application.DisplayAlerts = False
ActiveSheet.Rows(i).Delete
Application.DisplayAlerts = True
i = i - 1
End If
Next
End Sub
den Filter auslesen um einen Dateinamen zu erzeugen, krieg ich gerade nicht hin.
Gruß,
Günther
Anzeige
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 15:47:08
Tino
Hallo,
kopiere doch einfach die sichtbaren Daten in eine neue xl Datei,
dann sind die ausgeblendetet Zeilen verschwunden.
Die neue Datei mit speichern unter abspeichern.
Beispiel:
Dim NewWB As Workbook
Set NewWB = Workbooks.Add
With ThisWorkbook.Sheets("Tabelle1")
.UsedRange.Copy NewWB.Sheets(1).Cells(1, 1)
End With
Gruß Tino
Anzeige
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 18:55:18
Stef@n
Sorry jens
mein Fehler - ich habe zu spät mein positives Feedback gegeben
Verzeihung ! War nicht bös oder undankbar gemeint !
Besten Gruß
Stef@n
Anzeige
AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 19:32:09
Hajo_Zi
Hallo Stefan,
was ist an dem Beitrag offen. Das kann ich nicht aus Deinem Beitrag lesen?

AW: Nach Autofilter > ausgeblendete Zeilen löschen
24.04.2012 23:24:35
Stef@n
Hallo Hajo
verzeih mir, daß ich wohl beim schreiben das Ffeld "Frage noch offen" angeklickt habe.
Ich werde anhand der beiden Antworten meine Lösung (versuchen) herbeizuführen.
Wie immer (von mir) beschrieben: ich lerne dazu !
Und das ist das Geniale an diesem Forum !
Verzeich Fehler - es sind Lern-Phasen
So wie ich es meiner Tochter IMMER sage:
DU MACHST KEINE FEHLER - DU LERNST !
Hajo: Du gibst immer wieder seeeehr gute Hinweise
und darüber freu ich mich immer sehr - weil sie sehr konstruktiv - und durchaus kritisch sind -
... aber immer zielführend ..
Bedenke nur eines: DEIN KNOW-HOW (und das ist ja mehr als genial) hat nicht jeder
... ich "spreche" da aus eigener Erfahrung !!
Ich schätze Deine Hinweise immer sehr
Hajo / Beverly ... gehören für mich IMMER zu den TOP-Antworten (bei denen ich IMMER lerne) dazu
Deswegen: verzeih manche "verworrene anfragen"
Das LERNEN geht manchmal nicht so schnell
Besten Gruß an DICH
Stef@n
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Ausgeblendete Zeilen in Excel Löschen: So Geht's


Schritt-für-Schritt-Anleitung

Um ausgeblendete Zeilen in Excel zu löschen, kannst du die folgenden Schritte befolgen:

  1. Öffne deine Excel-Datei und wähle das Arbeitsblatt aus, auf dem du die ausgeblendeten Zeilen löschen möchtest.

  2. Setze den Autofilter auf die Spalte, die du filtern möchtest. Gehe dazu auf das Menü „Daten“ und klicke auf „Filter“.

  3. Filtere deine Daten, um die gewünschten Zeilen anzuzeigen. Nutze dabei „enthält nicht“ oder andere Filteroptionen.

  4. Öffne den VBA-Editor mit ALT + F11.

  5. Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (deinDateiname)“ > Einfügen > Modul.

  6. Kopiere den folgenden VBA-Code in das Modul:

    Sub ausgeblendeteZeilenLöschen()
       Dim i As Long
       For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
           If ActiveSheet.Rows(i).Hidden Then
               ActiveSheet.Rows(i).Delete
           End If
       Next i
    End Sub
  7. Schließe den VBA-Editor und kehre zu Excel zurück.

  8. Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“ > wähle ausgeblendeteZeilenLöschen und klicke auf „Ausführen“.

Damit werden alle ausgeblendeten Zeilen gelöscht.


Häufige Fehler und Lösungen

  • Fehler: Makro kann nicht ausgeführt werden

    • Lösung: Stelle sicher, dass die Makros in den Excel-Optionen aktiviert sind.
  • Fehler: Einige Zeilen werden nicht gelöscht

    • Lösung: Überprüfe, ob die Zeilen tatsächlich ausgeblendet sind oder ob der Filter möglicherweise nicht korrekt gesetzt wurde.

Alternative Methoden

Falls du lieber ohne VBA arbeiten möchtest, gibt es auch alternative Methoden:

  • Kopiere sichtbare Zellen: Markiere die gesamte Tabelle und kopiere nur die sichtbaren Zellen in ein neues Arbeitsblatt:

    Dim NewWB As Workbook
    Set NewWB = Workbooks.Add
    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy NewWB.Sheets(1).Cells(1, 1)
  • Manuelles Löschen: Filtere deine Daten und lösche die ausgeblendeten Zeilen manuell.


Praktische Beispiele

  1. Beispiel für das Löschen ausgeblendeter Zeilen in Excel 365:

    • Nutze den oben genannten VBA-Code. Er funktioniert sowohl in Excel 2016 als auch in Excel 365.
  2. Beispiel für das Löschen gefilterter Daten:

    • Verwende den Autofilter, um bestimmte Daten anzuzeigen, und führe das Makro aus, um alle nicht sichtbaren Zeilen zu löschen.

Tipps für Profis

  • Nutze Tastenkombinationen: Um schneller zu arbeiten, gewöhne dir an, die Tastenkombinationen für das Filtern und Ausführen von Makros zu nutzen.
  • Speichere deine Makros: Halte deine Makros in einer persönlichen Makroarbeitsmappe, um sie in allen neuen Excel-Dateien verwenden zu können.
  • Teste in einer Kopie: Bevor du das Makro auf wichtige Daten anwendest, teste es in einer Kopie deiner Datei.

FAQ: Häufige Fragen

1. Wie kann ich nur sichtbare Zellen in Excel löschen?
Du kannst die Funktion „Inhalte auswählen“ verwenden, um nur die sichtbaren Zellen zu markieren und dann zu löschen.

2. Funktioniert das auch in Excel 2016?
Ja, der VBA-Code funktioniert sowohl in Excel 2016 als auch in Excel 365. Achte darauf, dass du die richtigen Schritte befolgst.

3. Kann ich den Filter nach dem Löschen wiederherstellen?
Ja, du kannst den Filter jederzeit wieder aktivieren, um die Daten erneut anzuzeigen.

4. Wie lösche ich ausgeblendete Spalten in Excel?
Ähnlich wie bei den Zeilen, kannst du den VBA-Code anpassen, um ausgeblendete Spalten zu löschen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige