Hallo,
ich habe einen Code der automatisch Zellen einfärbt, wo sich anschließend eine userform öffnet. Besteht die Möglichkeit, wenn ich in der Userform den
Beenden (zum Schließen der Userform) Button drücke, diese Markierung der Zellen wieder aufzuheben.
Hier der Code dazu:
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell, x
If ToggleButton3 = 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
Target.Value = "1"
test.Show (0)
ElseIf ToggleButton3 = False Then
End If
Application.CalculateFull
End Sub
Wer kann helfen ? Geht das überhaupt ? Ich bekomme es nicht geregelt !!!
Gruß
Alfons
|