Clever-Excel-Forum

Normale Version: Text in Spalten per VBA
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Moin,

da ich beim Datenimport 2 Spalten (P&R) immer als Text und nicht Zahl habe, würde mir für diese Spalten ein Button mit "text to columns" auf meiner UF sehr helfen.

Ist das realisierbar?
Danke
Hallo Sivr,

schaue Dir in der Excel-Hilfe die Range.TextToColumns-Methode an. Wink

Gruß Uwe
Danke dafür,

aber irgendwie muss ich hier immer mit Zusatzspalten arbeiten.

Da ich aber so wenig wie möglich Arbeitsschritte haben möchte, wäre mir ein VBA-Button auf meiner UF am liebsten, der das gleiche macht, wie

DATEN-TextInSpalten-Fertigstellen :)

Danke
Moin,

ein VBA-Anfänger rät: Makro aufzeichnen

Zum Beispiel:


Code:
Option Explicit

Sub TiS()

   Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
       TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
       Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
       :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
       TrailingMinusNumbers:=True
   Range("A1").Select
End Sub