Office: In einer variablen Zählen

Guten Tag,
ich wollte eigentlich nur testweise ein simples Programm schreiben welches ich direkt ausführen kann ohne den Umweg über Excel +F11 gehen zu müssen.
Überraschender Weise war das Programm schwieriger umzusetzen als gedacht.

Was sollte das Programm können:
- Es gibt eine Userform mit einem CommandButton.
- Nach klicken des Buttons ändert sich der Name.

Soweit ist das ganze simpel über einen Caption Befehl zu lösen.
Nun soll der Button, bei weiteren Klicks aber wieder den Namen ändern.

Beispiel:
Erster klick = Button hat den Name "Wert1"
Zweiter klick = Button hat den Name "Wert2"
Dritter klick = Button hat den Name "hier könnte ihre Werbung stehen"
usw.
Ich denke das Prinzip ist klar. *biggrin.gif*

Meine Gedanken dazu waren einen Array mit den Buttonnamen zu füttern und den Wert dann über eine zweite Variable Schrittweise um +1 zu erhöhen.
So kannte ich es zumindest von einzelnen Zellen in Excel, wo das ganze ganz gut klappt. (z.B. [A1] = [A1] + 1 )

Wenn ich das Ganze aber nach dem Prinzip erstelle, wird der Wert immer nur einmal +1 gerechnet, egal wie oft der Button betätigt wird.
a = a +1
CommandButton1.Caption = Array(a)


Gruß
Timo

:)

 

Hallo!
Gültigkeit von Variablen?
Wenn Du a im CommandButton1_Click dimensionierst, kannst Du klicken, bis der nächste Sommer kommt!
Zeig mal den Code des UserForm.

Gruß Ralf

 

Danke für dein Hilfe, hier mein Code.
Gültigkeit der Variablen sagt noch mir nichts, ich beschäftige mich erst seit 1-2 Wochen mit VBA.
Ich werde aber versuchen mir die Infos bei Google raus zu suchen.

Code eingefügt mit:

 

Guten Morgen!
Dachte ich es mir doch!
Eigenzitat:

Du musst Dim Zaehler As Byte aus der Prozedur nehmen und in den Modulkopf, also oberhalb aller Prozeduren schreiben.
Schau mal hier herein:
https://de.wikibooks.org/wiki/VBA_in...und_Konstanten

Gruß Ralf

 

Damit Du beim sechsten Klick nicht in einen Fehler läufst, musst Du ihn abfangen.
Statt:
Code:

mache es so:
Code:

Gruß Ralf

 

Vielen Dank, es funktioniert nun alles wie geplant *Smilie
Der Link ist interessant, da werde mich mal weiter einlesen.

Gruß
Timo

 

Nachtrag.
Die Erweiterung funktioniert so nicht, es kommt die Fehlermeldung:
"Index außerhalb des gültigen Bereichs"

Ich habe es behoben indem ich =6 zu >5 geändert habe, also:

Code:

Gruß Timo