AW: Arbeitsmappe und mehrere Blätter
09.11.2006 15:32:06
Ptonka
Hallo Albrecht,
ich habe Dir mal auf die schnelle ein Makro gestrickt, welches Dir alle Kommentare vom 1. Tabellenblatt auf alle anderen Tabellenblätter (egal wieviele) 1 zu 1 kopiert.
Probier es mal aus und gib mal Feedback.
Gruß,
Ptonka
Sub Kommentare_kopieren()
Sheets("Tabelle1").Select
AnzahlZeilen = [A65536].End(xlUp).Row
AnzahlTabellenblätter = Sheets.Count
For i = 1 To AnzahlZeilen
Range(Cells(i, 1), Cells(i, 1)).Select
ActiveCell.Comment.Visible = True
Range(Cells(i, 1), Cells(i, 1)).Comment.Shape.Select True
Kommentartext = Range(Cells(i, 1), Cells(i, 1)).Comment.Text
For j = 2 To AnzahlTabellenblätter
Sheets(j).Select
Range(Cells(i, 1), Cells(i, 1)).Select
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Chr(10) & Kommentartext
ActiveCell.Comment.Visible = False
Next j
Sheets("Tabelle1").Select
ActiveCell.Comment.Visible = False
Next i
End Sub