Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formatierung

Forumthread: Formatierung

Formatierung
Michel
Hallo,
ich möchte eine in Excel erstelltes Tabellenblatt in folgendem Format als Textdatei ausgeben.
- pro Zeile müssen immer 20 Werte stehen
- jeder Wert in der ausgegebenen Datei muss 4 Zeichen lang sein, wobei Leerzeichen die fehlenden
Zahlen füllen
Im Beispiel steht das Minuszeichen für Leerzeichen
---1--12-1231234---1--12-1231234 usw. bis 20 Werte dann zeilenumbruch
Wie müssen die einzelnen Zellen nin Excel formatiert werden, damit inklusive Leerzeichen immer
4 Zeichen pro Wert in der ausgegebenen Text-Datei stehen.?
Ein Beispiel für die zu kovertierende Excel-Datei habe ich angefügt.
https://www.herber.de/bbs/user/80885.xls
Vielen Dank
Herbert Michel
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Formatierung
06.07.2012 11:53:08
Rudi
Hallo,
in ein Modul und aus der Tab heraus starten: 
Sub TextAusgabe()
Dim strText As String, arrText, i As Long, j As Integer
arrText = Range("A1").CurrentRegion
Open "c:\temp\Test.txt" For Output As #1
For i = 1 To UBound(arrText)
strText = ""
For j = 1 To 20
strText = strText & String(4 - Len(arrText(i, j)), " ") & arrText(i, j)
Next j
Print #1, strText
Next i
Close #1
End Sub

Gruß
Rudi
Anzeige
AW: Formatierung
06.07.2012 13:02:58
Michel
Vielen Dank für die schnelle Antwort. Es funktioniert.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige