Wort suchen und Wörter darunter einfügen
10.01.2019 09:38:23
SebastianMB
habe ein für euch vermutlich einfaches Problem.
Ich habe eine sehr große Menge Wörter in Spalte B. Jetzt soll die Spalte B nach dem Wort "test" durchsucht werden. Wenn dieses gefunden wird, soll in die Zellen darunter die Wörter "test1" und "test2" geschrieben werden und in die Zellen neben "test1"/"test2", das Wort Standard geschrieben werden.
Das ganz soll so aussehen:
in einem ersten Schritt habe ich es hinbekommen, das unter das gesuchte Wort zwei leere Zeilen eingefügt werden. Vielleicht kann man darauf aufbauen. Siehe Code:
Sub test()
Dim lngI As Long
With ActiveSheet
For lngI = .Range("B65536").End(xlUp).Row To 1 Step -1
If .Cells(lngI, 2).Value = "test)" Then
.Rows(lngI + 1 & ":" & lngI + 2).Insert Shift:=xlDown
End If
Next lngI
End With
End Sub
Liebe Grüße