| A | B | |
| 1 | inch | cm |
| 2 | 1 | 2,54 |
| 3 | 0,5 | 1,27 |
| 4 | 0,393700787 | 1 |
| Formeln der Tabelle | ||||||||
|
Function Mach(rng As Range, VonEinheit As String, InEinheit As String) As Double
Dim wert As Double
'umwandeln in mm
Select Case VonEinheit
Case "mm"
wert = rng.Value
Case "inch"
wert = rng.Value * inch
Case "fuss"
wert = rng.Value * (inch * 12)
Case "yard"
wert = rng.Value * (inch * 36)
Case "pole"
wert = rng.Value * (inch * 198)
Case "chain"
wert = rng.Value * (inch * 792)
Case "furlong"
wert = rng.Value * (inch * 7920)
Case "mile"
wert = rng.Value * (inch * 63360)
Case Else
Error xlErrName: Exit Function
End Select
'umwandeln in neue Einheit
Select Case InEinheit
Case "mm"
Mach = wert
Case "inch"
Mach = wert / inch
Case "fuss"
Mach = wert / (inch * 12)
Case "yard"
Mach = wert / (inch * 36)
Case "pole"
Mach = wert / (inch * 198)
Case "chain"
Mach = wert / (inch * 792)
Case "furlong"
Mach = wert / (inch * 7920)
Case "mile"
Mach = wert / (inch * 63360)
Case Else
Error xlErrName
End Select
End Function