Hallo zusammen,
ich möchte, dass mit Klick auf eine Schaltfläche alle Zeilen gelöscht werden, bei denen der Spaltenwert der Spalte A leer ist. Kann mir jemand auf die schnelle vielleicht den entsprechenden VBA-Code schreiben?
Beste Grüße
Aleksej Jasincuk
Hallo, :19:
Code:
Option Explicit
Public Sub Main()
Application.ScreenUpdating = False
On Error Resume Next
With Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Für die gerade aktive Tabelle ab Zeile 2. :21:
Funktioniert iwie noch nicht, Fehlermeldung: Fehler beim kompilieren, Variable nicht definiert und die erste Zeile wird markiert
Hi,
Code:
Sub deleteARows()
On Error Resume Next
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
und ich nehme an das du noch weiteren Code hast...
darum habe ich mal Option Explicit weggelassen...
Nur als kleiner Hinweis, lese nach was Option Explicit bedeutet!
Nicht der Code von Case funktioniert nicht, deiner gehört nachgebessert. :)