Kilo und Mega in Excel

Forumthread: Kilo und Mega in Excel

29.02.2004 20: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

AW: Kilo und Mega in Excel

29.02.2004 20:53:19

Ulf
AW: Kilo und Mega in Excel

29.02.2004 22:59:11

Josef Ehrensberger
AW: Kilo und Mega in Excel

01.03.2004 09:00:09

Freak2435 (christian)

AW: Kilo und Mega in Excel

29.02.2004 20:53:19

Ulf

Liegt das 20k als Zahl oder Text vor?
Ulf

AW: Kilo und Mega in Excel

29.02.2004 22: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!

Forumthread: Kilo und Mega in Excel

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread