In einer Excelmappe möchte ich mittels Makro auf mehreren Blättern in einem jeweils bestimmten Zellbereich den Zellwert (nicht das Format!) und auch allfällig vorhandene Kommentare löschen.
Hab das wie nachfolgend versucht, dabei passiert aber folgendes: Beginne ich im ersten Blatt mit ClearContents, löscht es die Inhalte, nicht aber die Kommentare. Beginne ich mit ClearComments, löscht es die Kommentare, aber nicht mehr die Inhalte.
Weiss einer von euch Rat?
Vielen Dank im Voraus :-)
Debian
Sub ClearContents()
Dim Antwort
Anwort = MsgBox("Moechten Sie wirklich alle Eintragungen im Dienstplan dieser Mappe loeschen?", _
vbInformation + vbYesNo, "Loeschen Ja oder Nein.")
If Anwort = vbNo Then Exit Sub
Application.ScreenUpdating = False
Worksheets("Januar").Range("D3:AH80").ClearComments
Worksheets("Februar").Range("D3:AH80").ClearComments
Worksheets("Maerz").Range("D3:AH80").ClearComments
Worksheets("April").Range("D3:AH80").ClearComments
Worksheets("Mai").Range("D3:AH80").ClearComments
Worksheets("Juni").Range("D3:AH80").ClearComments
Worksheets("Juli").Range("D3:AH80").ClearComments
Worksheets("August").Range("D3:AH80").ClearComments
Worksheets("September").Range("D3:AH80").ClearComments
Worksheets("Oktober").Range("D3:AH80").ClearComments
Worksheets("November").Range("D3:AH80").ClearComments
Worksheets("Dezember").Range("D3:AH80").ClearComments
Worksheets("Januar").Range("D3:AH80").ClearContents
Worksheets("Februar").Range("D3:AH80").ClearContents
Worksheets("Maerz").Range("D3:AH80").ClearContents
Worksheets("April").Range("D3:AH80").ClearContents
Worksheets("Mai").Range("D3:AH80").ClearContents
Worksheets("Juni").Range("D3:AH80").ClearContents
Worksheets("Juli").Range("D3:AH80").ClearContents
Worksheets("August").Range("D3:AH80").ClearContents
Worksheets("September").Range("D3:AH80").ClearContents
Worksheets("Oktober").Range("D3:AH80").ClearContents
Worksheets("November").Range("D3:AH80").ClearContents
Worksheets("Dezember").Range("D3:AH80").ClearContents
End Sub