Hallo Forum,
ich habe folgendes Problem. Ich möchte mit einem Makro in Excel 2010 die Daten eines Tabellenblattes in eine txt-Datei schreiben. Leider kommt der Laufzeitfehler 13 Typen unverträglich.
folgendes Makro:
Sheets("Transfer").Select
Open "C:\temp\Stammdaten.txt" For Output As 1
For zeile = 1 To 15000
Text = ""
For spalte = 1 To 8
Text = Text & CVar(Cells(zeile, spalte))
If spalte < 8 Then Text = Text & ";" 'Trennzeichen = ;
Next
Print #1, Text
Next
Close #1
Sheets("Transfer").Select
Cells.Select
Selection.ClearContents
MsgBox "Export beendet!"
Sheets("Allgemein").Select
End Sub
Gruß
Michael