Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Text in Spalten, Mehrfachauswahl

Forumthread: Text in Spalten, Mehrfachauswahl

Text in Spalten, Mehrfachauswahl
25.02.2014 14:55:20
I.S.
Hallo,
ich habe mit dem Markorekorder folgendes Makro aufgenommen:
Range("K1:K31").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="=", FieldInfo:=Array(Array(1, 9), Array(2, 2)), TrailingMinusNumbers:=True
Das Marko soll aber solange die Spalten durchlaufen bis kein Text mehr vorhanden ist. Wenn ich das über den Rekorder mache muss ich die Prozedur einzeln wiederholen, da Mehrfachauswahl bei "Text in Spalten" nicht möglich ist.
Wie müsste ich das Makro entsprechend abändern?
Viele Grüße
Irka

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalten, Mehrfachauswahl
25.02.2014 16:27:54
Tino
Hallo,
kannst mal so testen
Sub Test()
Dim rng As Range
'Benutze Spalten ab Zelle K1 in Tabelle1 festlegen
With Tabelle1 'Tabelle anpassen
Set rng = .UsedRange
Set rng = Intersect(rng, .Range("K1", .Cells(.Rows.Count, .Columns.Count)))
End With
'sollte keine Zelle in der Spalte der Einstellung entsprechen
On Error Resume Next
'keine Zellen ab K1?
If Not rng Is Nothing Then
'Schleife über alle Spalten
For Each rng In rng.Columns
rng.TextToColumns Destination:=rng.Cells(1, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="=", FieldInfo:=Array(Array(1, 9), Array(2, 2)), TrailingMinusNumbers:=True
Next rng
End If
End Sub
Gruß Tino

Anzeige
AW: Text in Spalten, Mehrfachauswahl
26.02.2014 11:16:25
I.S.
Hallo Tino,
das passt super! Vielen Dank für die schnelle Hilfe!
Gruß
Irka

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige