Zellumwandlung aber bitte kein Datum
urs
ich habe schon von der Zellumformung :
Sub Zellumformung()
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
iColL = Cells(1, Columns.Count).End(xlToLeft).Column
For icol = iColL To 1 Step -1
Columns(icol).Select
Selection.TextToColumns Destination:=Cells(1, icol), DataType:= _
xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next icol
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub
profitiert. Es Werden hier Texte in Zahlen umgewandelt.
Mein Problem ist, dass ich in einigen Zellen 12/23 stehen habe und diese dann als 23. Dez erscheinen.
Wie lässt sich das vermeiden?
Vielen Dank für Eure Hilfe
Gruss urs
Anzeige