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