Text in Spalten per VBA

[Silvr]

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

[Kuwer]

Hallo Sivr,

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

Gruß Uwe

[Silvr]

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

[WillWissen]

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