Microsoft Office Tutorials and References
In Depth Information
8.5.2 Einheitenumrechnung
' Entfernung
Range("A2").Value = Application.WorksheetFunction. _
Convert(Range("A1").Value, "km", "mi")
Range("A1").NumberFormatLocal = "0,000 ""Km"""
Range("A2").NumberFormatLocal = "0,000 ""Miles"""
' Energie
Range("A5").Value = Application.WorksheetFunction. _
Convert(Range("A4").Value, "J", "cal")
Range("A4").NumberFormatLocal = "0,00 ""J"""
Range("A5").NumberFormatLocal = "0,000 ""cal"""
' Temperatur
Range("A8").Value = Application.WorksheetFunction. _
Convert(Range("A7").Value, "C", "F")
Range("A7").NumberFormatLocal = "0,0 ""Grad C"""
Range("A8").NumberFormatLocal = "0,0 ""Grad F"""
' Druck
Range("A11").Value = Application.WorksheetFunction. _
Convert(Range("A10").Value, "hPa", "mmHg")
Range("A10").NumberFormatLocal = "0,000 ""hPa"""
Range("A11").NumberFormatLocal = "0,000 ""mm HG"""
End Sub
Zur Erläuterung:
Im ersten Fall wird eine Entfernungsangabe aus Metern in britische
Meilen umgerechnet. Dazu sind die Angaben km und mi in Parameter
2 und 3 notwendig. Der Präfix k sorgt dafür, dass der Wert in Kilome-
tern angenommen wird.
Meter zu Meile
Abbildung 8.32
Meter zu Meile
Eine Energieangabe wird im zweiten Fall aus Joule in Kalorie umge-
rechnet. Dazu sind die Angaben J und cal in Parameter 2 und 3 not-
wendig.
Joule zu Kalorie
Search JabSto ::




Custom Search