title image


Smiley Re: Zellen markieren und löschen
Sorry, für Spalte sieht es so aus...



Sub Löschen()

Dim i As Integer

i = MsgBox("Sollen alle Daten gelöscht werden?", _

36, "Rückmeldung")

If i = 7 Then Exit Sub

ActiveCell.Columns("A:A").EntireColumn.Select

Application.CutCopyMode = False

Selection.ClearContents

ActiveCell.Select

End Sub
Schöne Grüsse aus Thüringen sendet Majo1435!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: