Kommentare suchen

Question

Hallo,
in einer sehr umfangreichen Datei sind einige Zellen mit Kommentaren versehen.
Gibt es eine Such- oder Filterfunktion mit der ich diese finde? (Office 2010)
mfg
Wolfgang

Answer 1

Du kannst sie zumindest alle vollständig anzeigen lassen, das hilft evtl. beim auffinden:
Register Überprüfen > Gruppe Kommentare > Alle Kommentare anzeigen.

Answer 2

Hallo,
ja, o.k. danke das hilft etwas.
mfg
Wolfgang

Answer 3

hi all ^^

ein Beispiel :-)

gruss nighty

Sub Kommentar_Zeile1_modifizieren()
Dim Zelle As Range
Dim Ctext As Object
Dim Eingabe As String
Eingabe = InputBox("Suchbegriff")
For Each Zelle In Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
Set Ctext = Range("" & Zelle.Address).Comment
If Not Ctext Is Nothing Then
If InStr(1, Range(Zelle.Address).Comment.Text, Eingabe) > 0 Then
Range(Zelle.Address).Select
End If
End If
Next
End Sub

Answer 4

hi all ^^

oder auch so

alle Kommentare werden eingeblendet die den Suchbegriff beinhalten(beliebige position)

gruss nighty

Sub Kommentar_Zeile1_modifizieren()
Dim Zelle As Range
Dim Ctext As Object
Dim Eingabe As String
Eingabe = InputBox("Suchbegriff")
For Each Zelle In Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
Set Ctext = Range("" & Zelle.Address).Comment
If Not Ctext Is Nothing Then
If InStr(1, Range(Zelle.Address).Comment.Text, Eingabe) > 0 Then
Range(Zelle.Address).Comment.Visible = True
End If
End If
Next
End Sub

Answer 5

Hallo Nighty,
vielen Dank für deine Bemühungen.
Deine beiden Makros habe ich gerade ausprobiert. Ich werde nach einem Suchbegriff gefragt und dann passiert nichts.
Mir geht es aber darum in mehreren Dateien mit diversen Tabellen ALLE Kommentare zu finden.
An deinem Makro sehe ich, das es möglich sein sollte, nach Texten innerhalb von Kommentaren zu suchen. Dann sollte es wohl auch möglich sein die Texte aus den Kommentaren zu kopieren und in die Tabelle einzutragen.
Die KommentarTEXTE sollen direkt in der Tabelle in Spalte Z eingetragen werden, die Kommentare selbst sollen alle gelöscht werden.
mfg
Wolfgang

Answer 6

Hallo Wolfgang,

probier es mal so:

Sub Kommentare_in_SpalteZ()

Dim Blatt As Worksheet
Dim Notiz As Comment

For Each Blatt In ActiveWorkbook.Worksheets
For Each Notiz In Blatt.Comments
With Blatt
.Cells(Notiz.Parent.Row, 26).Value = Notiz.Text 'Kommentar in Spalte Z schreiben
.Cells(Notiz.Parent.Row, Notiz.Parent.Column).Comment.Delete 'Kommentar löschen
End With
Next Notiz
Next Blatt

End Sub

Das Makro durchläuft alle Arbeitsblätter einer Mappe. Probiere es aber erst einmal in einer Testdatei aus.

Gruß

M.O.

Answer 7

Hallo M.O.
Vielen Dank, das sieht super aus!
mfg
Wolfgang