VBA Code kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,

versuch es hiermit:
https://www.herber.de/bbs/user/168165.xlsm

Im Klick-Ereignis jedes Tgl-Buttons steht nun:



Private Sub ToggleButton2_Click()

    

    With ToggleButton1

        sbChgVal .Name, .Caption, .Value

    End With



End Sub



Private Sub ToggleButton2_Click()

    

    With ToggleButton2

        sbChgVal .Name, .Caption, .Value

    End With



End Sub



Private Sub ToggleButton3_Click()



    With ToggleButton3

        sbChgVal .Name, .Caption, .Value

    End With



End Sub

Achte darauf, dass hinter jedem WITH der richtige Name des Tgl-Buttons steht, den du gerade angeklickt hast!

Nach Klick auf einen der Button wird das Makro sbChgVal aufgerufen, welches die Werte "ButtonName", "ButtonText" und "ButtonZustand" als Parameter erhält.



Sub sbChgVal(ByVal tgbname As String, ByVal wert As Integer, ByVal zustand As Boolean)



    With ActiveSheet

        If zustand = True Then

                .ToggleButton1.ForeColor = RGB(255, 0, 0)

'                ActiveSheet.ToggleButton1.Caption = "5" 'wozu dem Tglbutton - noch mal - den Wert zuweisem, den er doch schon hat???

                .Range("B2").Value = Range("B2").Value + wert

            Else

                .ToggleButton1.ForeColor = RGB(0, 0, 0)

'                ActiveSheet.ToggleButton1.Caption = "5" 'wozu dem Tglbutton - noch mal - den Wert zuweisem, den er doch schon hat???

                .Range("B2").Value = Range("B2").Value - wert

        End If

    End With



End Sub

In Abhängigkeit der Parameter wird jeweils der richtige Button rot gefärbt und die Zelle B2 erhält entweder + Wert des Buttons oder - Wert des Buttons.

Deine Aufgabe ist nun....einfach!

Füge einfach jedem weiteren Tgl-Button ins Klick-Ereignis die einzigen 3 Codezeilen hinzu, die auch in den 3 Tgl-Button enthalten sind.
...noch mal...achte darauf, dass immer der richtige Tgl-Button-Name hinter WITH steht!!

Hilfts?
muss ja, denn wenns mit den 3 Button funktioniert, wieso sollte es nich auch mit Button 4,5,6 usw funktionieren...

Ciao
Thorsten

Hi

du kannst statt der ActiveX-Controls auch Formularfeldbuttons verwenden.
bei Formularfeldbuttons schreibst du das Makro, das bei Klick ausgeführt werden soll, in ein allgemeines Modul und weist des dann dem Button zu. Dabei kannst du das selbe Makro auch mehreren Buttons zuweisen (dh du brauchst für viele Buttons trotzdem nur ein Makro) und wenn du einen Button mit Makro kopierst, dann hat auch die Kopie dieses Makro. Damit du bei mehreren Buttons unterschiedlich reagieren kannst, kannst du in diesem Makro mit Application.Caller den Namen des aufrufenden Buttons ermitteln.
mit ActiveSheet.Shapes(Application.Caller).TopLeftCell bekommst du die Zelle, in welcher sich die linke obere Ecke des aufrufenden Buttons befindet, so dass du davon ausgehend dann berechnen kannst, in welcher Zelle dieser Button den Wert verändern muss.

Die Formularfeldbuttons haben zwar keinen ToggleButton, aber da du ja sowieso die Textfarbe ändern willst, kannst du darüber ermitteln, welchen Zustand der Button hat, so dass du mit dem einfachen Commandbutton einen ToggleButton simulieren kannst.

noch einfacher wäre, du verzichtest ganz auf Buttons und nutzt das BeforeDoubelClick-Event, um mit einem Doppelklick auf eine Zelle ein Makro zu starten.
auch hier bekommst du über die Variable Target die angeklickte Zelle, welche du dann verwenden kannst, um die entsprechende Aktion auszuführen.

Das wären mal zwei andere Ansätze.
AcitveX-Controls sind nicht geeignet, wenn man viele und das auch noch in variabler Anzahl benötigt. Um das zu beherrschen, müsstest du Klassenprogrammierung lernen, und das ist vom Niveau her mindestens eine Stufe weiter.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code kopieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread