title image


Smiley Jetzt habe ich es wohl verstanden!
Hallo Werner,



noch mal zu dem Ursprungsproblem zurück:

Wenn man das ein klein wenig erweitert, braucht man auch keinen 2. Klick mehr:







Private Sub SpinButton2_SpinUp()

SpinButton2.Max = 100 -[a1]

End Sub

Private Sub SpinButton1_SpinUp()

SpinButton1.Max = 100 -[b1]

End Sub

Private Sub SpinButton2_spindown()

SpinButton1.Max = 100 -[b1]

End Sub

Private Sub SpinButton1_Spindown()

SpinButton2.Max = 100 -[a1]

End Sub





Code eingefügt mit Syntaxhighlighter 4.0







Zu deiner 2. Frage:

Das würde ich so machen:







Private Sub SpinButton2_Change()

SpinButton1 = Application.Max(0,[e1] - SpinButton2)

End Sub



Private Sub SpinButton1_Change()

SpinButton2 = Application.Max(0,[e1] - SpinButton1)

End Sub



Private Sub SpinButton2_SpinUp()

SpinButton2.Max =[e1]

End Sub

Private Sub SpinButton1_SpinUp()

SpinButton1.Max =[e1]

End Sub







Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: