Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kilo und Mega in Excel

Kilo und Mega in Excel
29.02.2004 19:35:21
Freak2435
Hallo erstmal,
Suche nach einer möglichkeit einen Wert wie z.B. 20k in einer Berechnung als 20000 zu nutzen. Vielleicht hat einer ein Script dafür oder So?
vielen Dank im Voraus
Freak2435

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kilo und Mega in Excel
29.02.2004 19:53:19
Ulf
Liegt das 20k als Zahl oder Text vor?
Ulf
AW: Kilo und Mega in Excel
29.02.2004 21:59:11
Josef Ehrensberger
Hallo ? (in diesem Forum sind Realnems üblich!)
Vieleicht hilft dir das!
Diesen Code in einem allgemeinen Modul!


Function Einheit(Zelle As Range) As Double
Select Case Right(Zelle, 1)
Case "E" 'Exa E 10^18 1Em   = 1 000 000 000 000 000 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 18
Case "P" 'Peta P 10^15 1Pm   = 1 000 000 000 000 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 15
Case "T" 'Tera T 10^12 1Tm    = 1 000 000 000 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 12
Case "G" 'Giga G 10^9 1Gm   = 1 000 000 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 9
Case "M" 'Mega M 10^6 1Mm   = 1 000 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 6
Case "k" 'Kilo k 10^3 1km    = 1 000m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 3
Case "h" 'Hekto h 10^2 1hm    = 100m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ 2
Case "d" 'Dezi d 10^-1 1dm    = 0,1m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -1
Case "a" 'prüfung ob "a" oder "da"
If Mid(Zelle, Len(Zelle) - 1, 1) = "d" Then
'Deka da 10^1 1dam  = 10m
Einheit = Left(Zelle, Len(Zelle) - 2) * 10 ^ 1
Else
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -18
'Atto a 10^-18 1am    = 0,000 000 000 000 000 001m
End If
Case "c" 'Zenti c 10^-2 1cm    = 0,01m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -2
Case "m" 'Milli m 10^-3 1mm   = 0,001m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -3
Case "µ" 'Mikro µ 10^-6 1µm    = 0,000 001m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -6
Case "n" 'Nanno n 10^-9 1nm    = 0,000 000 001m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -9
Case "p" 'Pico p 10^-12 1pm    = 0,000 000 000 001m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -12
Case "f" 'Femto f 10-15 1fm     = 0,000 000 000 000 001m
Einheit = Left(Zelle, Len(Zelle) - 1) * 10 ^ -15
Case Else
Einheit = Zelle
End Select
End Function

     Code eingefügt mit Syntaxhighlighter 2.5

Das sieht dann so aus!
Anzeige
AW: Kilo und Mega in Excel
01.03.2004 08:00:09
Freak2435 (christian)
Hilft mir auf jeden Fall weiter. Danke! Das mit n Name wusste Ich nich
mfg christian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige