Office: EXCEL Text in Zahlen umwandeln

JimmyTalent · 27. Juli 2010

Hallo Zusammen

Mit dem folgenden Code hat das alles super geklappt:
Code:

Columns("A:A").Select
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser läuft problemlos integriert in einem grösseren Makro.
Nun möchte ich aber die Spalte "D*biggrin.gif*" ebenfalls in Zahlen umwandeln:
Wenn ich folgendes mache schreit mich aber EXCEL an: "Mehrfachdeklaration im aktuellen Gültigkeitsbereich".

Code:

Columns("A:A").Select
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
Columns("D:D").Select
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie bring ich das in einem einzigen Makro zum laufen?
Vielen Dank!

:)

Nepumuk · 29. Juli 2010

Hallo,

versuch es damit:

Public Sub test()
Columns(1).TextToColumns
Columns(4).TextToColumns
End Sub

Drogist · 29. Juli 2010

Hallo Jimmy Talent,

der Fehler ist ja (ausnahmsweise) recht eindeutig beschrieben.

Columns("A:A").Select
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
Columns("D*biggrin.gif*").Select
Dim Spalte As Range
On Error Resume Next
For Each Spalte In Selection.Columns
Columns(Spalte.Column).TextToColumns
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du hast eine identische Variable (Spalte) in einer SUB 2 Mal deklariert, und das ist nicht korrekt.

Lösche die 2. DIM-Anweisung und es wird hinhauen.

Ach ja, du selektierst stets die ganze Spalte. Das geht zwar, ist aber nicht unbedingt vorteilhaft. Schau mal im Netz bei "Set" nach ...

JimmyTalent · 1. August 2010

Vielen Dank! Hat super geklapt! Ich muss die ganze Spalte selektieren, da ich nie weis wie viele Zeilen davon betroffen sind.

jinx · 2. August 2010

Moin, Jimmy Talent,

Ich muss die ganze Spalte selektieren, da ich nie weis wie viele Zeilen davon betroffen sind.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bestimmt nicht! Und Selektieren ist vom Makro-Rekorder:

Code:

ActiveSheet.UsedRange.Columns("D:D").TextToColumns
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: EXCEL Text in Zahlen umwandeln

EXCEL Text in Zahlen umwandeln

EXCEL Text in Zahlen umwandeln

EXCEL Text in Zahlen umwandeln

EXCEL Text in Zahlen umwandeln - Similar Threads - EXCEL Text Zahlen

Ändern von Zahlen im Text Format in das Zahlenformat in Excel für das Web

Formatieren von Zahlen als Text in Excel für Mac

Excel Text gleicher Text in Zelle (kleiner 3) zählen

Excel - vergleich von 2 Zellen Text / Zahl mit Fehleingabe

Zeilen mit Inhalt zählen >>> zzgl Textergänzung

Excel Daten ( Text und Zahlen) Diagramm darstellen

MS Excel Zählen wenn Zelle Text beinhaltet