Dim AlteFarbe As Integer, MarkierteZelle As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If MarkierteZelle = "" Then
MarkierteZelle = Target.Address
AlteFarbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Else
If Range(MarkierteZelle).Interior.ColorIndex = 6 Then
Range(MarkierteZelle).Interior.ColorIndex = AlteFarbe
End If
AlteFarbe = Target.Interior.ColorIndex
MarkierteZelle = Target.Address
Target.Interior.ColorIndex = 6
End If
End Sub
Jetzt ist es so, das es wunderbar funktioniert, außer die Zellen sind verbunden. Gibt es da eine Lösung? Danke Euch, LG Fanny