AW: Text bei ":" trennen
12.09.2006 11:09:28
Ferhat
Vielen Dank, das hat geholfen!!
Habe das auch gleich (weil blutiger Anfänger) mit dem Makro Recoder aufgenommen und nun das Problem wie ich diesen Code verallgemeinern kann?! d.h. den Code auf jeglichen Dateninhalt anpassen kann?
Sub textinspalten()
' textinspalten Makro
Range("E3").Select
Selection.TextToColumns Destination:=Range("E1"), 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)), TrailingMinusNumbers:=True
Range("E1").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 21
Range("AF3").Select
ActiveWindow.ScrollColumn = 1
Range("F1").Select
Selection.ClearContents
Range("E3").Select
Selection.TextToColumns Destination:=Range("AF3"), 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)), TrailingMinusNumbers:=True
ActiveWindow.LargeScroll ToRight:=1
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 29
Range("AF3").Select
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 1
Columns("E:E").Select
Selection.TextToColumns Destination:=Range("AF1"), 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)), TrailingMinusNumbers:=True
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 24
Range("AH19").Select
End Sub