Brauche dringend Hilfe bei einem Makro
27.07.2005 14:06:31
Matthias
folgende Situation:
ich habe einen Makro-Teil der in der Spalte A meiner Tabelle
nach der Zahl "1" sucht. Wenn es eine gefunden hat, löscht es diese.
Ich möchte nun gerne, dass das Makro befor es den Eintrag löscht, die gesamte Zeile kopiert und in ein neues Tabellenblatt einfügt.
Hier mein VBA-Code bis jetzt:
_________________________________________________________
Public
Sub Finden()
Range("A1").Select
While IsEmpty(ActiveCell) = False
If ActiveCell.Value = 1 Then
Rows(ActiveCell.Row()).Select
ActiveCell.Offset(0, 9).Select
Selection.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
_________________________________________________________
Schon mal vielen Dank im vorraus.
Matthias