Checkbox als Bewertungssystem

[respecter11]

Hallo Miteinander

Ich muss ein Bewertungssystem erstellen, beidem man zwischen 7 verschiedenen Stufen auswählen kann. (1=sehr / 7=nicht)

Ich habe hier ein Screenshot von der Idee:
[
Bild bitte so als Datei hochladen: Klick mich!
]

PS: Wie kann man eine solche Tabelle in diesem Forum erstellen, die viele als Lösungsvorschlag benutzen?


Danke für eure Hilfe

/Respecter11

[Crazy Tom]

Hallo

wo genau ist jetzt deine Frage zu "Checkbox als Bewertungssystem"?

MfG Tom

[respecter11]

Hei

Meine Frage ist folgende:
Ich möchte in diese 7 Spalten Checkboxen machen, wenn ich jedoch diese mache, dann muss ich sie von Hand positionieren. Kann man diese nicht einfach sagen für eine Zelle eine Checkbox. Ausserdem muss ich herauslesen können, welche Checkboxen aktiv sind und welche nicht. Pro Zeile kann aber nur maximal eine Checkbox aktiv sein.

Danke für die Hilfe

/Respecter11

[Kuwer]

Hallo,

füge folgenden Code in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes ein:

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

 Dim rngCheck As Range

 Set rngCheck = Range("D2:J15")

 If Not Application.Intersect(Target, rngCheck) Is Nothing Then

   Application.Intersect(rngCheck.EntireColumn, Target.EntireRow) = ""

   Target.Font.Name = "Wingdings"

   Target.Value = "ü"

   Cancel = True

 End If

End Sub

Nun kannst Du die Häkchen ganz einfach per Doppelklick setzen.

Gruß Uwe

[respecter11]

Hallo,

füge folgenden Code in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes ein:

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

 Dim rngCheck As Range

 Set rngCheck = Range("D2:J15")

 If Not Application.Intersect(Target, rngCheck) Is Nothing Then

   Application.Intersect(rngCheck.EntireColumn, Target.EntireRow) = ""

   Target.Font.Name = "Wingdings"

   Target.Value = "ü"

   Cancel = True

 End If

End Sub

Nun kannst Du die Häkchen ganz einfach per Doppelklick setzen.

Gruß Uwe



Hei Uwe

Jetzt funktioniert es danke dir

/Respecter11

[WillWissen]

Hi Respecter,

zu deiner Frage

PS: Wie kann man eine solche Tabelle in diesem Forum erstellen, die viele als Lösungsvorschlag benutzen?

lies dir doch bitte diesen Beitrag durch: http://www.clever-excel-forum.de/thread-326.html. Meistens genügt auch ein relevanter Tabellenausschnitt. Dazu steht hier etwas: http://www.clever-excel-forum.de/thread-47.html

[respecter11]

Hallo zusammen

Ich habe vor einiger Zeit bereits diese Frage in das Forum gestellt und dann hat es geklappt.
Jedoch kommt nun eine Fehler Meldung. Der Code wäre folgender:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim rngCheck As Range
 Set rngCheck = Range("E11:K24")
 If Not Application.Intersect(Target, rngCheck) Is Nothing Then
   Application.Intersect(rngCheck.EntireColumn, Target.EntireRow) = ""
   Target.Font.Name = "Wingdings"
   Target.Value = "ü"
   Cancel = True
 End If
End Sub

Ich verwende Windows 10 und Excel 2016. Am Anfang hat alles geklappt aber nun kommt eine Fehler Meldung.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Wenn ich den Fehler debugge, kommt folgendes heraus:

[
Bild bitte so als Datei hochladen: Klick mich!
]


Kann mir jemand helfen, vielen Dank.

Freundliche Grüsse
Respecter11

[Kuwer]

Hallo,

vielleicht ist das Blatt geschützt? Obwohl es das eigentlich konkret anzeigen müsste.

Gruß Uwe

[respecter11]

Tatsächlich funktioniert es nur, wenn das Blatt nicht geschützt ist. Jedoch funktioniert es auch nicht, wenn ich die Tabelle als bearbeitbarer Bereich markiere. Es sollte alles bis auf diese Tabelle geschützt sein. Hast du eine Idee, wie man dies umgehen könnte? Es kommt jedoch ein anderer Fehler:

[
Bild bitte so als Datei hochladen: Klick mich!
]

Grüsse
Respecter11

[Kuwer]

Hallo,

- die entsprechenden Zellen dürfen keinen Haken bei Gesperrt haben.
- beim Einschalten des Blattschutzes muss Zellen formatieren angehakt werden

Gruß Uwe