Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ASCII-Datei aus Excel erzeugen - fcs hier irgendwo

ASCII-Datei aus Excel erzeugen - fcs hier irgendwo
18.02.2014 08:59:01
PeMoe
Hallo,
ich hatte Mitte letzten Jahres Hilfe von "fcs" zu einem Problem erhalten, welches im Forums-Archiv unter dem Link
https://www.herber.de/forum/archiv/1316to1320/t1317446.htm
zu finden ist.
Der entstandene VBA-Code sieht so aus:

Sub ASCII_Datei_2()
On Error GoTo Fehler
Dim ZE%, i%
Dim Datei
Dim A$, B$, C$, D$, E$, F$, G$, H$
Datei = Application.GetSaveAsFilename(InitialFileName:="ASCII-Barcode-Import.txt", _
Filefilter:="Text(*.txt),*.txt", _
Title:="Dateiname für ASCII-File auswählen/eingeben")
If Datei = False Then
MsgBox "Keine Daten erzeugt"
End
End If
ZE = InputBox("Daten ab Zeile", "Kopfzeile vorhanden", 2)
Close #1
Open Datei For Output As 1
For i = ZE To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
A = Format(Cells(i, 1), String(5, "0"))
B = Left(Cells(i, 2) & Space(1), 1)
C = Left(Cells(i, 3) & Space(3), 3)
D = Left(Cells(i, 4) & Space(8), 8)
E = Left(Cells(i, 5) & Space(13), 13)
F = Left(Cells(i, 6) & Space(8), 8)
Print #1, Join(Array(A, B, C, D, E, F), "/")
Next i
Close #1
MsgBox "Daten erzeugt"
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Nun hat sich meine Anforderung folgendermaßen geändert:
Das Feld "Artikelnummer", Spalte E in der Excel-Tabelle, muss nun 18, nicht mehr 13 Zeichen lang sein. Die Werte in der Spalte E der Excel-Tabelle sind immer 8 Zeichen lang und müssen mit führenden Nullen auf die 18 Zeichen Gesamtlänge aufgefüllt werden.
Kann mir jemand, vielleicht ist ja "fsc" nich da draußen, den obigen Code entsprechend anpassen bzw. erweitern?
Vielen Dank!
PeMoe

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

Betreff
Datum
Anwender
Anzeige
AW: ASCII-Datei aus Excel erzeugen - fcs hier irgendwo
18.02.2014 09:27:25
fcs
Hallo PeMoe,
zur Berechnung von E kannst du einer der beiden folgenden Varinaten benutzen.
            E = Right(String(18, "0") & Cells(i, 5).Text, 18)
'oder
E = String(10, "0") & Format(Val(Cells(i, 5).Text), "00000000")

Gruß
Franz

AW: ASCII-Datei aus Excel erzeugen - fcs hier irgendwo
18.02.2014 10:24:47
PeMoe
Klasse, vielen Dank für die wiederholte Hilfe!
PeMoe
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige