Excel "Doppelklick"-Makro für bestimmte Zellen zuweisen

Lil Moo

Lt. Commander
Registriert
Dez. 2008
Beiträge
1.299
Moin Leute,

Ich hoffe, ihr könnt mir helfen. Leider kenn ich mich mit Programmieren etc. noch gar nicht aus.

Ein Vorhaben habe ich trotzdem:

Ich habe einen Fragenkatalog für die Klausur nächste Woche erstellt. Nun möchte ich, dass Excel bei den jeweiligen Kästchen via Doppelklick die Anwort mit einem grünen Hintergrund versehrt. Die "richtigen" Zellen sind schon markiert, alle Zellenbezeichnungen habe ich in Excel herausgefunden, indem ich einfach in eine leere Zelle "=" getippt habe und über Strg+Rechtklick alle gewollten Zellen ausgewählt habe). Jetzt muss Excel nur noch fressen, dass mit nem Doppelklick aus dem weißen ein grüner Hintergrund wird. Bei allen anderen Kästchen wär's schön, einen roten Hintergrund zu bekommen, aber das ist zweitrangig. Wie kriege ich das hin?

Habe schon den "Text" für das Modul in etwa im Netz gefunden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C3:C6")) Is Nothing Then

If Target = "" Then
Target = "X"
Else
Target = ""
End If

Cancel = True
End If
End Sub

Da wird jetzt ein X statt einem grünen Hintergrund eingesetzt, das ist nicht ganz das, was ich brauche.

Für die Änderung des Hintergrunds habe ich diesen Befehl gefunden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End Sub

Jetzt habe ich noch das Problem, dass Excel meine "Range" nicht fressen will. Die Range wäre halt die Aneinanderreihung von Zellen:

C3:C5;D6;C7;C8;C9;D10;D11;D12;C15;D15;C16;C17;D17;C19;C20;D20;C24;D25;D26;D27;C28;C30;D31;E33;E32;C35;D36;C37;D38;C39;D41;D42;C43;D44;C45;D46;C47;D48;D49;C50;D51;C55;C56;D57;D58;F55;F57;G58;H56;D66: D67;C68:C69;D69;D70;C73;D74;C75;D76: D80;C83;D83;C84;F84;E85;D91;E91;E92;C93;E94;C100;D101;C102;E103;C108;C109;D110;D111;C112;C113;D115;D116;F116;C117;C119;D119;E119;D120;D121;F121;C122;C128;C129;D140;D141;C142;D143;D146;C148;C149;E147;D150;E150;D153;C154;D155;C156;D158;E159;F161;E161;D162;E163;E165;C165;D172;C173;C174;D175;D181;D182;C183;D184;C185;C188;D189;C144

Hat jemand von euch ne Idee?
Hätt halt gern diese "leichtere" Methode des Lernens, anstatt immer wieder Papier auszudrucken mit den jeweiligen Fragen. Geht natürlich auch, Umwelt und Geldbeutel würden aber die Exceltabelle befürworten.

Danke für eure Hilfe im Voraus,

Lil Moo
 
Zurück
Oben