Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Kommentare in Bereich einbelnden

Betrifft: Kommentare in Bereich einbelnden von: nightcab
Geschrieben am: 01.11.2020 19:24:08

Hallo Leute!
Ich möchte in dem Breich P100:Q1900 per VBA alle Kommentare einblenden.

So...


  Range("P100:Q1900").Select
  Application.DisplayCommentIndicator = xlCommentAndIndicator
...gehts mal nicht. Weiß vielleicht wer wie man das hinbekommt?

Danke im Voraus
nightcab

Betrifft: AW: Kommentare in Bereich einbelnden
von: GerdL
Geschrieben am: 01.11.2020 20:26:27

Moin,
probiere mal:
Sub Unit()
Range("P100:Q1900").Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

Gruß Gerd

Betrifft: AW: Kommentare in Bereich einbelnden
von: Luschi
Geschrieben am: 02.11.2020 08:15:22

Hallo Gerd,

diese Einschränkung auf 'Range("P100:Q1900").Application' nützt in Excel 2019 gar nix, es werden immer alle Kommentare auf allen Blättern ein oder aus gesetzt.

Gruß von Luschi
aus klein-Paris

Betrifft: AW: Kommentare in Bereich einbelnden
von: GerdL
Geschrieben am: 02.11.2020 20:50:02

Hallo Luschi,

ich habe nur versucht, den vorhandenen Code lauffähig zu machen,
hatte auch den Eindruck, dass es bei mir so funktionierte.
Vielleicht klappt es in xl2019 so:

Sub Unit()

    
    Dim C As Range
    
    For Each C In Range("P100:Q1900")
        If Not C.Comment Is Nothing Then C.Comment.Visible = True
    Next


End Sub
Es kommt aber offenbar keine Reaktion des Fragestellers mehr.

Gruß Gerd

Betrifft: AW: Kommentare in Bereich einbelnden
von: Luschi
Geschrieben am: 05.11.2020 06:41:17

Hallo Gerd,

ja, dieser Vba-Code klappt natürlich auch in Excel 2019.

Gruß von Luschi
aus klein-Paris

Beiträge aus dem Excel-Forum zum Thema "Kommentare in Bereich einbelnden"