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