Guten Tag zusammen,
ich habe eine Tabelle in der viele Datensätze sind. Ich suche allerdings noch eine Makro welches mir alle zeilen löscht in denen in Spalte A kein Wert steht. Ich habe dazu schon einiges gefunden allerdings funktionieren diese Codes bei mir nicht, da meistens einfach gar nichts passiert. Am besten über die Schaltfläche.
ich habe eine Tabelle in der viele Datensätze sind. Ich suche allerdings noch eine Makro welches mir alle zeilen löscht in denen in Spalte A kein Wert steht. Ich habe dazu schon einiges gefunden allerdings funktionieren diese Codes bei mir nicht, da meistens einfach gar nichts passiert. Am besten über die Schaltfläche.
Code:
Public Sub LeereRaus()
Dim WkSh As Worksheet
Dim lLetzte As Long
Dim lZeile As Long
Application.ScreenUpdating = False
Set WkSh = Worksheets("Tabelle1") ' <== den Tabellenblattnamen ggf. anpassen !!!
With WkSh
lLetzte = WkSh.Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = lLetzte To 1
If WkSh.Cells(lZeile, 1).Value = "" Then
WkSh.Rows(lZeile).Delete Shift:=xlUp
End If
Next lZeile
End With
Application.ScreenUpdating = True
End Sub
Code:
Sub Makro3()
Columns(1).Insert
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(RC[1]="""",true,Row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns(1).Delete
End Sub
Code:
Sub Zeilen_loeschen()
Dim loeschen As Double
For loeschen = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 1).Value = "" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub