|
Hallo Community,
ich bin neu im VBA und habe mir soeben einen Code von einer Seite in mein Projekt kopiert, um die Möglichkeit zu schaffen, mehrere Tabellen in eine CSV ab zu speichern.
Private Sub UserForm_Click()
Dim fso As New FileSystemObject, tx As TextStream
Dim WS As Worksheet, WB As Workbook
Dim count As Long
Dim fBlatt, fLine, TextZeile, temp As String
Set tx = fso.CreateTextFile("C:\Temp\Temp.csv")
Set WB = ActiveWorkbook
For Each WS In WB.Worksheets
fBlatt = WS.UsedRange
For count = LBound(fBlatt, 1) To UBound(fBlatt)
fLine = Application.WorksheetFunction.Index(fBlatt, count)
temp = CStr(fLine)
TextZeile = Join(temp, ";")
tx.WriteLine TextZeile
Next
Next
tx.Close
End Sub
Leider stürzt mir das Programm immer an der Stelle
TextZeile = Join(temp, ";")
mit der Meldung:
Laufzeitfehler 13 "Typen unverträglich"
Leider versehe ich das nicht - da ich ja explizit fLine in einen CStr umwandle - laut Überwachung (wenn ich debugge) ist auch der Wert in temp ein String - also in meinem Fall:
Wert = "111" und Typ = String
Ich hoffe einer von Euch sieht, wo das Problem ist und kann mir sagen, was ich falsch mache.....
Vielen Dank für Eure Mühe vor ab
Jürgen
|