2
Steuerelemente (mit Code) zur Laufzeit hinzufügen
Hallo,
ich habe ein Excel-Sheet in dem die Tabellenblätter immer gleich aufgebaut sind.
Der Anwender fügt ein weiteres Tabellenblatt ein, gibt in Zelle 2,2 die Artikelnummer und als Blattbezeichnung die Produktbezeichnung ein und beim Neustart ermittelt das Programm in jedem Tabellenblatt die Bestände aller Varianten zu der im Tabellenblatt genannten Artikelnummern, siehe Bild.
Ich möchte nun, dass die 3 Buttons beim Programmstart selbst in jedes Tabellenblatt (32Stück, steigend) gesetzt werden. Die Button sollten dann sinngemäß wie folgt heißen und folgendes auslösen:
Dabei ist der auzuführende Code:
Wie können jetzt nach dem Start zuerst bis auf die Steuerelemente in Sheet(1) gelöscht werden und dann die 3 Buttons in jedes Tabellenblatt und der dahinterliegende Code geschrieben werden ?
Geht das?
ich habe ein Excel-Sheet in dem die Tabellenblätter immer gleich aufgebaut sind.
Der Anwender fügt ein weiteres Tabellenblatt ein, gibt in Zelle 2,2 die Artikelnummer und als Blattbezeichnung die Produktbezeichnung ein und beim Neustart ermittelt das Programm in jedem Tabellenblatt die Bestände aller Varianten zu der im Tabellenblatt genannten Artikelnummern, siehe Bild.
Ich möchte nun, dass die 3 Buttons beim Programmstart selbst in jedes Tabellenblatt (32Stück, steigend) gesetzt werden. Die Button sollten dann sinngemäß wie folgt heißen und folgendes auslösen:
Private Sub cmdDaten4_Click()
geheDaten
End Sub
Private Sub cmdRueck4_Click()
springZurueck
End Sub
Private Sub cmdVor4_Click()
springVor
End SubDabei ist der auzuführende Code:
Sub springVor()
Sheets(ActiveSheet.Index + 1).Select
End Sub
Sub springZurueck()
If ActiveSheet.Index > 1 Then Sheets(ActiveSheet.Index - 1).Select
End Sub
Sub geheDaten()
Sheets(1).Select
End SubWie können jetzt nach dem Start zuerst bis auf die Steuerelemente in Sheet(1) gelöscht werden und dann die 3 Buttons in jedes Tabellenblatt und der dahinterliegende Code geschrieben werden ?
Geht das?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 360419
Url: https://administrator.de/contentid/360419
Printed on: April 18, 2024 at 22:04 o'clock
2 Comments
Latest comment
Hi,
schau mal z.B. hier: How to add a button programmatically in VBA next to some sheet cell data? (erster Treffer bei Google)
Beachte dort auch ".OnAction = "btnS"" und "Sub btnS()"
E.
schau mal z.B. hier: How to add a button programmatically in VBA next to some sheet cell data? (erster Treffer bei Google)
Beachte dort auch ".OnAction = "btnS"" und "Sub btnS()"
E.
1
Danke schön. Hatte ich auch gesehen aber irgendwie onAction nicht wahrgenommen. Top, Danke!
