Nur ganze Zeilen löschen
11.09.2007 10:32:14
Frank
hab mal wieder ein kleines Problem, ich möchte mit dem folgenden Makro nur komplette markierte Zeilen löschen. Funktioniert ja auch einwandfrei wenn die Zeile markiert ist. Wenn aber nur eine oder mehrere Zellen markiert sind werden die zellen nach oben verschoben. Aber da ich die Datei weitergeben will möchte ich das gerne wasserdicht haben. Ich bräuchte also eine Sicherheitsabfrage beim klick auf den Button, wenn z. B. nur eine oder mehrere Zellen der Zeile markiert sind. Text "Bitte vorm Löschen die gesamte Zeile markieren"
Ich denke, dass ist für Euch keine echte Herrausforderung und Danke schon im Vorraus!
Private Sub CommandButton2_Click()
Selection.Delete Shift:=xlUp
Range("A2").Select
End Sub