Formatierung Text in Spalten für alle Spalten bis leere Spalte
19.12.2019 13:21:05
Dennis
ich bin noch recht frisch in der VBA-Welt und stehe vor folgendem Problem.
Problem war, dass ich aus einer Datenbank eine Tabelle importiert habe, diese ab stehts im Textformat eingefügt wurden (als Text gespeicherte Zahlen). Die Variante mit alles kopieren und beim Einfügen mit 1 multiplizieren funktioniert zwar manuell aber nicht über das Makro. Als habe weitere Möglichkeiten ausprobiert und über Text in Spalten hat es mit der Formatierung auch im Makro geklappt. Nur lässt sich das nicht über mehrere Spalten gleichzeitig machen. Nun möchte ich das Spalte für Spalte durchführen lassen und das dann bei der ersten leeren Spalten stoppen lassen
wie unten dargestellt möchte ich damit in Spalte I anfangen bis eine Spalte Werte kommt (bzw. eine ohne Überschrift).
Hat dafür jemand eine Lösung?
Sub Zahlenformat()
Columns("I:I").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
Anzeige