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
Hallo
wo genau ist jetzt deine Frage zu "Checkbox als Bewertungssystem"?
MfG Tom
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
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
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
Hallo,
vielleicht ist das Blatt geschützt? Obwohl es das eigentlich konkret anzeigen müsste.
Gruß Uwe
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
Hallo,
- die entsprechenden Zellen dürfen keinen Haken bei Gesperrt haben.
- beim Einschalten des Blattschutzes muss Zellen formatieren angehakt werden
Gruß Uwe
