clearcontents mit Bedingungen die Zweite
18.02.2004 09:58:58
Harald
in meinem vorgehenden Beitrag habe ich ein weiteres Problemchen vergessen.
Mein Lösungsansatz funktioniert leider nicht.
Es sollen Zeileninhalte gelöscht werden, wenn die Datei mir in Spalte B (Schicht) was anderes als 1, 2 oder 3 zeigt.
Sub Makro1()
i = 1
Do
i = i + 1
If Cells(i, 2) < 1 Then 'Spalte Schicht Wert kleiner 1
ElseIf Cells(i, 2) > 3 Then 'Spalte Schicht Wert größer 3
Rows(i).ClearContents
End If
Loop Until Cells(i + 1, 2) = ""
End Sub
Das tut es nicht ganz wie erwünscht. Zeileninhalte Schicht 0 werden nicht gelöscht. was ist falsch ?
Besten Gruß
Harald