Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon nok106 vom 30.09.2020, 10:33 Options

Zahlen umwandeln

Hallo Excelfreunde !

Gibt es hierfür eine Lösung ?

Beispiel:
Folgende Zahlengruppe soll in 13stellige Dezimalzahlen umgerechnet werden.

123456789123456
12,3456789123456
123456789123456
123456789123456
123456789123456
12345678912345
12,3456789123450
12345678912345
12345678912345
12345678912345

Das Original hat etwa 500 Zeilen!!

Ich habe mir ein Makro dafür erstellt, muß aber jede Zeile einzeln anklicken und dann umrechnen.

Option Explicit
Sub Umwandlung()
If ActiveCell < 10 ^ 14 Then
ActiveCell = ActiveCell * 10
End If
ActiveCell = ActiveCell / 10 ^ 13
ActiveCell.NumberFormat = "0.0000000000000"
End Sub

Hat jemand eine Idee ob man das in einem Rutsch machen könnte und wenn ja - Wie ?

Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

MfG Odje

Antwort schreiben

Antwort 1 von rainberg vom 30.09.2020, 11:34 OptionsLösung

Hallo Odje,

automatisiert könnte das so aussehen

Option Explicit

Sub Umwandlung()
    Dim rngC As Range
    For Each rngC In Range("A1:A500")
        If rngC.Value < 10 ^ 14 Then
            rngC.Offset(0, 1) = rngC.Value * 10
        End If
        rngC.Offset(0, 1) = rngC.Value / 10 ^ 13
        rngC.Offset(0, 1).NumberFormat = "0.0000000000000"
    Next
End Sub

Gruß
Rainer

Antwort 2 von nok106 vom 30.09.2020, 13:19 Options

Hallo Rainer,

für die schnelle Hilfe herzlichen Dank.

Genau, so sollte es sein!

Ich wünsche noch einen schönen Tag.

Gruß
Odje

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken