Hallo VBA Profis,
ich möchte innerhalb einer Schleife für jede Zeile prüfen ob die jeweiligen Zellen in Spalten K-U leer sind.
Leider bin ich zu doof um das in einer Zeile so zu formulieren, daß es funktioniert.
Habe es folgendermaßen versucht:
****************************************************************************************************************************************************
Sub NormaleTeileWeg()
On Error GoTo ErrorTeileWeg
Range("A3").Select
ZN = ActiveCell
Do While ZN > 0
' If IsEmpty(Range(ActiveCell.Offset(0, 10), ActiveCell.Offset(0, 20))) = True Then
ActiveCell.EntireRow.Delete
Else: ActiveCell.Offset(1, 0).Activate
End If
ZN = ActiveCell
Loop
GoTo Ende
ErrorTeileWeg: MsgBox ("kann normale Teil nicht löschen"), vbMsgBoxSetForeground
End
Ende:
End Sub
***************************************************************************************************************************************************
Kann mir jemand ein Tip geben, wie ich das machen kann, ohne den Wert jeder einzelnen Zelle zu prüfen ?
Für eure Hilfe vielen dank im Voraus
Gruß Oliver