Excel: Unterschied zwischen den Versionen
Aus Peter Jauernig Wiki
Pja (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „ Text in Zahlen umwandeln: wenn du es sowieso per Makro machen willst, dann kannst du ja auch eine Schleife erstellen, die die Tabelle spaltenweise durchgeht:…“) |
Pja (Diskussion | Beiträge) |
||
| (2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
| Zeile 3: | Zeile 3: | ||
wenn du es sowieso per Makro machen willst, dann kannst du ja auch eine Schleife erstellen, die die Tabelle spaltenweise durchgeht: | wenn du es sowieso per Makro machen willst, dann kannst du ja auch eine Schleife erstellen, die die Tabelle spaltenweise durchgeht: | ||
| + | <pre> | ||
Dim rngC As Range | Dim rngC As Range | ||
For Each rngC In ActiveSheet.UsedRange.Columns | For Each rngC In ActiveSheet.UsedRange.Columns | ||
rngC.TextToColumns Destination:=rngC(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, 1) | rngC.TextToColumns Destination:=rngC(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, 1) | ||
Next | Next | ||
| + | </pre> | ||
wenn du ohne VBA arbeiten willst, gehts am schnellsten wahrscheinlich so: | wenn du ohne VBA arbeiten willst, gehts am schnellsten wahrscheinlich so: | ||
| + | |||
1. in eine freie Zelle neben der Tabelle die 1 eintragen | 1. in eine freie Zelle neben der Tabelle die 1 eintragen | ||
| + | |||
2. diese Zelle kopieren | 2. diese Zelle kopieren | ||
| + | |||
3. die Tabelle, die umgewandelt werden soll markieren. Wenn du ganze Spalten markierst müsstest du die Markierung auf Zellen mit Text reduzieren, das geht mit der Menüfunktion Start - Bearbeiten - Suchen und Auswählen - Inhalte - Konstanten - Texte | 3. die Tabelle, die umgewandelt werden soll markieren. Wenn du ganze Spalten markierst müsstest du die Markierung auf Zellen mit Text reduzieren, das geht mit der Menüfunktion Start - Bearbeiten - Suchen und Auswählen - Inhalte - Konstanten - Texte | ||
| + | |||
4. die kopierte 1 dann als Wert einfügen und den Vorgang "multiplizieren" im Kontextmenü auswählen. | 4. die kopierte 1 dann als Wert einfügen und den Vorgang "multiplizieren" im Kontextmenü auswählen. | ||
| + | |||
| + | |||
| + | Anderer Codevorschlag | ||
| + | <pre> | ||
| + | With Worksheets("Tabelle1").Range("A2:Y" & Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp) _ | ||
| + | .Row) | ||
| + | .NumberFormat = "General" | ||
| + | .Value = .Value | ||
| + | End With | ||
| + | </pre> | ||
Aktuelle Version vom 7. September 2018, 14:53 Uhr
Text in Zahlen umwandeln: wenn du es sowieso per Makro machen willst, dann kannst du ja auch eine Schleife erstellen, die die Tabelle spaltenweise durchgeht:
Dim rngC As Range
For Each rngC In ActiveSheet.UsedRange.Columns
rngC.TextToColumns Destination:=rngC(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, 1)
Next
wenn du ohne VBA arbeiten willst, gehts am schnellsten wahrscheinlich so:
1. in eine freie Zelle neben der Tabelle die 1 eintragen
2. diese Zelle kopieren
3. die Tabelle, die umgewandelt werden soll markieren. Wenn du ganze Spalten markierst müsstest du die Markierung auf Zellen mit Text reduzieren, das geht mit der Menüfunktion Start - Bearbeiten - Suchen und Auswählen - Inhalte - Konstanten - Texte
4. die kopierte 1 dann als Wert einfügen und den Vorgang "multiplizieren" im Kontextmenü auswählen.
Anderer Codevorschlag
With Worksheets("Tabelle1").Range("A2:Y" & Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp) _
.Row)
.NumberFormat = "General"
.Value = .Value
End With
