VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum

Forumthread: VBA: Text in Spalten - mehrere Spalten

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: Text in Spalten - mehrere Spalten

05.02.2010 09:47:39

Hajo_Zi
AW: VBA: Text in Spalten - mehrere Spalten

05.02.2010 09:55:26

Jonathan
Range statt Columns???

09.02.2010 10:14:47

Björn B.

AW: VBA: Text in Spalten - mehrere Spalten

05.02.2010 09:47:39

Hajo_Zi

Hallo Jonathan,
die andere Möglichkeit
Schreibe eine 1 in eine Zelle, diese Zelle kopieren, markiere Deinen Bereich, rechte Maustaste, Inhalte einfügen, im Dialog auswählen Multiplikation und ok
Leere Zellen enthalten dann aber 0

AW: VBA: Text in Spalten - mehrere Spalten

05.02.2010 09:55:26

Jonathan

Hallo Hajo,
vielen Dank für die schnelle Antwort und für die beschriebene Lösung.
Allerdings wäre mir eine Anpassung des Makros lieber, da es in der Tabelle eine Unterschied gibt ob in einer Zelle 0 steht oder ob die Zelle leer ist.
Multipliziere ich alle Zellen, steht wie du schon sagtest auch in leeren Zellen eine 0 drin. Das darf nicht sein.
Gruß
Jonathan

Range statt Columns???

09.02.2010 10:14:47

Björn B.

Hallo,
du solltest einfach nur den Bereich markieren, den du auch wandeln möchtest.
Statt Columns("B:AA").Select, versuch es mal mit Range("B9:AA46").
Also bei mir sieht das dann so aus, bitte mal testen:


Sub Text_in_Spalten_umwandeln()
Dim Spalte As Integer 'B = 2, AA = 27
On Error Resume Next
For Spalte = 2 To 27
Range(Cells(9, Spalte), Cells(46, Spalte)).TextToColumns
Next Spalte
End Sub

Gruß
Björn B.

Beliebteste Forumthreads (12 Monate)

VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum

Forumthread: VBA: Text in Spalten - mehrere Spalten

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread