Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige