Laufzeitfehler1004: Anwendungs- oder objektorientierter Fehler
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:
[b]oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Value = oWSExterneDatei.Cells(lZeilenzaehler, 14)
strKommentar = oWSExterneDatei.Cells(lZeilenzaehler, 16) ' Bemerkung als Kommentar übernehmen
On Error GoTo HierFortsetzen1
If oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Comment Is Nothing = False Then
oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Comment.Text Text:=strKommentar
Else
oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).AddComment
oWSRohdaten.Cells(lDatensatzNummer, iSpaltenZaehlerAusgabe).Comment.Text Text:=strKommentar
End If
HierFortsetzen1:
[/b]
Tabelleninhalte einer excel-Tabelle kopieren und in eine neue Tabelle einfügen
Sternschnuppe 10.03.2007 - 482 Hits - 2 Antworten
Zellinhalte verschieben
inselgerd 29.03.2007 - 67 Hits - 14 Antworten
Teile aus Hyperlinks im Excel - Arbeitsblatt suchen und ersetzen
KFK 09.10.2007 - 169 Hits - 2 Antworten
Inhaltsverzeichnis mit Excel
micico 19.11.2007 - 132 Hits - 2 Antworten
Kommentare im Excel verlängern
report03 23.11.2007 - 112 Hits - 1 Antwort