Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon dvdh vom 29.05.2019, 14:08 Options
Leere Zeilen automatisch loeschen
hallo zusammen,
ich habe eine lange tabelle und moechte automatisch alle leeren zeilen herausloeschen. bisher mache ich dies ueber die filter funktion "blanks" und loesche diese dann manuell.
aber gibt es eine elegantere moeglichkeit?
gruss
dirk
ich habe eine lange tabelle und moechte automatisch alle leeren zeilen herausloeschen. bisher mache ich dies ueber die filter funktion "blanks" und loesche diese dann manuell.
aber gibt es eine elegantere moeglichkeit?
gruss
dirk
Antwort 1 von Hajo_Zi vom 29.05.2019, 14:26 Options
Hallo Dirk,
mittels Makro.
Sub Leerzeilen_loeschen()
' alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(Rows(LoI)) <> ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub
Gruß Hajo
mittels Makro.
Sub Leerzeilen_loeschen()
' alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Application.WorksheetFunction.CountA(Rows(LoI)) <> ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub
Gruß Hajo
Ähnliche Themen
leere Festplattenbereiche loeschen
Tomschi 20.06.2007 - 131 Hits - 3 Antworten
mehrere Zeilen in Excel einfügen
Arnsen1 07.08.2007 - 119 Hits - 1 Antwort
leere Spalten automatisch ausblenden
bender70 21.03.2009 - 316 Hits - 4 Antworten
Bestimmte Zeilen in einer Tabelle loeschen
Woga 24.04.2008 - 53 Hits - 8 Antworten
Zeilen mit leeren Zellen löschen
brs 16.06.2008 - 300 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
