Office: (Office 2016) Makro darf führende Null nicht löschen

Hallo Liebe Gemeinde,

ich habe mal wieder eine Frage. Ich habe bisher ein funktionierendes Makro in einem Excel Dokument (ok es ist nur über die Makroaufnahme entstanden, läuft aber).

Nun brauche ich dieses in einem neuen Dokument habe aber das Problem, dass ich führende Nullen habe, die in dem neuen Dokument dann abgeschnitten werden. Das Makro ist bestimmt nicht toll, aber es läuft für mich. Hintergrund es gibt für Kunden eine Eingabemaske und diese wird dann über Knopfdruck in das richtige Format umgewandelt in einem neuen Exceldokument.

Die in dem Code genannte column L sieht folgendermaßen aus(hier treten nun die führenden nullen leider auf):

18;170004 ;01110;;1

Nun das Makro:


Sub Umwandlung()
'
' Schaltfläche1_Klicken Makro
'

'
Sheets("Eingabedatei Kassenstatistik").Select
Sheets("csv").Visible = True
Sheets("csv").Select
Columns("L:L").Select
Range("L317").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End Sub

Vielen Dank schonmal für eure Hilfen

 

Hallo,

hast du es mit folgender Modifikation (rot gekennzeichnet) schon versucht:

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True

Die Bedeutung der 2. Zahl im Array(Nummer, Konversionsart) ist die Umwandlungsart, wobei es folgende Konstanten gibt:

Code:

'Name         Wert   Beschreibung
'-----------------------------------------------------
'xlGeneralFormat [COLOR="#0000CD"][B]1[/B][/COLOR]   Allgemein
'xlTextFormat    [COLOR="#FF0000"][B]2[/B][/COLOR]   Text
'xlMDYFormat     3   MTJ-Datumsformat
'xlDMYFormat     4   TMJ-Datumsformat
'xlYMDFormat     5   JMT-Datumsformat
'xlMYDFormat     6   MJT-Datumsformat
'xlDYMFormat     7   TJM-Datumsformat
'xlYDMFormat     8   JTM-Datumsformat
'xlSkipColumn    9   Spalte wird nicht analysiert
'xlEMDFormat    10   ZMT-Datumsformat

 

Hallo Anton,

Vielen Dank für die schnelle und kompetente Hilfe. Das war der entscheidende Hinweis und ich habe auch nochmal was gelernt. So kann ich die zweite Zahl nun zuordnen. Es funktioniert perfekt.

Das Thema kann geschlossen werden.

Nochmals tausend Dank.