Laufzeitfehler beim Kopieren von Daten

Hallo zusammen
Ich benutze in einem VBA Skript eine Schleife die mir beim eintragen in verschieden Zelle immer wieder einen Laufzeit Fehler 1004 ausgibt
als Beispiel die Zeile 12 bis 15 der Tabelle Funktioniert der Code ohne Probleme und ab Zeile 15 beginnt der Laufzeitfehler ich kann leider nicht erkennen warum dieser Fehler auftritt
Mit dem Skript wird eine txt Datei für einen Gravur Laser erzeugt und in den Spalten D und G die Gleichen Ergebnisse für den Export zu einem Gravur Drucker eingetragen
wenn ich im VBA die Einträge für das Schreiben in die Zellen Ausklammere wird die txt Datei ohne Fehler geschrieben
mit den Einträgen entsteht der Laufzeitfehler
'Schreibe Zeile 1 Quelle in Splate D / Bmk Kabel / Ziel
ws.Cells(i, 4).Value = Var1 & vbLf & Var2 & vbLf & Var3
'Schreibe Zeile 2 Ziel in Spalte G / Bmk Kabel / Quelle
ws.Cells(i, 7).Value = Var3 & vbLf & Var2 & vbLf & Var1

Fehler:
Error = Err.Description & Err.Number
ws.Cells(i, 5).Value = Error
On Error Resume Next
'Schreibe Zeile 1 Quelle / Bmk Kabel / Ziel
Print #1, Var1 & ";" & Var2 & ";" & Var3
'Schreibe Zeile 2 Ziel / Bmk Kabel / Quelle
'Print #1, Var3 & ";" & Var2 & ";" & Var1
Next i
Close #1
Kann mir da Jemand weiterhelfen
im Anhang ein Beispieltabelle
https://www.herber.de/bbs/user/155257.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Schreibe Zeile 1 Quelle in Splate D / Bmk Kabel / Ziel ws.Cells(i, 4).Value = "'" & Var1 & vbLf & Var2 & vbLf & Var3 'Schreibe Zeile 2 Ziel in Spalte G / Bmk Kabel / Quelle ws.Cells(i, 7).Value = "'" & Var3 & vbLf & Var2 & vbLf & Var1

Sub test() If Left(var1, 1) = "=" Then var1 = "'" & var1 If Left(var3, 1) = "=" Then var3 = "'" & var3 ws.Cells(i, 4).Value = var1 & vbLf & Var2 & vbLf & var3 'Schreibe Zeile 2 Ziel in Spalte G / Bmk Kabel / Quelle ws.Cells(i, 7).Value = var3 & vbLf & Var2 & vbLf & var1 End Sub

Hi
wenn du einen Text, der mit einem =, + oder - beginnt, in eine Zelle schreibst, denkt Excel das sei eine Formel und versucht, diese zu berechnen.
wenn der Text dann keine sinnvolle Formel ergibt, bekommst du einen Fehler.
um das zu verhindern gibt es zwei Möglichkeiten:
a) stelle dem Text ein Hochkomma voran, das haben die Kollegen ja schon gezeigt.
Dieses Hochkomma hast du ja schon in den Zellen drin, es wird aber, wenn du den Wert so einer Zelle ausliest, nicht mit ausgelesen weil es als Texterkennungszeichen nicht Teil des Textes ist, dh du musst dann, wenn du so einen Zellwert ausliest und erneut in eine Zelle schreibst, das Hochkomma nochmal hinzufügen.
b) formatiere die Zellen mit dem Zahlenformat TEXT bevor du den Wert einfügst, das kannst du einmalig von Hand machen oder am Anfang des Codes:


Range("D:D,G:G").Numberformat = "@"

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler beim Kopieren von Daten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread