Hallo Leute,
Hab mal dringend eine Frage
Ich kann diesen Makro nicht starten weil da steht else ohne if.
Kann mir jemand helfen ?
Grüße
Aron
Option Explicit
Sub Einheiten_umrechnen()
Dim Zahl As Long
Dim Starteinheit As Long
Dim Zieleinheit As Long
Dim kubikmillimeter1 As Long
Dim kubikzentimeter1 As Long
Dim kubikdezimeter1 As Long
Dim kubikmeter1 As Variant
Dim kubikmillimeter2 As Long
Dim kubikzentimeter2 As Long
Dim kubikdezimeter2 As Variant
Dim kubikmeter2 As Variant
Zahl = InputBox("Bitte geben Sie Ihren Zahlenwert ein", " Eingabe der Zahl ")
Starteinheit = InputBox("Bitte geben Sie L für Liter oder mL für Milliliter als Ihre Starteinheit ein", "Starteinheit")
Zieleinheit = InputBox("Bitte geben Sie mm^3,cm^3,dm^3 oder m^3 als Ihre Zieleinheit ein", "Zieleinheit")
If Starteinheit = "L" Then
Select Case Zieleinheit
Case "mm^3"
kubikmillimeter1 = Zahl * 10 ^ 6
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikmillimeter1 & "mm^3")
Case "cm^3"
kubikzentimeter1 = Zahl * 10 ^ 3
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikzentimeter1 & "cm^3")
Case "dm^3"
kubikdezimeter1 = Zahl
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikdezimeter1 & "dm^3")
Case "m^3"
kubikmeter1 = Zahl * 10 ^ -3
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikmeter1 & "m^3")
Case Else
MsgBox "Hier stimmt was nicht"
Exit Sub
Else
Select Case Zieleinheit
Case "mm^3"
kubikmillimeter2 = Zahl * 10 ^ 3
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikmillimeter2 & "mm^3")
Case "cm^3"
kubikzentimeter2 = Zahl
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikzentimeter2 & "cm^3")
Case "dm^3"
kubikdezimeter2 = Zahl * 10 ^ -3
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikdezimeter2 & "dm^3")
Case "m^3"
kubikmeter2 = Zahl * 10 ^ -6
MsgBox ("Ihre gewünschte umgewandelte einheit beträgt" & kubikmeter2 & "m^3")
Case Else
MsgBox "Hier stimmt was nicht"
Exit Sub
End Select
End If
End Sub
|