Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige