Text in Spalte nicht Spalte sondern Bereich
20.11.2008 17:10:38
mehmet
ich habe mit dem Makrorekorder "Text in Spalte" aufgezeichnet.
Wollte diese nun ändern für ein Bereich (Q4:Q60) statt Spalte (Q:Q).
Warum geht das nicht?
Private Sub CommandButton1_Click()
' Makro1 Makro
' Makro am 20.11.2008 von pc aufgezeichnet
Sheets("Tabelle4").Select
Range("Q4:T60").Select
Selection.ClearContents
Range("C4:C60").Select
Selection.Copy
Range("Q4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("Q:Q").Select
Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
Range("n1").Select
End Sub
Dank und Gruss
mehmet