Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datenimport - Felder mit führenden Nullen

Datenimport - Felder mit führenden Nullen
03.12.2004 11:01:56
eres
Hallo Excel-Experten,
habe eine Mainframe-Datei die folgendermassen aussieht:
0999
1234
123401
123455
1234003
1235
1236
1237
1238016
123901
1239123
...
Die ersten 4 stellen sind ein eigenes Text, in dem nur Ziffern erscheinen.
Danach folgt ein Textfeld mit 9 Stellen, was
- entweder komplett blank ist oder
- linksbündig Ziffern enthält und rechts mit blanks aufgefüllt ist.
In Excel will ich eine dritte Spalte hinzufügen und die Datei dann wieder zur Mainframe schicken.
Mein Problem ist, folgendes: Beim Import lässt Excel grundsätzlich die führenden Nullen weg, da die einzelnen Felder als Zahlen interpretiert werden, im obigen Beispiel also:
0999
1234
1234 - 1
1234 - 55
1234 - 3
1235
1236
1237
1238 - 16
1239 - 1
1239 - 123
...
.
Beim Upload bekomme ich dann die Originaldaten (Stelle 1 - 13) nicht mehr so dargestellt, wie sie ursprünglich waren.
Hat jemand hier eine Idee, wie ich das angehen kann ?
Vielen Dank im voraus und Gruss
eres
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenimport - Felder mit führenden Nullen
UweD
Die Spalten(n) als TEXT einlesen
Gruß UD
AW: Datenimport - Felder mit führenden Nullen
03.12.2004 11:59:12
eres
Hallo Uwe, vielen Dank für Deine Antwort.
Kann ich die TEXT-Eigenschaft so mitgeben ?
Do Until EOF(1)
Line Input #1, Mainframe_Line
ActiveSheet.Cells(Line, 1) = TEXT(Left(Mainframe_Line, 4)
ActiveSheet.Cells(Line, 2) = TEXT(Mid(Mainframe_Line, 5, 9)
ZZ = ZZ + 1
End If
Loop
Close
Nochmals vielen Dank und Gruss
eres
Anzeige
AW: Datenimport - Felder mit führenden Nullen
03.12.2004 12:15:42
eres
Hallo Uwe, vielen Dank für Deine Antwort.
Kann ich die TEXT-Eigenschaft so mitgeben ?
Do Until EOF(1)
Line Input #1, Mainframe_Line
ActiveSheet.Cells(Line, 1) = TEXT(Left(Mainframe_Line, 4)
ActiveSheet.Cells(Line, 2) = TEXT(Mid(Mainframe_Line, 5, 9)
ZZ = ZZ + 1
End If
Loop
Close
Nochmals vielen Dank und Gruss
eres
Anzeige
AW: Datenimport - Felder mit führenden Nullen
UweD
Hallo
- Der Line befehl heißt nur, das der Input Zeilenweise erfolgen soll. Ist nicht die Zeilennummer.
- in der Zelle also durch ZZ ersetzt.
- Vorher habe ich dei Spalten auf Format Text umgestellt
- Der Trim() killt die evtl führenden und anhängenden Leerzeichen.
so gehts:

Sub test()
Open "C:\test.txt" For Input As #1
zz = 1
ActiveSheet.Columns("A:B").NumberFormat = "@" 'setzt Spalte ins Format 'Text'
Do Until EOF(1)
Line Input #1, Mainframe_Line
ActiveSheet.Cells(zz, 1) = Trim(Left(Mainframe_Line, 4))
ActiveSheet.Cells(zz, 2) = Trim(Mid(Mainframe_Line, 5, 9))
zz = zz + 1
'End If
Loop
Close
End Sub

Gruß UD
Anzeige
AW: Datenimport - Felder mit führenden Nullen
03.12.2004 14:19:40
eres
Herzlichen Dank für die schnelle und kompetente Hilfe.
Gruss aus Köln
eres
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

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