Excel: Unterschied zwischen den Versionen
Aus Peter Jauernig Wiki
Pja (Diskussion | Beiträge) |
Pja (Diskussion | Beiträge) |
||
Zeile 19: | Zeile 19: | ||
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