ich habe am Samstag schon mal von meinem Problem geschrieben, ich wollte nämlich Nach einem Begriff suchen lassen und dann in Tabelle2 verschieben lassen. Es hat mir auch netterweiser jemand geschrieben. Das Problem ist nur, das das Programm nur eine Zeile verschiebt, obwohl es noch weitere gibt die natürlich auch auf die Tabelle2 kommen sollen, Wer kann mir weiterhelfen mit dem Programm?
Sub Zeile_verschieben()
Wert = InputBox(prompt:="Suchbegriff eigeben")
Set w = Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not w Is Nothing Then
z = w(1, 1).Row
lz = Sheets("Tabelle2").Cells(65536, 1).End(xlUp).Row + 1
Rows(z).Cut Sheets("Tabelle2").Cells(lz, 1)
Rows(z).Delete Shift:=xlUp
Else
MsgBox "Suchbegriff nicht vorhanden"
End If
End Sub
Gruss Silke