VBA Zellen löschen mit Bedingung
24.03.2013 13:04:36
WalterK
den folgenden Code habe ich in der Recherche gefunden, er entfernt die Zeilen, bei denen die Zelle in Spalte W leer ist.
Benötige Hilfe für folgende Änderung im Code:
1.) von "W6:W" & LzL sollte er nicht nur die leeren Zellen sondern auch die Zellen mit einer eingetragenen 0 berücksichtigen und
2.) er sollte nicht die ganze Zeile entfernen sondern nur die Zellen in den Spalten V bis AI
Sub TestBereichLöschen()
Dim wks1E As Worksheet
Dim LzL As Long
Dim rng As Range
Set wks1E = Worksheets("1.Einstellungen_eingeben")
LzL = Application.Max(6, wks1E.Cells(Rows.Count, 12).End(xlUp).Row)
On Error Resume Next
Set rng = wks1E.Range("W6:W" & LzL).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rng Is Nothing Then rng.EntireRow.Delete
Set rng = Nothing
End Sub
Anzeige