Excel: Unterschied zwischen den Versionen

Aus Peter Jauernig Wiki
Wechseln zu: Navigation, Suche
 
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