title image


Smiley Re: Zellen markieren und löschen
Versuch es einmal damit !



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.Rows("1:1").EntireRow.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: