InStr mit If kombinieren
03.05.2019 10:35:26
Jean-Pierre
Leider stosse ich wieder einmal an meine Grenzen. Ich habe eine Liste mit 6 Spalten und zirka 500 Zeilen. Jetzt möchte ich, dass der Inhalt von einer Zelle der Spalte E nach Spalte F kopiert wird, wenn der Text in Spalte B "L2" (Teil eines Wortes) beinhaltet. Dies soll in allen 500 Zeilen geschehen. Wenn in der Spalte B der Text "L2" nicht vorkommt, soll nichts passieren.
Untenstehend könnt ihr meinen Code sehen. wenn ich diesen auslöse, passiert gar nichts. Es passiert nichts in meinem File und es erscheint auch keine Fehlermeldung.
Ich bin euch für eure Hilfe enorm Dankbar!
Gruss Jean-Pierre
___________________________________________
Sub test2()
Dim Zelle As Long
Dim Zellneu As Long
Dim MeineSuche As String
Dim b As Long
With Sheets("Liste")
For b = 600 To 7
Zelle = Cells(b, 2).Value
Zellneu = Cells(Zelle, 4).Value
MeineSuche = "L2"
If InStr(Zelle, MeineSuche, vbTextCompare) = 0 Then
Cells(Zelle, 3).Cut (Zellneu)
End If
Next b
End With
End Sub