Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1228to1232
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
Inhaltsverzeichnis

Label.Caption

Label.Caption
Gerhard
Hallo
bitte um VBA Hilfe
Wie kann ich alle Label.Caption mit einem Optionsbutton
Ein und wieder Ausschalten
siehe Beispiel
Vielen Dank für Eure Hilfe
Gerhard
https://www.herber.de/bbs/user/76642.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Label.Caption
16.09.2011 07:22:40
gerhard
Hallo Herby
Vielen Dank...
geht das Ein und Aus auch nur mit einen Optionsbutton (Toogle-Funktion?)
Gruß Gerhard
AW: Label.Caption
16.09.2011 08:22:14
hary
Moin Gerhard
Hier mal mit AktiveX Umschaltflaeche.
AktiveX Umschaltflaeche einfuegen und den Code.

Private Sub ToggleButton1_Click()
ToggleButton1.Caption = IIf(ToggleButton1, "aus", "ein")
Label1.Caption = IIf(ToggleButton1, Chr$(163), "R")
Label2.Caption = IIf(ToggleButton1, Chr$(163), "R")
Label3.Caption = IIf(ToggleButton1, Chr$(163), "R")
Label1_Click
Label2_Click
Label3_Click
End Sub

gruss hary
Anzeige
AW: Label.Caption
16.09.2011 09:39:05
Reinhard
Hallo Gerhard,
Im Modul des Blattes:

Option Explicit
Private Sub Label1_Click()
Call Geklickt(Label1)
End Sub
Private Sub Label2_Click()
Call Geklickt(Label2)
End Sub
Private Sub Label3_Click()
Call Geklickt(Label3)
End Sub
Private Sub Label5_Click()
Label5.Caption = IIf(Label5.Caption = Chr$(163), "R", Chr$(163))
Call Geklickt(Label1, 1)
Call Geklickt(Label2, 1)
Call Geklickt(Label3, 1)
End Sub

In einem Standardmodul wie Modul1:

Option Explicit
Public globalBoolLabel1Ausgewählt As Boolean
Sub Geklickt(Label, Optional bytAlle As Byte)
Dim bolEinAus As Boolean
With Worksheets("Messwerte")
bolEinAus = IIf(bytAlle = 1, .Label5.Caption = Chr$(163), Label.Caption = Chr$(163))
Application.ScreenUpdating = False
Application.EnableEvents = False
Label.Caption = IIf(bolEinAus, "R", Chr$(163))
globalBoolLabel1Ausgewählt = bolEinAus
With .Range("B" & Right(Label.Name, 1))
.Value = IIf(bolEinAus, "Ein", "Aus")
.Interior.ColorIndex = IIf(bolEinAus, 35, 22)
End With
.Columns("D").Hidden = IIf(bolEinAus, False, True)
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Kann sein daß ich da mit der Ein/Aus-Logik durcheinander kam :-)
Warum der Code so lange braucht ist mir schleierhaft, vielleicht lahmt nur mein Excel2000 bzw. WinXP K.A.
Gruß
Reinhard
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige