Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema Userform | |
|---|---|
 Screenshot zu Userform |
Userform-Seite mit Beispielarbeitsmappe aufrufen |
| Informationen und Beispiele zum Thema SpinButton | |
|---|---|
 Screenshot zu SpinButton |
SpinButton-Seite mit Beispielarbeitsmappe aufrufen |
Drehfeld | Herbers Excel-Forum
- Drehfeld von Pasi vom 23.01.2010 22:29:12
- AW: Drehfeld - von Pasi am 23.01.2010 23:54:45
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 SubPrivate Sub SpinButton1_SpinUp()
'If zähllschwks < Lbwks Then
zähllschwks = zähllschwks + 1
zulöschendeWochen.Text = zähllschwks
'End If
End SubPrivate 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 :-)