Microsoft Office Tutorials and References
In Depth Information
10.2.10 RefEdit und Umschaltfeld
Der Programmcode:
Private Sub tglFarbe_Click()
If tglFarbe.Value Then
tglFarbe.BackColor = vbYellow
Else
tglFarbe.BackColor = vbWhite
End If
End Sub
Private Sub cmdÜbertragen_Click()
On Error GoTo Fehler
If tglFarbe.Value Then
Range(rfeZellbereich.Value).Interior. _
Color = vbYellow
Else
Range(rfeZellbereich.Value).Interior. _
Pattern = xlNone
End If
Exit Sub
Fehler:
MsgBox "Es wurde kein Bereich ausgewählt"
End Sub
Private Sub cmdEnde_Click()
Unload Me
End Sub
Zur Erläuterung:
Beim Betätigen des Umschaltfelds wechselt der Wert der Eigenschaft
Value von True auf False bzw. umgekehrt. Zur deutlicheren Darstel-
lung wird gleichzeitig die Farbe des Umschaltfelds gewechselt. Falls es
eingeschaltet ist, also vertieft dargestellt wird, dann ist es gelb, ansons-
ten weiß.
Umschaltfeld
Beim Betätigen des Buttons Übertragen wird der ausgewählte Zellbe-
reich entweder gelb eingefärbt oder ohne Muster dargestellt. Da es mög-
lich ist, im RefEdit-Feld etwas einzutragen, was keinem Zellbereich ent-
spricht, muss dies mit Hilfe von On Error abgefangen werden.
Button
»Übertragen«
Search JabSto ::




Custom Search