Sub Aufteilen()
Dim Spalte As Integer
On Error Resume Next
For Spalte = 1 To 25 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
ebenfalls heisse Grüße aus Italien
Martin
Und weiter frohes schwitzen
ich hoffe am Meer
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen