Office: Aussetzer bei CommandButton

Hallo Leute, bitte um eure Hilfe! (Excel 2010, VBA)

Ich habe ein kleines, aber lästiges Problem mit dem CommandButton (über VBA in einer Userform integriert). Ich habe zwei Buttons, einmal "+" und einmal "-", damit sollen in einer Liste angeordnete Textboxen der Reihe nach einzeln ein- (+) und ausgeblendet (-) werden.

Drücke ich also 2 mal auf + dann werden 2 neue Textboxen eingeblendet, drücke ich auf - dann wird eine textbox wieder ausgeblendet. dadurch will ich variabel eine liste von 10 textboxen ein/ausblenden, also immer wieviel ich gerade brauche.
wenn die maximale anzahl an textboxen erreicht ist, dann wird der "+"-button ausgeblendet, bei 0 textboxen der "-"-button.

im prinzip funktioniert das alles mit folgendem code:
(nur für +Button, - Button ist ähnlich)


Private Sub CommandButton3_Click()
Dim i As Byte

For i = 1 To 10
If Controls("Textbox" & i).Visible = True And Controls("Textbox" & i + 1).Visible = False Then
Controls("Textbox" & i + 1).Visible = True
If TextBox10.Visible = True Then
CommandButton3.Visible = False
End If
Exit For
End If
Next i
End Sub

Also eigentlich ein recht simpler Code, aber jetzt mein Problem:
der "+"-Button funktioniert NICHT regelmäßig (genauso wie der "-"-Button), soll heißen, wenn ich auf + drücke passiert oft nichts, die prozedur wird also nicht durchgelaufen. erst wenn ich ein 2tes mal auf + klicke wird eine zusätzliche textbox eingeblendet

ich konnte noch keine regelmäßigkeit feststellen, oft wird jedes mal wenn ich + drücke sofort eine zusätzliche textbox angezeigt, bis zum maximum von 10, und ein anderes mal muss ich fast für jede zusätzlich sichtbare textbox ein zweites mal auf + klicken, da beim ersten mal nix passiert ist

hoffe ich habe das anschaulich genug erklärt und es kann mir jemand helfen, vielen vielen dank!

bitte neben lösungsvorschläge auch darum, mir zu sagen, was genau ich in meinem code falsch habe, damit ich aus den fehlern lernen kann, danke sehr


EDIT: Ok, konnte das Problem insofern reproduzieren, dass es nur auftritt, wenn man etwas schneller hintereinander auf den selben Button klickt. wenn man sich zwischen den einzelnen klicks 1-2 sec zeit lässt tritt der fehler nicht auf. jedoch wäre ich trotzdem um eine lösung dafür froh, da einem die notwendige klickgeschwindigkeit, dass der fehler nicht auftritt seeehr langsam vorkommt... und da das programm dann an meine mitarbeiter weitergegeben werden soll, dann mag ich denen nicht sagen müssen, "bitte langsam klicken" *Smilie (wenn man jedes mal wenn man zu schnell war, doppelt klicken muss, das ist lästig und für ein firmeninternes berechnungsprog nicht gerade professionell)

EDIT2: Nach dem weiteren Durchforsten des Inets bin ich draufgekommen, dass dies damit zu tun hat, dass die ansprechzeit des commandbuttons diesbezüglich so angesetzt ist, dass er zwischen doppelklick und singleklick unterscheiden kann, klicke ich also zu schnell, erkennt der commandbutton dies fälschlicherweise als doppelklick, wofür keine prozedur hinterlegt ist
soll ich also einfach dieselbe funktion auch für den doppelklick hinterlegen? (falls das überhaupt geht) oder wüsste jemand bitte eine saubere lösung? DANKE

:)

 

Hallo ???

die Ansprechzeit musst Du schon abwarten. Aber vielleicht reicht ja schon ein etwas anderer Code Code:

 

Moin
Hast du es schon mit dem MouseUp versucht?
Ansonsten geht es noch mit einen Drehfeld
Einstellungen: Min=1 Max = 11
Code:

gruss hary

 

vielen dank für eure lösungsvorschläge!
hilft mir schon sehr weiter!

@haklesoft: interessant wieso das problem bei deinem code nicht auftaucht und bei meinem schon, könntest du mir bitte erklären wieso? bin leider vba-mäßig noch ziemlich ein anfänger und habe noch probleme den code richtig zu verstehen

@hary: das mit dem spinbutton ist genau das was ich gesucht habe, danke, mit mouseup passiert oft, dass bei zu schnellem klicken zu viele textboxen nacheinander sichtbar gemacht werden

 

Moin

Waerst du mein Sohn wuerd ich sagen:
Lass die Ballerspiele oder warte auf Rheuma in den Fingern. ;-))) LOL
gruss hary

 

Ich vermute mal, dass das mehrfache Heranziehen der Controlsauflistung innerhalb der Schleife einfach mehr Zeit braucht und wenn dann schon der nächste Klick gefeuert wird, greift VBA bremsend ein. Ich hab es noch ein wenig verschlankt und deaktiviere nun den gerade geklickten Button bis der ganze Code durchlaufen ist. Das macht es noch einmal deutlich schneller, allerdings nicht so schnell wie mit einem SpinButton.: Code: