Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare in Selection löschen

Forumthread: Kommentare in Selection löschen

Kommentare in Selection löschen
24.10.2012 18:21:21
KlausF
Hallo Forum,
mit folgendem Makro lösche ich alle Kommentare einer Seite:
Sub TEST()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
cmt.Delete
Next
End Sub
Was muss ich ändern, damit ich nur Kommentare im selektiertem Bereich löschen kann?
For Each cmt In Selection.Comments
funktioniert nicht.
Gruß
Klaus

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare in Selection löschen
24.10.2012 18:33:43
ransi
HAllo
Da fäallt mir nur ein die Zellen oder die Kommentare einzeln abzuklappern.
Teste mal selber:
Option Explicit


Public Sub machs1()
    Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        If Not Intersect(cmt.Parent, Selection) Is Nothing Then cmt.Delete
    Next
End Sub


Public Sub machs2()
    Dim zelle As Range
    For Each zelle In Selection.Cells
        With zelle
            If Not .Comment Is Nothing Then .Comment.Delete
        End With
    Next
End Sub


ransi

Anzeige
Klappt!
24.10.2012 18:39:19
KlausF
Hallo Ransi,
vielen Dank, machs2 klappt wunderbar ...
Gruß
Klaus

AW: Kommentare in Selection löschen
24.10.2012 18:34:10
Matze,Matthias
Selection.ClearComments

Geht auch
24.10.2012 18:43:08
KlausF
Hallo Matze,
auch Dir ein Dankeschön ...
(klappt auch)
Gruß
Klaus
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige