Hallo zusammen,
ich möchte folgenden Code anpassen:
...
For i = 2 To 1002
'i = Range des WS, das durchsucht wird
If Sheets("DATEN").Range("I" & i) = Sheets("SONSTIGE").Range("B2") Then
Sheets("DATEN").Range("B" & i & ":S" & i).Copy _
Destination:=Sheets("SONSTIGE").Range("A" & J)
J = J + 1
End If
und zwar so, daß nicht mehr auf .Range("B2") geprüft wird, sondern auf vorher festgelegte Ziffern:
...
If Sheets("DATEN").Range("I" & i) "ZRE" Or "B2" Or "FV" Then
...
Leider meldet sich Excel mit Typen Unverträglichkeit.
Könnt Ihr mir weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten