Syntax Spaltenwahl
25.04.2007 08:48:00
urs
im untenstehenden Makrotext stimmem die beiden Befehle nicht. Ich habe aber den Bugg nicht gefunden.
Columns = iCol.Select
Selection.TextToColumns Destination:=Range(iCol), .........
Wo baue ich Mist? Ich denke Ihr seht das gleich.
Der ganze Makrotext steht hier:
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:=Range(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
Vielen Dank für jede Hilfe
Gruss urs