Intersect Problem bei Spielfeld
26.03.2018 18:40:15
Shazam
ich bin gerade dabei ein Spielfeld für ein Quiz mit Excel zu schreiben, bin auch fast fertig, nur hakt es an einer Stelle und ich komme mit meinen eher mäßigen VBA-Kenntnissen nicht weiter. Und Auch die Suche im Internet konnte mir erstmal nicht weiterhelfen.
(ich weiß nicht wie ich hier ein Bild einfüge, deswegen eine kurze Beschreibung)
Es gibt eine farbige Punktetafel (eingefärbte Zellen mit weißer Schrift), an welcher sich die Spieler orientieren sollen, welche Fragen schon gestellt wurden und welche nicht. Zu diesem Zweck soll sich die Farbe der Schrift innerhalb dieses Bereichs zu schwarz ändern, sobald man auf eine Zelle klickt. Außerhalb dieses Bereichs soll die Schriftfarbe jedoch immer schwarz bleiben.
Hier nun mein Code zu dem Problem (A2-E6 ist die "Punktetafel", F1-G6 ein Bereich in welchem _ die Schriftfarbe schwarz bleiben soll):
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A2:E6")) Then 'Fehlerzeile
If Target.Font.ColorIndex = 2 Then
Target.Font.ColorIndex = 0
Else
Target.Font.ColorIndex = 2
End If
ElseIf Intersect(Target, Range("F1:G6")) Then
Target.Font.ColorIndex = 0
End If
End Sub
Innerhalb der Punktetafel funktioniert das alles auch, wenn ich jedoch auf eine Zelle außerhalb von A2-E6 klicke bekomme ich den Laufzeitfehler 91, Objektvariable oder With-Block nicht festgelegt.
Ich habe mir den Code auch nur aus verschiedenen Internetquellen zusammengeschustert und keine Ahnung wie Intersect funktioniert.
Ich hoffe mein Problem ist halbwegs verständlich und freue mich über jeden Tipp.