VBA: Text in Spalten - mehrere Spalten
05.02.2010 09:43:46
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelklick auf die jeweilige Zelle wird sie korrekt dargestellt.
Klar kann ich jetzt jede Spalte von Zeile 9 ab markieren und über Daten > Text in Spalten durchformatieren, da der Prozess aber öfters durchlaufen werden muss, muss es ein Makro sein.
Ich habe bereits folgendes Makro:
Sub Text_in_Spalten_umwandeln()
Dim Spalte As Range
Columns("B:AA").Select
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
End Sub
Das funktioniert aber immer für die gesamten Spalten, und auch nur dann wenn keine Zellen der oberen Zeilen (oberhalb von Zeile 9) verbunden sind.Das Makro müsste nun angepasst werden, dass für die Spalten B:AA immer der Zeilenbereich von 9 - 46 durchlaufen wird.
Könnt ihr hier helfen?
Vielen Dank.
Gruß
Jonathan