AW: oder vielleicht mit INSTR ? ;-)
14.08.2007 14:42:41
Max
Hallo Zusammen,
ich habe mir jetzt folgendes gebastelt.
Sub Inhalte_löschen_3()
Dim LZ As Long
Dim X As Long
LZ = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For X = LZ To 2 Step -1
If ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(47, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(48, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(49, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(50, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(51, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(52, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(53, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(54, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(55, 2) Or _
ActiveSheet.Cells(X, 8).Value = Sheets("SELECTION OVERVIEW").Cells(56, 2) Then
For DE = 21 To 31
Cells(X, DE).ClearContents
Next
End If
Next X
End Sub
Aber das klappt nicht richtig.
wie kann mir jemand helfen?