Syntaxproblem in VBA
06.01.2005 12:12:39
Torsten
hier im Forum habe ich folgendes Makro gefunden zum Löschen von Zeilen, in denen in der aktivierten Spalte Zellen mit "0" gefunden werden.
Sub Null_Löschen()
Dim i%
If MsgBox("Sollen die Leer-/Nullzeilen jetzt gelöscht werden?", vbOKCancel) = vbOK Then
For i = Cells(65536, ActiveCell.Column).End(xlUp).Row To ActiveCell.Row Step -1
If Cells(i, ActiveCell.Column).Value = 0 Then
Rows(i).Delete
End If
Next
Else
End If
End Sub
Nun möchte ich den Code so erweitern, daß Excel nur dann die Zeile löscht, wenn in der gleichen Zeile eine Spalte weiter auch der Wert "0" steht. Ich habe es mit folgender Ergänzung versucht, komme aber nicht weiter:
If Cells(i, ActiveCell.Column).Value = 0 And (Activecell.Offset(0,1)).Value = 0 Then..
(Fehlermeldung: Erwartet: Then oder GoTo (Excel markiert den Punkt vor dem 2. "Value")
Könnt Ihr mir weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten