habe eine Tabellenblatt mit drei Spalten. In der Spalte C möchte ich die Zellen finden die mit einem bestimmten Buchstaben, in diesem Fall "Q" anfangen. Dieser ist immer eindeutig.
Wenn eine Zelle gefunden wurde, soll diese ausgeschnitten und in die Zelle die darüber liegt eingefügt werden, egal was darin steht. Die ausgeschnittene Zelle soll dann leer bleiben.
Habe es mit diesem Code versucht.
Sub Zelle_finden()
Dim i As Long
With Sheets("Tabelle1")
For i = .Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(i, "C") Like "Q" Then
.Rows(i).Copy Sheets("Tabelle1").Cells(Sheets("Tabelle1").Cells(Rows.Count, "C") _
_
.End(xlUp).Row + 1, "C")
End If
Next
End With
End Sub
Vielen Dank vorab schon mal!