title image


Smiley "Daten - Text in Spalten" per VBA
Hallo Trabbi,



einfach die Aktion "Daten - Text in Spalten" mit dem Makrorecorder aufzeichnen und den VBA-Code an deine Verhältnisse anpassen und optimieren (also z.B. überflüssige Select-Befehle rausschmeißen...) und du erhältst das gewünschte Makro:



Option Explicit



Sub Text_in_Spalten()

'

' Datensätze aus Spalte A aufteilen in die Spalten B, C, D und E

Range("A1:A100").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _

Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, _

FieldInfo:=Array(Array(1, xlGeneralFormat), Array(2, xlGeneralFormat), _

Array(3, xlDMYFormat), Array(4, xlDMYFormat)), TrailingMinusNumbers:=True

End Sub



Gruß, xl'chen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: