Private Sub anzahl_jeep_b_Change()
    [Fahrzeuge!c2] = anzahl_jeep_b.Text
    If Range("Fahrzeuge!c2").Value > 2 Then
    MsgBox "Der Wert von 2 Wurde überschritten! Bitte den entsprechenden Wert" & _
      "ändern!"
    [Fahrzeuge!c2] = 0
    anzahl_jeep_b = 0
    End If
End Sub

Private Sub anzahl_il2_b_Change()
    [Flugzeuge!c4] = anzahl_il2_b.Text
    If Range("Flugzeuge!c4").Value > 2 Then
    MsgBox "Der Wert von 2 Wurde überschritten! Bitte den entsprechenden Wert" & _
      "ändern!"
    [Flugzeuge!c4] = 0
    anzahl_il2_b = 0
    End If
End Sub

'Private Sub worksheet_selectionchange(ByVal target As Excel.Range)
Private Sub worksheet_change(ByVal target As Range)
    userform1.kontostand_rot.Text = [A28]
    userform1.kontostand_blau.Text = [A27]
    userform1.kosten_rot.Text = [A19]
    userform1.kosten_blau.Text = [A18]
End Sub