Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Text in Spalte nicht Spalte sondern Bereich
20.11.2008 17:10:38
mehmet
Hallo Forum,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
"Text in Spalte" nur für Bereich durchführen
20.11.2008 18:19:00
NoNet
Hallo Mehmet,
teste doch mal dieses korrigierte Makro (habe es mangels Daten nicht selbst getetset) :

Private Sub CommandButton1_Click()
' Makro1 Makro
' Makro am 20.11.2008 von pc aufgezeichnet
Sheets("Tabelle4").Select
Range("Q4:T60").ClearContents
Range("C4:C60").Copy Range("Q4")
Application.CutCopyMode = False
Range("Q4:Q60").TextToColumns Destination:=Range("Q4"), 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


Gruß, NoNet

Anzeige
AW: "Text in Spalte" nur für Bereich durchführen
20.11.2008 21:33:00
mehmet
Hallo NoNet,
danke, es hat geklappt.
Gruss
mehmet

340 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige