Hallo zusammen,

ich habe folgenden Code. In der Zeile in der der Kommentar eingefügt wird tritt sporadisch ein
Laufzeitfehler1004: Anwendungs- oder objektorientierter Fehler
auf.
Darum habe ich nun versucht, den Fehler, wenn er auftritt durch
On Error GoTo
zu unterdrücken und dann an der Stelle
HierFortsetzen1:
fortzusetzen, was aber leider nicht so ganz funktioniert hat, wie ich mir das vorgestellt hatte...

oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Value=oWSExterneDatei.Cells(lZeilenzaehler, 14)
strKommentar = oWSExterneDatei.Cells(lZeilenzaehler, 16) ' Bemerkung als Kommentar übernehmen
On Error GoTo HierFortsetzen1
oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).AddComment
oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Comment.Text Text:=strKommentar
HierFortsetzen1:

Könnt Ihr mir ein bisschen unter die Arme greifen ;-)

Gruß
Jürgen