VBA Code
03.05.2017 21:19:30
BuStue
folgender Code bereitet mir Probleme:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row 1 Then Exit Sub
With Target
If .Interior.Color = 255 Then
.Interior.Color = xlNone
Else
.Interior.Color = 255
End If
End With
cancel = True
End Sub
------
Die zweite Zeile wird rot dargestellt. Fehlermeldung:
Fehler beim Kompilieren:
Syntaxfehler
Wer kann mir helfen.
Eigentlich sollte jede x-blibige Zelle bei Doppelklick einen gelben Hintergrund erhalten. Bei wiederholten Doppelklick wieder die ursprüngliche Farbe.
Für Eure Hilfe dankbar
mit freundlichen Grüßen
Burghard