Aufteilen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Aufteilen
von: Joachim S
Geschrieben am: 22.06.2002 - 20:08:28

Habe dieses makro die letzten Tage aus dem Forum bezogen
funktioniert klasse

Sub Aufteilen()
Dim Spalte As Integer
Dim zeile As Integer
On Error Resume Next
For Spalte = 7 To 30 Step 2
Columns(Spalte).TextToColumns Destination:=Cells(1, Spalte), _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
Other:=True, OtherChar:="?", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Next Spalte

End Sub


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

nach oben   nach unten

Re: Aufteilen
von: Martin
Geschrieben am: 23.06.2002 - 16:25:41

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

nach oben   nach unten

Vielen Dank :-)
von: Joachim S
Geschrieben am: 24.06.2002 - 00:21:44

.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Aufteilen"