Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aufteilen

Forumthread: Aufteilen

Aufteilen
22.06.2002 20:08:28
Joachim S
Habe dieses makro die letzten Tage aus dem Forum bezogen
funktioniert klasse

es beginnt in Spalte g und trennt mir A?B in A B
nur sollte es nicht die ganzen Spalten dursuchen sondern erst ab Zeile 7

Vielen für eure Hilfe
Schöne Grüße vom Bodensee
Gruß Josi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Aufteilen
23.06.2002 16:25:41
Martin
Hallo Josi,
du kannst das Makro so ausbauen:
Sub Aufteilen()
Dim Spalte As Integer
Dim zeilen As Long
Dim R As Range

zeilen = Rows.Count

On Error Resume Next
For Spalte = 7 To 30 Step 2
Range(Cells(7, Spalte), Cells(zeilen, Spalte)). _
TextToColumns Destination:=Cells(7, Spalte), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Other:=True, OtherChar:="?", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Next Spalte

End Sub

Grüße
Martin

Anzeige
Vielen Dank :-)
24.06.2002 00:21:44
Joachim S
.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige