Zeilen löschen über Userform
23.12.2003 14:52:11
michael
Ich habe mir eine Maske zusammengebastelt. Wie kann ich mit einem CommandButton die ganze aktivierte Zeile so lösche, daß keine leere Zeile entsteht??
Daten ändere ich mit diesem Befehl.
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Activate
z = 3
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.TextBox1
Cells(z, 2) = Me.TextBox2
Range("A3:K65536").Sort Key1:=Range("A3") 'Sortierung
End Sub
Danke Michael