Hallo M.O.,
ich habe mich jetzt das ganze WE mit Deinem Makro beschäftigt und so abändern können, dass ich damit leben kann.
Alle in Antwort 3 beschriebenen Probleme konnte ich durch löschen einzelner Abschnitte oder einfügen von Makroaufzeichnungen lösen.
So habe ich z.Bsp. das ungewollte ´schrittweise löschen durch löschen des Abschnittes
'eventuell vorhandene Kommentar-Liste löschen
With Ziel
.Range(Cells(32, 1), Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 4)).ClearContents
End With
das ändern der Sp.-breiten durch löschen des Abschnittes
'Breite der Spalten A bis C automatisch anpassen
Columns("A:C").AutoFit
das tauschen der Einträge durch ändern folgenden Abschnittes zu
.Cells(zeile, 2).Value = Blatt.Name
.Cells(zeile, 1).Value = Notiz.Parent.Address
.Cells(zeile, 4).Value = Notiz.Text
gelöst.
Ich habe das aufgeschrieben, um dich zu fragen, ob ich mir damit hoffentlich keine noch nicht entdeckten neuen Probleme geschaffen habe??
Jetzt habe ich nur noch eine Bitte: Ich wollte mir die Kommentare in einem anderen Arbeitsblatt ("Auswertung") ausgeben lassen. Ich dachte, das erreiche ich ganz einfach, indem ich die Zeile -
Set Ziel = ThisWorkbook.Worksheets("Hauptmenu") - ändere in
Set Ziel = ThisWorkbook.Worksheets("Auswertung").
Das hat leider nicht geklappt. Kannst Du mir da bitte noch weiterhelfen?
Danke und Gruß Flodnug