Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Togglebutton mit gleicher caption

Mehrere Togglebutton mit gleicher caption
21.10.2006 10:56:55
Karsten Jung
Hi
Ich habe mehrere Togglebuttons die alle die gleiche Caption bekommen sollen.
Bis jetzt habe ich immer für jeden die selbe sache nochmal geschrieben.

Private Sub ToggleButton1_Change()
If ToggleButton1.Value = False Then ToggleButton1.Caption = "Anwesend"
If ToggleButton1.Value = True Then ToggleButton1.Caption = "Urlaub"
End Sub



Private Sub ToggleButton10_Click()
If ToggleButton10.Value = False Then ToggleButton10.Caption = "Anwesend"
If ToggleButton10.Value = True Then ToggleButton10.Caption = "Urlaub"
End Sub

USW....
Geht das auch einfacher?
MfG
Karsten

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Togglebutton mit gleicher caption
21.10.2006 13:20:43
Oberschlumpf
Hi Karsten
Auch wenn Nepumuk schneller war, will ich meinen Senf (meine Idee) trotzdem los werden :-)
Versuch es mal so:
In all deine Click-Ereignisse schreibst du rein:

Private Sub ToggleButton1_Change()
UrlaubAnwesend
End Sub

Und dann schreibst du dieses Makro noch in ein allgemeines Modul:

Sub UrlaubAnwesend()
Dim TB As Object
For Each TB In USERFORMNAME.Controls 'für userformname musst du DEN Namen deiner UF eintragen
If TypeName(TB) = "ToggleButton" Then
If TB.Value = False Then
TB.Caption = "Anwesend"
Else
TB.Caption = "Urlaub"
End If
End If
Next TB
End Sub

Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Mehrere Togglebutton mit gleicher caption
21.10.2006 15:30:59
Karsten Jung
Hi Thorsten
Deine Variante klappt bei mir super, da ich die Knöpfe in einer Userform habe.
Danke vielmals.
MfG
Karsten
AW: Mehrere Togglebutton mit gleicher caption
21.10.2006 15:52:33
Daniel Eisert
Hallo
"... da ich die Knöpfe in einer Userform habe."
warum schreibtst du das nicht gleich in deine Anfrage rein?
dann hätte ich über meinen Weg gar nicht erst nachdenken müssen.
Gruß, Daniel
AW: Mehrere Togglebutton mit gleicher caption
21.10.2006 15:54:21
Karsten Jung
Hi
Tut mir leid.
Hatte ich vergessen.
MfG
Karsten
AW: Mehrere Togglebutton mit gleicher caption
21.10.2006 13:45:09
Daniel Eisert
Hallo
wenn du mehrere Buttons hast, für die alle fast gleiche Makros ausgeführt werden sollen, wäre es fast günstiger, du verwendest statt der Togglebuttons ganz normale Grafik-Elemente, denen du ein Makro zuweist.
Das hat zwar den Nachteil, daß du die Togglebutton-Funktion in dem Makro nachprogrammieren musst, aber da du dann innerhalb dieses Makros mit APPLICATION.CALLER den Namen des aufrufenden Objekts abfragen und im weitern Progammcode verwenden kannst, benötigst du nur EIN Makro, das alle Schalter gemeinsam verwenden.
Bei mehreren Schaltern kann das das den etwas höheren Programmieraufwand schnell rechtfertigen.
Wichtig ist hierbei auch noch die die Funktion: Activesheet.Shapes("xxx").TopLeftCell
mit der du die Postion des aufrufenden Elements abfragen kannst.
Schau dir mal das beispiel an: https://www.herber.de/bbs/user/37562.xls
Um weitere Schalter hinzuzufügen, einfach ein Grafik-Element einfügen und im Kontextmenü das Makro zuweisen.
Gruß, Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige