Range Funktion
01.04.2020 16:24:30
Luca
ich habe da mal eine Frage. Ich möchte einen bestimmten Zellbereich der sich innerhalb einer Zeile befindet durchsuchen. Wenn dieser Zellbereich dann einen bestimmten Text enthält soll dieser kopiert werden.
Da ich in der Arbeitsmappe jede Zeile durchsuchen möchte, würde ich es bevorzugen mit Variablen zu arbeiten.
Mein bisheriger Versuch ist leider fehlgeschlagen:
If ZK_N73_AFO200.Value = False And ZK_N73_AFO300 = True And HEAT_MF170_AFO300 = True And _
HEAT_MR170_AFO300 = True And HEAT_XLR_AFO400 = True And HEAT_XLR_AFO50 = True And _
KGH_S85_AFO300 = True And KGH_S85_AFO600 = True Then
For i = 2 To 2000
If Not Range("K" & i & ":N" & i).Value = "HEAT MF170, AFO 300" And Range("K" & i & ":N" & i) _
_
_
.Value = "HEAT MR170, AFO 300" And Range("K" & i & ":N" & i).Value = "HEAT XLR220, AFO 400" And _
_
Range("K" & i & ":N" & i).Value = "HEAT XLR220, AFO 50" And Range("K" & i & ":N" & i).Value = " _
KGH S85, AFO 300" And Range("K" & i & ":N" & i).Value = "KGH S85, AFO 600" And Range("K" & i & ":N" & i).Value = "ZK N73, AFO 300" Then
Rows(i).Select
Selection.Copy
Sheets("Auslagerliste").Activate
Cells(last, 1).Insert
End If
Next
End If
Anzeige