Ich habe eine Togglebutton, der bei Aktivierung die Möglichkeit gibt, Zellen in bsp. rot einzufärben, wobei dieser diese Zellen zählt und diesen Wert in einer Userform und dort in einer Textbox ausgibt. In dieser Userform habe ich auch einen beenden Button, wo es so sein soll, dass beim Drücken dieses Buttons die über den Togglebutton ausgelöste Markierung wieder aufhebt. Wie kann ich so was umsetzen. Bekomme ich nicht hin !!!! Die Zählung läuft dann über die Formel countcolorcell !!
Hier der Code vom Togglebutton:
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell, x
Dim blau As Long
If ToggleButton1 = True Then
x = Target.Cells.Count
If x = 0 Then Exit Sub
For Each cell In Target
With cell.Interior
If .ColorIndex = 3 Then
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
Else
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ColorIndex = 3
.TintAndShade = 0
.PatternTintAndShade = 0
End If
End With
Next cell
frmAuswahl.Show (0)
ElseIf ToggleButton1 = False Then
End If
Application.CalculateFull
End Sub
Code Beenden Button:
Private Sub CommandButton3_Click()
Unload Me
End Sub
|