Leere Zeilen löschen

Hallo zusammen,
In meinem Excelfile habe ich mehrere Spalten und das Thema ist das automatische Löschen von leeren Zeilen.
Für die Spalte A habe ich folgende Verlinkung (=WENN(ISTZAHL(SUCHEN("V1";Einsatzjournal!A5));Einsatzjournal!A5;"") zu einem anderen Tabellenblatt erstellt und somit schreibt es mir alle Werte in die Zeile, wo V1 enthalten ist. Falls dies nicht der Fall wird kein Wert ausgegeben.
Bsp:
Ist Lösung
Zeile 1 V1 V1
Zeile 2 V1
Zeile 3 V1 V1
Zeile 4
Zeile 5 V1
Nun habe ich viele Zeilen, wo kein Wert ausgegeben wird und diese Zeilen würde ich gerne automatisch löschen um nicht immer über den Autofilter zu arbeiten.
Meine Kenntnisse im Excel sind sehr bescheiden und daher würde ich mich extrem über Hilfe freuen.
Vielen Dank und gruss

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Leerzeilenlöschen() ' Leerzeilen löschen einschließlich der Zeilen die entstehen wenn Zeilen am ende ' gelöscht werden, auch Leerzeilen in der Tabelle werden gelöscht ' von Wolf.W.Radzinski ' es wurden nicht alle Leerzeilen in einer Datei erkannt ' darum Ergänzung angepast nach Zeilen mit Leerstellen löschen On Error Resume Next Application.ScreenUpdating = False Dim r As Range Dim anz As Long Dim c_ges As Long Dim col As New Collection c_ges = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1 For Each r In ActiveSheet.UsedRange.EntireRow anz = 0 '******** Hajo.Ziplies@web.de Dim I As Byte Dim L As Byte L = 0 For I = 1 To 20 If Trim(Cells(r.Row, I)) "" Then L = 1 Exit For End If Next I If L = 0 Then col.Add r 'anz = r.SpecialCells(xlCellTypeBlanks).Count 'If anz >= c_ges Then col.Add r Next For Each r In col r.Delete Next Application.ScreenUpdating = True End Sub

Hallo ste,
hier mal ein Beispiel, wie man für solche Zwecke sinnvoll das ListObject anwendet,
welches es seit Excel_2003 gibt!


Sub LoeschenLeereZeilen()
Dim lstObj As ListObject, ws As Worksheet, rg As Range
Dim i1 As Integer, i2 As Integer
'Tabelle mit den Formeln (hier anpassen)
Set ws = Tabelle2
'ListObject definieren
Set lstObj = ws.ListObjects.Add(xlSrcRange, ws.UsedRange, , xlYes)
With lstObj
.Range.Select
'automatische Farbvergabe entfernen
.TableStyle = ""
'Anzahl der Spalten
i1 = .Range.Columns.Count
For i2 = 1 To i1
'für jede Spalte den Filter setzen
.Range.AutoFilter Field:=i2, Criteria1:="="
Next i2
End With
On Error Resume Next
'ermitteln der sichtbaten zellen im ListObject
Set rg = lstObj.DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
'Cursor auf 1. Zelle des ListObjekts setzen
lstObj.HeaderRowRange.Cells(1, 1).Select
'Listobject in normalen Bereich zurückwandeln
lstObj.Unlist
Selection.Cells(1, 1).Select
If Not (rg Is Nothing) Then
Debug.Print rg.EntireRow.Address
'leere Zeilen löschen
rg.EntireRow.Delete
End If
'definierte Objekte entfernen
Set lstObj = Nothing
Set ws = Nothing
Set rg = Nothing
End Sub

Gruß von Luschi
aus klein_Paris

Sub del() Application.ScreenUpdating = False With Columns(1).SpecialCells(xlCellTypeFormulas).Offset(, 1000) .FormulaR1C1 = "=if(len(rc1),""x"",#n/a)" .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete .ClearContents End With End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leere Zeilen löschen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread