Hallo Community!
Ich exportiere mit folgenden Code meine Tabelle in ein txt-file: (siehe Code)
Das Funktioniert auch alles so weit wunderbar, nur stimmt die Form nicht.
Und zwar soll es wie folgt aussehen:
Alle Spalten sollen Rechtsbündig nebeneinander sein.
Siehe Datei1 (Anhang): So sieht es z.Z. aus.
Es soll jedoch aussehen wie in Datei2 (Anhang).
Es sollen praktisch so vor eine nicht negative Zahl oder eine Zahl kleiner 10 ein
Leerzeichen eingefügt werden.
Die Zahlen sind nämlich in ihrer Nachkommastelle eingeschränkt (max. 4).
Gruß
Muzel
Ich exportiere mit folgenden Code meine Tabelle in ein txt-file: (siehe Code)
Das Funktioniert auch alles so weit wunderbar, nur stimmt die Form nicht.
Und zwar soll es wie folgt aussehen:
Alle Spalten sollen Rechtsbündig nebeneinander sein.
Siehe Datei1 (Anhang): So sieht es z.Z. aus.
Es soll jedoch aussehen wie in Datei2 (Anhang).
Es sollen praktisch so vor eine nicht negative Zahl oder eine Zahl kleiner 10 ein
Leerzeichen eingefügt werden.
Die Zahlen sind nämlich in ihrer Nachkommastelle eingeschränkt (max. 4).
Gruß
Muzel
Quellcode
- Sub XLS_nach_TXT_Export()
- Dim Dateiname As String
- Dim Zeile As Long
- Dim Spalte As Integer
- Dim GanzeZeile As String
- Dim Trennzeichen As String
- Dateiname = ThisWorkbook.Path & Application.PathSeparator & txt_DB36_1.Text & ".txt"
- Zeile = 1
- Spalte = 1
- Trennzeichen = Chr(32)
- Open Dateiname For Output As 1
- For Zeile = 1 To Sheets("Output").UsedRange.Rows.Count
- For Spalte = 1 To Sheets("Output").UsedRange.Columns.Count
- GanzeZeile = GanzeZeile & Trennzeichen & Cells(Zeile, Spalte).Value
- Next Spalte
- Print #1, GanzeZeile
- GanzeZeile = ""
- Next Zeile
- Close #1
- End Sub