Hallo Zusammen,
Ich hab hier einen Makro der mir aus einem Tabellenblatt die zusammenfassung in ein neues Blatt macht. Matthias hat das so geschrieben https://www.herber.de/bbs/user/126115.xls
Ich hab den Makro jetzt abgeändert, das er die Blätter (quelle) aus einer Listbox nimmt und Blatt (ziel) neu einfügt.
Funktioniert alles.
Wo ich nur auf dem schlauch stehe, wie bekomme ich die Kommentare der Zellen von Blatt quelle nach ziel.
Versucht hab ich es so:
Dim quelle As Worksheet, ziel As Worksheet
Set quelle = Worksheets(ausw) ' aus Listbox
Set ziel = Worksheets.Add
............... 'rest vom Makro lass ich mal weg
If Not Sheets(quelle.Name).Cells(zeile, 3).Comment Is Nothing Then
On Error GoTo sprung
With Sheets(ziel).Range(zielzeile + 1,3).Comment.Text
.AddComment
.Comment.Text.Sheets(quelle.Name).Cells(zeile, 3).Comment.Text
End With
End If
sprung:
.............. 'Makro geht hier weiter
------------
auch wenn ich sheets(ziel.name).cells(zielzeile +1 ,3).comment.text verwende kommen Fehlermeldungen. Laufzeitfehler 91 und 1004
Ich steh auf dem schlauch was er meint Objekt erforderlich.
hab auch schon versucht ziel1 = ziel.name zu verwenden und es als String zu deklarieren und in die Formel einzutragen.
Wenn ich ziel "Anfahre" mit der Maus, zeigt er mir auch ziel="entsprechende tabelle" an. Also erkennt er sie doch als String.
Wo steh ich mir da im weg ?
Gruß
Ghostman