Checklistenproblem

[PhilippB.]

Hey. Bin neu hier im Forum und bräuchte mal eure Hilfe! ich habe eine Checkliste erstellt und bewerte Anforderungen! diese Bewertung erfolgt in drei Zellen F9:I9! ich möchte gerne mit einem klick auf die zelle das ein kreuz erscheint! gleichzeitig möchte ich, dass nur eine zelle von den drei auswählbar ist!
ich benötige es für mehrere dreier zellen!

Könnt ihr mir helfen bzw einen tipp geben?

Gruß Philipp

[gmg-cc]

Moin,

dein Excel rechnet falsch! Wenn ich mit meinen Fingern rechne, dann sind F9:I9 4 Zellen und nicht 3.
Ansonsten: Das ist so nur mit VBA machbar, aber wenn dann würde ich einen Doppelklick vorziehen.
Wenn du und eine Mustertabelle mit etwas genauerer Forderungsbechreibung zur Verfügung stellst, dann können wir dir gewiss besser helfen.

[PhilippB.]

also im Ánhang ist die Bewertungsmaske. In der Zelle F9:H9 soll mit einem oder doppel klick ein kreuz erscheinen. Gleichzeitig soll aber nur ein kreuz setzbar sein. die tabellle ist deutlich länger, möchte das nur beispielhaft für F9:H9 und F13:H13!
hinter jeder farbe ist eine Bewertung, dass habe ich hin bekommen!

Danke für deine/eure Hilfe

[gmg-cc]

Moin Philipp,

ich habe den Code extra übersichtlich gehalten, auf ein paar mehr oder weniger eilen sollte es da nicht ankommen. Bei sehr viel mehr Auswertungen wirst du den Code nach

Code: [Auswählen]

If Not Pruef Is Nothing Then vielleicht etwas verschlanken, aber copy/paste geht ja auch gaz fix ...

Code: [Auswählen]

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
   Dim rngZ9 As Range, rngZ13 As Range, rngAmpel As Range, c As Range
   Dim Pruef As Range
   
   Set rngZ9 = Range("F9:H9")
   Set rngZ13 = Range("F13:H13")
   Set rngAmpel = Application.Union(rngZ9, rngZ13)
   
   Set Pruef = Intersect(Target, rngAmpel)
   If Not Pruef Is Nothing Then
      If Not Intersect(Target, rngZ9) Is Nothing Then
         For Each c In rngZ9
            c = ""
         Next c
         Target = "x"
      Else
         For Each c In rngZ13
            c = ""
         Next c
         Target = "x"
      End If
      Cancel = True
   End If
 End Sub
Ich habe es geprüft und es haut hin.

[PhilippB.]

Besten Dank. Habe es hinbekommen.

Gruß