Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
Anzeige
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
Anzeige
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.

397 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige