Zeile verschieben Leere Zeile nicht löschen
24.09.2008 23:43:00
super
Habe eine Makro mit dem ich in einer Tabelle was suchen kann und die Zeile wird dann in eine andere tabelle verschoben.
Nun zu meinem Problem wen ich in das suchfeld nichts eingebe oder abbreche wird eine Zeile die leer ist in die tabelle2 verschoben das soll aber nicht so sein und ich bekomme keine Lösung.
Sub Zeile_verschieben()
Wert = InputBox(prompt:="Suchbegriff eingeben")
Set w = Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not w Is Nothing Then
z = w(1, 1).Row
lz = Sheets("ergebnis").Cells(65536, 1).End(xlUp).Row + 1
Rows(z).Cut Sheets("ergebnis").Cells(lz, 1)
Rows(z).Delete Shift:=xlUp
Else
MsgBox "Suchbegriff nicht vorhanden"
End If
End Sub
Ich bedanke mioch schon mal für eure hilfe
Anzeige