repetiven Code kürzen?

Hi Leute,
ich habe einen ewig langen repetiven VBA-Code fabriziert, hier ein Ausschnitt bei dem ich alles unwichtige weg gelassen habe:

Private Sub CommandButton_FA1a_Click()
myStat = "FA1a"
wks_Ausgabe.Range("G4").Value = myStat
End Sub
Private Sub CommandButton_FA1b_Click()
myStat = "FA1b"
wks_Ausgabe.Range("G4").Value = myStat
End Sub
Private Sub CommandButton_FA1c_Click()
myStat = "FA1c"
wks_Ausgabe.Range("G4").Value = myStat
End Sub
Private Sub CommandButton_FA1d_Click()
myStat = "FA1d"
wks_Ausgabe.Range("G4").Value = myStat
End Sub

Ich denke ihr seht das Muster - es soll immer der "Name" des geclickten Buttons in das Blatt übernommen werden. In Wahrheit hat der repetive Code 8 Zeilen und es sind fast 100 Buttons.
Natürlich könnte ich den Namen auch aus einer Listbox auslesen und dann weiter verwenden - aus verschiedenen Gründen möchte ich aber, dass der Name per Button ausgewählt wird.
Frage1: kann ich den Namen des geklickten Button irgendwie heraus finden? ActiveControl.Name oder sowas?
Frage2: kann ich das Click-Ereignis von 3 oder 5 oder 100 Buttons abfragen, ohne 100 Button-Private-Subs zu generieren? In Pseudocode stelle ich mir das so vor:

Sub AnyButton_clicked()
myStat = right(ActiveControl.ThatHasFocus.Name, 4)
wks_Ausgabe.Range("G4").Value = myStat
End Sub

Holzweg oder plausibel?
LG,
Klaus M.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton_FA1a_Click() Call Anmelden(Right(ActiveControl.Name, 4)) End Sub Private Sub CommandButton_FA1b_Click() Call Anmelden(Right(ActiveControl.Name, 4)) End Sub Sub Anmelden(myStat As String) wks_Ausgabe.Range("G4").Value = myStat [... weitere 8 Zeilen Code ...] End Sub

Hi
Es spricht nichts dagegen, das ohne Userform in einem Tabellenblatt mit Formularfeldbuttons zu machen (Vorschlag b)
Ist viel einfacher als in der Userform.
Du brauchst keine Klassenprogrammierung lernen, sondern RS reicht, dem Button das Makro über das Kontextmenü zuzuweisen.
Das geht auch in Mehrfachselektion, bzw wird beim Kopieren eines Buttons automatisch übernommen
Außerdem kannst du in einem Tabellenblatt jedes beliebige Grafikelement als Button zu verwenden, was es dir beispielsweise erlauben würde, unterschiedliche Stationstypen über unterschiedliche Grafiken darzustellen (Montagestation Rechteck, Roboter-Station Oval, Qualtätsprüfung Trapez), oder auch Gifs und Jpegs zu verwenden, oder selbst gestaltete Symbole (gruppierte Grafikelemente, z.B bei Stationen mit mehreren Mitarbeitern ein Kreis für jeden Mitarbeiter)
Außerdem hast du so Zusatzfunktionen wie Scrollen, Zoomen, Größe ändern, ausdrucken usw automatisch über das Tabellenblatt vorhanden und müssen nicht zusätzlich programmiert werden.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

repetiven Code kürzen?

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread