Mit Checkboxen Werte anzeigen lassen

Moderator: ModerationP

Mit Checkboxen Werte anzeigen lassen

Beitragvon Cheerio89 » 15. Sep 2021, 11:39

Guten Tag,

ich möchte eine Tabelle darstellen in der man Zahlenwerte eingibt (Raumdimensionierung) und dann über Checkboxen z.b. verschiedene Bodenbeläge, Wandanstriche wählen kann.
Sollte dann ein Wandanstrich gewählt worden sein, so soll die Wandgröße errechnet werden.
Fürs bessere Verständnis habe ich ein Bild von meiner Tabelle angefügt.

Vielen Dank im Voraus für eure Unterstützung
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Cheerio89
Neuling
 
Beiträge: 1
Registriert: 15. Sep 2021, 11:24

Re: Mit Checkboxen Werte anzeigen lassen

Beitragvon slowboarder » 15. Sep 2021, 11:46

Hi

Da würde ich keine Checkboxen verwenden, sondern einfach "x" oder 1 in die jeweilige Zelle eintragen.
Das ist unkompliziert und vereinfacht die weitere Verwendung (zB. zur Kostenkalkulation.

Gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 28574
Registriert: 18. Apr 2009, 13:33

Re: Mit Checkboxen Werte anzeigen lassen

Beitragvon Ralf A » 15. Sep 2021, 14:53

...da hat der Daniel aber sowas von Recht! :P

Du kannst ja Deinen Zellen trotzdem ein Checkboxen Outfit verpassen, wenn Du folgenden (an Deine Bedürfnisse angepassten) Code in das Modul der betreffenden Tabelle einfügst:

Code: Alles auswählen
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 And Not Intersect(Target, Range("B2:F4")) Is Nothing Then SetCheck Target
End Sub

Sub SetCheck(t As Range)
Application.EnableEvents = False
   With t
        If t.Value = "x" Then
            With .Font
                .Name = "Wingdings"
                .Size = 14
                .Bold = True
            End With
        Else
            .Value = ""
            With t.Font
                .Name = "Calibri"
                .Size = 11
                .Bold = False
            End With
        End If
    End With
Application.EnableEvents = True

End Sub


Bei Eingabe von x im Bereich B2:F4 wird eine Checkbox simuliert (nur Symbol), bei allen anderen Eingaben halt nicht....
Ciao, Ralf
Wer glaubt, für ihn persönlich würde der Bremsweg nicht als Funktion proportional zum QUADRAT der Geschwindigkeit steigen, der ist halt nicht „frei“, sondern ein Narr.
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1144
Registriert: 17. Mär 2018, 11:47

Re: Mit Checkboxen Werte anzeigen lassen

Beitragvon slowboarder » 15. Sep 2021, 15:42

Hi Ralf
viel zu kompliziert.
wenn man Checkbox-Optik und Verhalten in einem Zellbereich haben will, gehts wesentlich einfacher wenn man den Doppelklick als als Eingabe akzeptiert.
dann reicht als Code:
Code: Alles auswählen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H3:X100")) Is Nothing Then
    Target.Value = 1 - Target.Value
    Cancel = true
End if
End Sub

bei einem Doppelklick auf die Zelle wird dann zwischen 1 und 0 hin- und her geschaltet.
das Aussehen als Checkbox erreicht man dann über die Formatierung:
Schriftformat: Wingdings2
Zahlenformat: benutzerdefiniert R;;£

damit in allen Zellen die leere Checkbox steht, sollte man die Zellen mit 0 vorbefüllen.
damit steht dann in den Zellen 1 oder 0, was ideal ist für weitere Berechnungen mit Summenprodukt und zu sehen sind die Boxen.

wenn man kein Checkbox- sondern Optionbutton-Verhalten haben will, dh ein bereits vorhandener Eintrag in der gleichen Gruppe wird automatisch gelöscht, so dass immer nur eine Auswahl möglich ist, dann könnte man das darüber auch einfach realisiern und hierbei die verbundenen Zellen in Zeile 1 zum Erkennen der Gruppenzellen einfach nutzen:
Code: Alles auswählen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("H3:X100")) Is Nothing Then
    Intersect(Target.EntireRow, Cells(1, Target.Column).MergeArea.EntireColumn) = 0
    Target.Value = 1
    Cancel = True
End If
End Sub


gruß Daniel
slowboarder
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 28574
Registriert: 18. Apr 2009, 13:33

Re: Mit Checkboxen Werte anzeigen lassen

Beitragvon {Boris} » 15. Sep 2021, 17:58

Hi Daniel,

das Aussehen als Checkbox erreicht man dann über die Formatierung:
Schriftformat: Wingdings2
Zahlenformat: benutzerdefiniert R;;£

damit in allen Zellen die leere Checkbox steht, sollte man die Zellen mit 0 vorbefüllen.
damit steht dann in den Zellen 1 oder 0, was ideal ist für weitere Berechnungen mit Summenprodukt und zu sehen sind die Boxen.


Cool - einfach, aber gut !
Benutzeravatar
{Boris}
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1693
Registriert: 14. Okt 2007, 10:16
Wohnort: Düsseldorf

Re: Mit Checkboxen Werte anzeigen lassen

Beitragvon Ralf A » 15. Sep 2021, 21:49

...smile.... 'ne Doppelklicklösung hab ich auch im Angebot, wollte Doppelkkick aber vermeiden.... :)
Und... zu kompliziert? Für den Anwender eher einfacher.... darauf kommt's doch an, oder?

Für die Auswertung macht das dann auch keinen Unterschied: =Wenn(Zelle="";"";"irgend 'ne Berechnung")
Ciao, Ralf
Wer glaubt, für ihn persönlich würde der Bremsweg nicht als Funktion proportional zum QUADRAT der Geschwindigkeit steigen, der ist halt nicht „frei“, sondern ein Narr.
Ralf A
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1144
Registriert: 17. Mär 2018, 11:47


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: lupo1 und 25 Gäste