Hallo zusammen,
Ich hoffe, jemand kann mir einen Tipp geben.
Beim Ausführen des Makros wird ein Laufzeitfehler 13 (Typenkonflikt) ausgegeben.
Dies kommt dann bei der Codezeile Print #1, Cells(i, 1).Value & " " & Cells(i, 2).Value vor.
Was muss ich ändern, oder habe ich etwas übersehen?
Besten Dank für eure Hilfe.
???????Sub TXT_erzeugen()
Dim strDateiname As String, strPath As String Dim i As Long, lngZeile As Long strPath = "C:..\" 'Speicherpfad eintragen strDateiname = "txt_dateiname.txt" 'Dateinamen mit Dateiendung eintragen lngZeile = Range("A" & Rows.Count).End(xlUp).Row Open strPath & strDateiname For Output As #1 For i = 1 To lngZeile Print #1, Cells(i, 1).Value & " " & Cells(i, 2).Value Next i Close #1 End Sub
|