Bedingtes Löschen, selektiv
15.03.2005 11:53:05
Harald
ich probier nun schon eine geraume Zeit an folgendem Peanut rum.
Sub loesch()
Dim lrow As Long
Sheets("Erfassung").Activate
lrow = Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To lrow
If Range("C" & i).Value <> "o" Then
Range("C" & i, "E" & i, "F" & i, "I" & i).Clearcontents 'Fehlermeldung
End If
Next i
End Sub
Der Code soll Spalte C durchlaufen. Wenn dort kein "o" (wie offen) steht, soll er in dieser Zeile die Inhalte der Spalten C, E, F und I löschen.
Habs schon mit cells (i, 3),(i, 5) etc und ähnlichem rumgebastelt.
In der Zeile mit Fehlermeldung meldet er mir eine falsche Anzahl Argumente oder ungültige Zuweisung einer Eigenschaft.
Danke vorab und schöne Grüße
Harald
Zusatzinfo:
In Spalte C können o, z oder s stehen. Das o kommt grundsätzlich aus einem Workbook_Open Ereignis.
Generell: Zeilen in denen in Spalte C ein o steht, sollen in den Folgemonat übernommen werden.