Einheitenumrechnung mit VBA in Microsoft Excel

Die Worksheet-Funktion Convert() bietet eine große Anzahl an Umrechnungsmöglichkeiten für physikalische Einheiten. Es gibt sie erst seit Excel 2007. Dabei können Sie auch Einheiten mit Präfix nutzen, wie z. B. das „k“ für den Faktor 1.000 wie bei „km“. Die folgenden vier Zahlenwerte (Angaben für Entfernung, Energie, Temperatur und Druck) werden in eine andere Einheit umgerechnet. Gleichzeitig werden sie zur deutlicheren Darstellung, zusammen mit den Ergebnissen der Umrechnung, formatiert:

Sub Umrechnungen()
ThisWorkbook.Worksheets("Tabelle2").Activate
' 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

Meter zu Meile: 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 Kilometern angenommen wird.

Joule zu Kalorie: Eine Energieangabe wird im zweiten Fall aus Joule in Kalorie umgerechnet. Dazu sind die Angaben J und cal in Parameter 2 und 3 notwendig.

Celsius zu Fahrenheit: Im dritten Fall wird eine Temperaturangabe aus Grad Celsius ( C ) in Grad Fahrenheit ( F ) umgerechnet.

Luftdruck: Die letzte Umrechnung ermittelt eine (Luft-)Druckangabe in mm Quecksilbersäule ( mmHg ) aus Hektopascal ( hPa ). Das h ist dabei der Präfix für Hekto, also hundert.

Text im Format: Alle Zellen wurden passend formatiert. Zur Erinnerung: Eine Textangabe innerhalb eines Formats muss in zweifachen doppelten Anführungsstrichen stehen.

War die Erklärung zu "Einheitenumrechnung mit VBA in Microsoft Excel" hilfreich? Jetzt bewerten:
(5,00 Punkte aus bisher 1 Bewertungen)
Loading...

Weitere Erklärungen zu Skriptsprachen