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
Guten Morgen Excel-Gemeinde!
Jetzt hab' ich's:
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