nachdem mit Hajo und Tino geholfen haben(Danke an die beiden), komme ich aber dennoch nicht so recht weiter.
Ich habe folgenden Code:
Public Sub CopyComment()
Dim x As Long
Dim objCell As Range
Dim arrDatei(1 To 4) As String
arrDatei(1) = "Planung HA.xls"
arrDatei(2) = "Planung BE.xls"
arrDatei(3) = "Planung KF.xls"
arrDatei(4) = "Planung MÜ.xls"
For x = 1 To 4
Windows(arrDatei(x)).Activate
For Each objCell In Worksheets("Tabelle2").Cells.SpecialCells(xlCellTypeComments)
Workbooks("abc.xlsm").Worksheets("Tabelle2").Range(objCell.Address).AddComment objCell. _
_
Comment.Text
Next
Next x
End Sub
Dabei soll aus den Dateien "Planung.." alle Kommentare(und zwar nur die Kommentare) in die Datei abc übertragen werden. Die Kommentare stehen bei allen Dateien in Tabelle 2 und sollen auch bei Datei "abc" in Tabelle 2. Kann mir irgendjemand helfen bzw. sieht irgendjemand den Fehler?
Ich bin für jede Anregung dankbar!!!
Einen schönen Restsonntag noch!
Gruß Lutz