Excel: Unterschied zwischen den Versionen
Aus Peter Jauernig Wiki
Pja (Diskussion | Beiträge) |
Pja (Diskussion | Beiträge) |
||
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| Zeile 11: | Zeile 11: | ||
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, 13: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
