Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Drehfeld | Herbers Excel-Forum


Betrifft: Drehfeld von: Pasi
Geschrieben am: 23.01.2010 22:29:12

Hallo zusammen,

ich habe ein wahrsch. kleines Problem finde den Fehler aber derzeit nicht. Ich habe eine Userform mit verschiedenen Buttons. Probleme habe ich dabei mit einem SpinButton und einem Textfeld. Eigentlich möchte ich einfach über den SpinButton die Zahl im Textfeld herauf oder herunter zählen. Eigenartigerweise klappt das ganze aber nur immer einmal. Sprich von 0 auf 1 oder auf -1. Wo liegt mein Denkfehler?

Anbei mein Code: Würde mich freuen wenn mir jemand helfen könnte!

Private Sub UserForm_Activate()

Dim Lbwks As String
Dim Test As String
Dim zähllschwks As String

zähllschwks = 0

If (Cells(1, 1) - Cells(2, 3)) < 30 Then
Lbwks = 0

    Else:
    Lbwks = Round(((Cells(1, 1) - 30) - Cells(2, 3)) / 7, 0)
End If

zulöschendeWochen.Text = zähllschwks
LöschbareWochen.Text = Lbwks

End Sub

Private Sub SpinButton1_SpinUp()

'If zähllschwks < Lbwks Then
    zähllschwks = zähllschwks + 1
    zulöschendeWochen.Text = zähllschwks
'End If

End Sub

Private Sub SpinButton1_SpinDown()

'If zähllschwks > 0 Then
    zähllschwks = zähllschwks - 1
    zulöschendeWochen.Text = zähllschwks
'End If

End Sub

Danke!

  

Betrifft: AW: Drehfeld von: Pasi
Geschrieben am: 23.01.2010 23:54:45

Problem schon gelöst :-)


Beiträge aus den Excel-Beispielen zum Thema "Drehfeld"