Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Text in Spalten, Mehrfachauswahl

Text in Spalten, Mehrfachauswahl
25.02.2014 13: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

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

Betreff
Datum
Anwender
Anzeige
AW: Text in Spalten, Mehrfachauswahl
25.02.2014 15: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 10:16:25
I.S.
Hallo Tino,
das passt super! Vielen Dank für die schnelle Hilfe!
Gruß
Irka

338 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige