Excel

Aus Peter Jauernig Wiki
Wechseln zu: Navigation, Suche

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