collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 72
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 1
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14035
  • stats Beiträge insgesamt: 67213
  • stats Themen insgesamt: 9065
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Schaltfläche (Formularsteuerelement) in Zelle positionieren und anpassen  (Gelesen 227 mal)

Offline Pergus

  • Access-Profi
  • **
  • Beiträge: 130
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
Win7, Office Professional 2010
 

Offline Pergus

  • Access-Profi
  • **
  • Beiträge: 130
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
Win7, Office Professional 2010