Aus 06766 wird 6766
03.01.2014 11:59:12
Sven
ich möchte Folgendes mit Text in Spalten an den Unterstrichen teilen:
Kai Heinrich_Krondorfer Strasse 100_06766_ Bitterfeld - Wolfen
Das Problem ist: Aus 06766 wird 6766
Kann mir jemand helfen, wie ich die 0 beibehalte? Anbei noch der verwendete Code.
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
Danke Sven