Kommentare löschen
23.12.2005 15:01:30
Leitz
Ich habe ein Macro zum löschen von Kommentaren:
Sub KommentarLöschen()
Call Initialisierung
Dim rng As Range
Windows(strNameListe).Activate
Sheets("Auftragsstand").Activate
On Error Resume Next
Call BlattschutzAus
Selection.SpecialCells(xlCellTypeComments).Select
With Selection
.ClearComments
.Interior.ColorIndex = xlColorIndexNone
End With
End Sub
Leider löscht mir dieses Macro immer alle Kommentare der Tabelle wenn ich es über VBA aufrufe.
Ich habe die Kommentare immer in der Spalte C stehen und die Kommentare sollen nur dann gelöscht werden wenn sich sich in den Bereich der Filterung der Spalte K befinden. Alle anderen Kommentare sollen bleiben.
Kann mir jemand von Euch dabei helfen.
Bitte um Hilfe
Leitz G.