Bin neu hier und stelle gleich eine - für mich wenigstens - knifflige Frage:
Ich habe eine Exceltabelle "Waflu" in welcher in den verschiedensten Spalten A - Z bei unterschiedlichsten Zellen Kommentare in Deutsch erfasst sind.
Mittels einem VBA habe ich diese ins Tabellenblatt "Kommentar-Text" ausgelesen.
Die ausgelesenen Kommentare habe ich auf FR & IT übersetzt und möchte nun die übersetzten Kommentare zu dem bereits erfassten Deutschen Kommentar einfügen.
https://www.herber.de/bbs/user/97193.xlsm
Wie gesagt, den Code für aus Auslesen klappt prima, wie ihr im Tabellenblatt "Kommentar-Text" sehen könnt, mit ZellBezeichnung.
Leider erhalte ich beim Code für das Einfügen der übersetzten Daten eine Fehlermeldung.
Ich habe an dem Code herumgespielt, krieg den aber nicht hin.
Hier mein Code zum Einfügen:
Sub KommentarEinfügen()
Dim notiz As Comment
Dim intz As Integer
Dim intMax As Integer
Dim strBezug As String
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
For Each notiz In wks.Comments
notiz.Delete
Next notiz
Next wks
With Sheets("Kommentar-Text") 'Name des Tabellenblattes in welchem die Kommentare erfasst sind
intMax = .UsedRange.Rows.Count
For intz = 2 To intMax
strBezug = Sheets("Kommentar-Text").Cells(intz, 2).Value
Sheets(.Cells(intz, 1).Value).Range(strBezug).AddComment
(.Cells(intz, 4).Value)
Next intz
End With
End Sub
Kann mir jemand von euch helfen?Vielen Dank euch & nen sonnigen Tag
Arnold