Tipps & Tricks: Detail

Hier finden Sie zu dem ausgewählten Tipp oder Trick die detaillierten Angaben.

Wenn in den folgenden Erläuterungen Texte wie MsgBox formatiert sind, handelt es sich um konkret einzugebende Inhalte wie VBA-Code oder die Eingabe von Werten. Menüs wie Datei Speichern sind wie hier zu sehen formatiert. Schaltflächen oder Registerkarten auf Dialogen werden wie Menüs behandelt.

Alle Tipps sind nach bestem Wissen geprüft, aber selbstverständlich ohne Gewähr. Sollten Sie doch einen Fehler darin entdecken, würden wir uns freuen, wenn Sie uns per E-Mail Bescheid sagen.

Kommentar-Inhalte in Zellen kopieren ID 369 Aktuell

Manchmal wäre es praktisch, alle Kommentare eines Blattes auslesen und in Zellen weiterbearbeiten zu können. Da Excel das nicht bietet, hilft die folgende Prozedur:

Sub KommentareInZellenKopieren()

Dim wksQuelle As Worksheet 'die Tabelle mit Kommentaren
Dim wksZiel As Worksheet 'die Tabelle zum Ausdrucken
Dim cmtDieser As Comment 'ein Kommentar
Dim lngZeile As Long

Set wksQuelle = ActiveSheet 'Achtung, vorher merken, weil neues Blatt kommt
Set wksZiel = ThisWorkbook.Worksheets.Add() 'macht immer eine neue Tabelle dafür

With wksZiel

lngZeile = 1
.Cells(lngZeile, 1).Value = "Adresse"
.Cells(lngZeile, 2).Value = "Zellwert"
.Cells(lngZeile, 3).Value = "Kommentar"
.Rows(lngZeile).Font.Bold = True 'Titelzeile fett machen

For Each cmtDieser In wksQuelle.Comments 'alle Kommentare durchlaufen und in neuer Tabelle auflisten

lngZeile = lngZeile + 1
.Cells(lngZeile, 1).Value = cmtDieser.Parent.AddressLocal
.Cells(lngZeile, 2).Value = cmtDieser.Parent.Value
.Cells(lngZeile, 3).Value = cmtDieser.Text

End With

End Sub

Die Kommentare sind anschließend mit Zelladresse in einer neuen Tabelle aufgelistet und können dort wie alle anderen Zellen auch sortiert oder ähnlich behandelt werden.