Verkettung von mehreren Checkboxen.

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Verkettung von mehreren Checkboxen.

    Hallo

    Ich habe ein Formular von ein Nutzer mehrere Checkboxen auswählen kann und die Auswahl dann in einer Zelle angezeigt wird.
    Wenn er z.B. Checkbox1 und Checkbox3 anklickt, dann wird in einer Zelle folgendes gespeichert: 1, 3
    Im nächsten Schritt besteht die möglichkeit in einem anderen Formular verschiedene Einträge zu bearbeiten.
    Nun möchte ich, dass diese Zelle mit den CHeckboxen ausgelesen wird und entsprechend die Checkboxen gefüllt werden.
    Also das gegenteil wie oben: aus der Zelleneingabe: 1, 3 wird dann Checkbox1 und Checkbox3 angehakt.
    Wie genau kann ich das machen?

    Visual Basic-Quellcode

    1. wstTab.Cells(lngZeile, 5) = ""
    2. text = ""
    4. If Me.chkGatter1 = True Then
    5. text = Me.chkGatter1.Caption
    6. End If
    8. If Me.chkGatter2 = True Then
    9. If text = "" Then
    10. text = Me.chkGatter2.Caption
    11. Else
    12. text = text & ", " & Me.chkGatter2.Caption
    13. End If
    14. End If
    16. If Me.chkGatter3 = True Then
    17. If text = "" Then
    18. text = Me.chkGatter3.Caption
    19. Else
    20. text = text & ", " & Me.chkGatter3.Caption
    21. End If
    22. End If
    24. If Me.chkGatter4 = True Then
    25. If text = "" Then
    26. text = Me.chkGatter4.Caption
    27. Else
    28. text = text & ", " & Me.chkGatter4.Caption
    29. End If
    30. End If
    32. wstTab.Cells(lngZeile, 5).Value = text

    Pseudocode:

    Visual Basic-Quellcode

    1. CheckBox1.Value = InStr(1, Text, "1", vbTextCompare) > 0
    2. CheckBox2.Value = InStr(1, Text, "2", vbTextCompare) > 0
    3. CheckBox3.Value = InStr(1, Text, "3", vbTextCompare) > 0
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende