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:

Private Sub cmdDaten4_Click()
geheDaten
End Sub

Private Sub cmdRueck4_Click()
springZurueck
End Sub

Private Sub cmdVor4_Click()
springVor
End Sub

Dabei 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 Sub

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?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 360419

Url: https://administrator.de/forum/steuerelemente-mit-code-zur-laufzeit-hinzufuegen-360419.html

Ausgedruckt am: 08.04.2025 um 13:04 Uhr

2 Kommentare

Neuester Kommentar

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.