Schaltfläche (Formularsteuerelement) in Zelle positionieren und anpassen

[Pergus]

Hallo liebe Excel-Gemeinde,

ein Makro erstellt mir eine neue Tabelle ("Kunden") in die 5 Schaltflächen (Formularsteuerelemente) platziert werden sollen,
und zwar in folgenden Zellen:

- A1 (= cells(1,1))
- AC1 (= cells(1,29))
- AE1 (= cells(1,31))
- AG1 (= cells(1,33))
- AN1 (= cells(1,40))

Zudem wird jede Schaltfläche "benannt" (Schriftfarbe: rot, Schriftart: fett und Schriftgrad: 10) und jeweils ein Makro zugewiesen:

- Schaltfläche in A1 (Name: "Stammdaten schließen", Makro: "Gruppierungen_schliessen")
- Schaltfläche in AC1 (Name: "Stammdaten anzeigen", Makro: "Gruppierungen_Oeffnen")
- Schaltfläche in AE1 (Name: "KUNDEN-SUCHE", Makro: "KundenSuche")
- Schaltfläche in AG1 (Name: "ALLE KUNDEN", Makro: "AlleKundenAnzeigen")
- Schaltfläche in AN1 (Name: "SCHLIESSEN", Makro: "Beenden")

Da die Namen der Schaltflächen recht lang sind wird die Zeilenhöhe auf 30,00 (40 Pixel) erhöht.

Jede Schaltfläche soll nun an die Höhe und Breite der jeweiligen Zelle angepasst werde und an diese gebunden sein,
da Gruppierungen in diese Tabelle erstellt werden und die Schaltflächen "auf ihrem Platz" bleiben sollen, sodass beim auf-, bzw. zuklappen der Gruppierung die Schaltfläche in der vorgesehenen Zelle bleibt.

Ich bekomme es einfach nicht hin... wer kann hier helfen?

Vielen Dank schon mal im Voraus!

Lg aus Südtirol
Gustav

[Pergus]

Guten Morgen Excel-Gemeinde!

Jetzt hab' ich's:

Code [Auswählen] Erweitern

Sub ButtonsErstellen()
Application.ScreenUpdating = False
    Rows("1:1").Select
    Selection.RowHeight = 30
With Worksheets("Kunden")
    .Buttons.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width, Cells(1, 1).Height).Select
        Selection.Caption = "Stammdaten schließen"
        Selection.OnAction = "Gruppierungen_schliessen"
            With Selection.Characters(Start:=1, Length:=20).Font
                .Name = "Calibri"
                .FontStyle = "Fett"
                .Size = 10
                .ColorIndex = 3
            End With
    .Buttons.Add(Cells(1, 29).Left, Cells(1, 29).Top, Cells(1, 29).Width, Cells(1, 29).Height).Select
        Selection.Caption = "Stammdaten anzeigen"
        Selection.OnAction = "Gruppierungen_Oeffnen"
            With Selection.Characters(Start:=1, Length:=19).Font
                .Name = "Calibri"
                .FontStyle = "Fett"
                .Size = 10
                .ColorIndex = 3
            End With
    .Buttons.Add(Cells(1, 31).Left, Cells(1, 31).Top, Cells(1, 31).Width, Cells(1, 31).Height).Select
        Selection.Caption = "KUNDEN-SUCHE"
        Selection.OnAction = "KundenSuche"
            With Selection.Characters(Start:=1, Length:=12).Font
                .Name = "Calibri"
                .FontStyle = "Fett"
                .Size = 10
                .ColorIndex = 3
            End With
    .Buttons.Add(Cells(1, 33).Left, Cells(1, 33).Top, Cells(1, 33).Width, Cells(1, 33).Height).Select
        Selection.Caption = "ALLE KUNDEN"
        Selection.OnAction = "AlleKundenAnzeigen"
            With Selection.Characters(Start:=1, Length:=11).Font
                .Name = "Calibri"
                .FontStyle = "Fett"
                .Size = 10
                .ColorIndex = 3
            End With
    .Buttons.Add(Cells(1, 40).Left, Cells(1, 40).Top, Cells(1, 40).Width, Cells(1, 40).Height).Select
        Selection.Caption = "SCHLIESSEN"
        Selection.OnAction = "Beenden"
            With Selection.Characters(Start:=1, Length:=11).Font
                .Name = "Calibri"
                .FontStyle = "Fett"
                .Size = 10
                .ColorIndex = 3
            End With
End With
Application.ScreenUpdating = True
End Sub


Lg aus Südtirol
Gustav