Habe unteres Makro zum löschen von Werten,Kommentare usw.
Nur bei "Sheets(10).Range("C3.AG154").Select" habe ich einen Fehler.
Könnte mir bitte jemand helfen ?
Danke & Gruß
Heinz
Sub Alles_löschen()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If MsgBox("Sollen alle Einträge gelöscht werden ?", vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets(10).Range("C3.AG154").Select
Selection.ClearContents
Selection.ClearComments
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Range("AK3").Select
MsgBox "Alles gelöscht", vbOKOnly
Application.ScreenUpdating = True
End Sub