ich habe eine Tabelle wie folgt strukturiert:
| ||||||||||||||||||||||||||||||||||||||||
und folgenden Code mit dem ich zur Hälfte Probleme habe:
Sub Del_0_Zeile()
Dim iRow As Long
Application.ScreenUpdating = False
For iRow = Cells(65536, 6).End(xlUp).Row To 1 Step -1
If Cells(iRow, 6) = 0 Then
Rows(iRow).EntireRow.Delete Shift:=xlUp
End If
If Cells(iRow, 6) = 1 Then
Rows(iRow).Offset(0, -4).ClearContents 'XXXXXXX wie muß der Syntax sein? XXXXXXX
End If
Next iRow
Application.ScreenUpdating = True
End Sub
Folgendes möchte ich erreichen:
- wenn in Spalte "F" eine "0" Null gefunden wird, soll die ganze Zeile gelöscht werden. Dies funktioniert!
- gleichzeitig, wenn möglich, soll, wenn in Spalte "F" eine "1" gefunden wird, in der selben Zeile, Spalte "C" der Wert gelöscht werden.
Diesen Teil bekomme ich leider nicht hin!
Könnte mir bitte hier jemand unter die Arme greifen? ;-)
Gruß Korl