String suchen, ausschneiden + einfügen
20.09.2018 11:12:37
Georg
ich habe einen Text, welcher immer in Spalte A zu finden ist, allerdings kann die Zeile unterschiedlich sein.
Ich möchte den String suchen, und dann ist der Treffer beispielsweise in A37 und soll nach E37 verschoben werden.
Ich habe angefangen wie folgt:
Was ich nicht hinkriege, ist die entsprechende Zeile zu bestimmen, in der der String gefunden wird.
Danke für die Tipps.
Sub Paste()
For i = 1 To objWorkbook.Worksheets.Count
With objWorkbook.Worksheets(i)
strString = "Bitte senden usw..."
Set rngCell = Columns(1).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
rngCell.Cut
Ab hier weiß ich nicht wirklich weiter....
End Sub
Anzeige