Checkbox anzeigen

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von thomas82.

    Checkbox anzeigen

    Hallo liebes Forum,

    ich habe durch eine Userform ein wert aus einer Checkbox in eine Tabellenblatt schreiben lassen. Nun möchte ich bei einer nachträglichen Bearbeitung diese Daten wieder in einer anderen Userform anzeigen lassen.

    ich habe über den Code:

    If chb_bundk.Value = True Then Sheets("Kunden").Cells(lzeile, 19).Value = "Verkauft"
    If chb_bundk.Value = False Then Sheets("Kunden").Cells(lzeile, 19).Value = ""

    in die Tabelle geschrieben. Kann ich den Code einfach "umdrehen" oder gibt es einfachere Wege ?

    Steh gerade echt vor einem Berg :(

    Vielen Dank im voraus!

    Es kommt ganz drauf an, wann du die Daten in der anderen UserForm angezeigt haben möchtest.

    Aber prinzipiell funktioniert das schon wie du es angemerkt hast:

    Visual Basic-Quellcode

    1. Private Sub UserForm_Click()
    2. If Cells(1, 1).Value <> "" Then
    3. Me.CheckBox1.Value = True
    4. Me.TextBox1.Value = Cells(1, 1).Value
    5. End If
    6. End Sub

    Visual Basic-Quellcode

    1. Me.textbox1.Value = Cells(1, 1).Value

    In der Zeile wird der Wert aus der Zelle A1 genommen (Spalte 1 + Zeile 1) und in eine Textbox mit dem Namen textbox1 eingetragen.
    Bilder

    • 2014-12-05 14_55_36-Microsoft_Excel.xlsm.png

      19,1 kB, 371×301, 129 mal angesehen

    Hallo :)

    hmm ich verstehe die Welt nicht mehr :-s

    vorhin liefen die Checkboxen und nun nicht mehr :-s

    habe nur noch die Buttons mit Code versorgt.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Sub UserForm_Initialize()
    3. lbl_kundennummeranz = Sheets(2).Cells(zeile, 2)
    4. lbl_kundennameanz = Sheets(2).Cells(zeile, 3)
    5. lbl_firmierungIanz = Sheets(2).Cells(zeile, 4)
    6. lbl_firmierungIIanz = Sheets(2).Cells(zeile, 5)
    7. lbl_strasseanz = Sheets(2).Cells(zeile, 6)
    8. lbl_ortanz = Sheets(2).Cells(zeile, 7)
    9. lbl_plzanz = Sheets(2).Cells(zeile, 8)
    10. tbx_telefonanz = Sheets(2).Cells(zeile, 9)
    11. tbx_emailanz = Sheets(2).Cells(zeile, 10)
    12. lbl_offenanz = Sheets(2).Cells(zeile, 11)
    13. tbx_bemerkunganz = Sheets(2).Cells(zeile, 12)
    14. lbl_nlanz = Sheets(2).Cells(zeile, 13)
    15. tbx_homepageanz = Sheets(2).Cells(zeile, 23)
    17. If Cells(zeile, 15).Value <> "" Then
    18. Me.chb_fleischanz.Value = True
    19. End If
    21. If Cells(zeile, 14).Value <> "" Then
    22. Me.chb_fischanz.Value = True
    23. End If
    25. If Cells(zeile, 16).Value <> "" Then
    26. Me.chb_weinanz.Value = True
    27. End If
    29. If Cells(zeile, 17).Value <> "" Then
    30. Me.chb_qdpanz.Value = True
    31. End If
    33. If Cells(zeile, 18).Value <> "" Then
    34. Me.chb_spritanz.Value = True
    35. End If
    37. If Cells(zeile, 19).Value <> "" Then
    38. Me.chb_bunkanz.Value = True
    39. End If
    41. If Cells(zeile, 20).Value <> "" Then
    42. Me.chb_gktanz.Value = True
    43. End If
    45. If Cells(zeile, 21).Value <> "" Then
    46. Me.chb_gemüseanz.Value = True
    47. End If
    49. If Cells(zeile, 22).Value <> "" Then
    50. Me.chb_wochenanz.Value = True
    51. End If
    53. If Cells(zeile, 24).Value <> "" Then
    54. Me.chb_inaktivanz.Value = True
    55. End If
    57. End Sub
    58. Private Sub cmb_abbruch_Click()
    60. Dim Skundenname As String
    61. Dim eingabewert As Byte
    63. Skundenname = lbl_kundennameanz
    64. eingabewert = MsgBox("Änderungen beim Kunden " & Skundenname & " verwerfen?", vbYesNo + vbInformation, "Änderung")
    66. If eingabewert = vbYes Then
    67. Unload Me
    68. ElseIf eingabewert = vbNo Then
    69. Exit Sub
    70. End If
    72. End Sub
    73. Private Sub cmb_speichern_Click()
    75. Dim Skundenname As String
    76. Dim eingabewert As Byte
    78. Skundenname = lbl_kundennameanz
    79. eingabewert = MsgBox("Änderungen beim Kunden " & Skundenname & " speichern?", vbYesNo + vbInformation, "Änderung")
    81. 'Application.Wait (Now + TimeValue("00:00:15"))
    83. If eingabewert = vbYes Then
    84. Sheets(2).Cells(zeile, 9) = tbx_telefonanz.Text
    85. Sheets(2).Cells(zeile, 10) = tbx_emailanz.Text
    86. Sheets(2).Cells(zeile, 12) = tbx_bemerkunganz.Text
    87. Sheets(2).Cells(zeile, 23) = tbx_homepageanz.Text
    88. MsgBox "gerne"
    89. Unload Me
    90. ElseIf eingabewert = vbNo Then
    91. Exit Sub
    92. End If
    93. End Sub

    Jetzt gehen die Boxen nicht mehr :-s

    Die label und Textboxen werden noch angezeit aber die boxen nicht mehr :-s

    Die Variable zeile ist global in Modul1 als variant defeniert.

    Vielleicht seht Ihr ja den fehler :-s

    Vielen Dank

    Nachtrag zur Eingrenzug des Fehlers :-s

    Ich verstehe das zwar nicht aber naja,

    befinde ich mich in der Tabelle wo die Daten stehen die ich anzeigen möchte und starte dann die Userform1 um einen Namen für die Variable aus zu wählen die an die Userform2 übergeben wird zeigt er mir die checkboxen an. Bin ich in einem anderen Tabelle und starte die Userform 1 Auswahl Name und dann Userform 2 so fehlen die Checkboxen. aber die Label werden beschriftet.

    Kurios :-s

    anbei der Code von der Userform 1 vielleicht liegt da ein Fehler:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub cmb_abbruch_Click()
    4. Unload Me
    5. End Sub
    7. Private Sub cmb_bearbeiten_Click()
    8. If cbx_kundensuchen.ListIndex > 0 Then
    9. zeile = cbx_kundensuchen.ListIndex + 2
    10. usf_kundendetail.Show
    11. Unload Me
    12. End If
    15. End Sub
    16. Private Sub UserForm_Initialize()
    17. cbx_kundensuchen.RowSource = "Kunden!C2:C2600" & Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row
    18. cbx_kundensuchen.ListIndex = 0
    19. End Sub

    Habe die Codes schon in einzelschritten debugt. Aber keine Fehler gefunden. Er zeigt mir wie gewünscht die Variable als die entsprechende
    Zeile an.

    Nachtrag :

    Habe beim initalisieren das Tabellenblat laden lassen und schon geht es:)

    Danke

    CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „VaporiZed“ ()