VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
xlKing

Datum:
19.01.2022 19:10:19

Views:
430

Rating:

Antwort:

Thema:
Routine Vereinfachen

Hi Niko,

Spontan fallen mir da gleich zwei Möglichkeiten ein:

Du könntest mit Application.Caller den Buttonnamen auslesen, der gedrückt wurde. Dieser müsste dann z.B. Button01 heißen. Damm mit der Right()-Funktion die letzten beiden Zeichen auslesen und in einen Wert umwandeln. Diesen dann nur noch wieder in die Tabelle eintragen.
Oder du übergibst an deine Sub Routine einen Parameter. Deine Routine lautet dann Sub Nummer(Parameter as Long) und dem Button gibst du über Makro Zuweisen z.B. den Namen 'Nummer 5' mit. Die 5 wird dann an den Paramter übergeben und kann ausgelesen werden. Achte unbedingt darauf, das Apostroph vor und hinter dem Text anzugeben, damit das auch funktioniert.

Gruß Mr. K.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen