leider geht das Teil nicht.
Ich wollte das es bei der Einstellung Einfeldträger(Kombobox),
das es mir die Zlle b13 zu Null setzt. Und bei einer anderen Einstellung wieder eine Zahl zum eingeben.
Kann mir jemand weiterhelfen?
Danke im voraus.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "A5" Then
Application.EnableEvents = False
Select Case Target.Value
Case "Einfeldträger"
Cells(13, 2).Value = 0
Case "Zweifeldträger"
Cells(15, 2).Value = 0
End Select
Application.EnableEvents = True
End If
End Sub