Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Steuerelement Schaltfläsche Position

Steuerelement Schaltfläsche Position
Benny
Hallo ich habe auf einer Seite ca 58 Buttons, die im Grunde alle das selbe mache. Ein Userform aufrufen und eine Variable weiter geben, (rowtoupdate) also das ich die Zeile in der sich der Button befindet im Code nutzen kann. Ich habe also auch 58 mal den Code geschrieben.
ich wollte nun den Code irgendwie mal Optimieren das ich nicht so viel von dem selben kram habe. Mein Problem ist aber nun, wie lese ich die genaue Position (bzw die Zeile), des Buttons aus das ich ihn in der Variable benutzen kann.
Hier der Code von Button 1,
Sub btnSkill1_Klikk()
skillForm.rowToUpdate = 12
skillForm.Show
End Sub
der 2te heißt dann eben
Sub btnSkill2_Klikk()
skillForm.rowToUpdate = 14
skillForm.Show
End Sub

das geht eben für alle 58 immer so weiter
Ich denke es gibt sicher eine möglichkeit das alles in einem kurzen Code zu machen dann würden alle 58 Buttons den selben Code starten aber eben mit dem unterschied das ich je nachdem welcher der 58 Buttons gedrückt wird, ein zur Zeile passenden
skillForm.rowToUpdate bekomme. Auf der Seite sind aber noch ein paar andere Buttons, die eine andere Funktion haben.
Geht sowas?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Steuerelement Schaltfläsche Position
15.03.2010 15:08:40
Renee
Hi Benny,
Nimm Schaltflächen aus der Formular-Symboleleiste.
Weisse allen das gleiche Makro zu:
Sub SchaltflächeKlick()
skillForm.rowToUpdate = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
skillForm.Show
End Sub
GreetZ Renée
AW: Steuerelement Schaltfläsche Position
15.03.2010 16:43:14
Benny
ich danke dir, das war Perfekt. habe lediglich diese Zeile etwas angepasst, das ich die GENAUE Zeile des Buttons bekomme, zumindest bei meiner Gruppierung
skillForm.rowToUpdate = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
zu
skillForm.rowToUpdate = ActiveSheet.Shapes(Application.Caller).TopLeftCell.offset(1, 0).Row
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige