Mehrere Button eine Funktion Farbwechsel mit Speicherung

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von TeamBob.

    Mehrere Button eine Funktion Farbwechsel mit Speicherung

    Hallo

    Ich habe in einen Userform mehrere Button (ca. 20 Stück) welche als Status-Button dienen sollen.
    Die Button können dabei 3 Farben annehmen, welche jeweils durch ein Button-Click verändert werden.
    (Grüne Button/Rot/Gelb).
    Ich habe das soweit mit einen Klassenmodul gelöst um nicht für alle Button eine Funktion zu definieren.
    Jetzt habe ich 2 Probleme:

    1. Der Status (Farbe) jedes einzelnen Button müsste in einem Sheet gespeichert werden, das sich nach dem öffnen
    der Arbeitsmappe die einzelnen Button-Status (Farben) wieder laden und nicht alle wieder grün sind.
    Wenn also beispielsweise 5 Button grün sind, 10 Gelb und 5 Rot und ich schließe die Excel, dann sollte nach dem Öffnen
    genau diese Button wieder diese Farbe haben wie beim Schließen.
    Ich könnte natürlich im Modul eine extra Button-Speicher-Funktion anlegen, wo die Farbe jedes Buttons einzeln abgespeichert wird
    und dann wieder das gleiche als Lade-Funktion, aber das wäre glaube ich wenig elegant.
    Hatte gedacht dies in der Schleife mit einzubinden die mein Click Ereignis abgerufen wird, das der veränderte Button in dem zugehörigen Sheet
    gespeichert wird, jedoch muss beachtet werden, dass jeder Button eine Zelle bekommt.
    Gibt es hier Lösungsansätze?

    2. Weiterhin ist das Problem das die Funktion für wirklich alle Button Userform gilt. Lassen sich hier bestimmte Button rausnehmen oder
    dies abhängig von Namen machen, das es nur für Button gilt die auch CommandButton1.... heißen?

    Danke


    Visual Basic-Quellcode

    1. 'Klassenmodul
    2. Option Explicit
    3. Public WithEvents cmd As MSForms.CommandButton
    5. Private Sub cmd_Click()
    6. If cmd.BackColor = &HC000& Then
    7. cmd.BackColor = &HFFFF&
    8. Else
    9. If cmd.BackColor = &HFFFF& Then
    10. cmd.BackColor = &HFF&
    11. Else
    12. cmd.BackColor = &HC000&
    13. End If
    14. End If
    16. End Sub
    21. 'Userform
    22. Private Sub UserForm_Initialize()
    23. 'Status Button ändern
    24. Dim ctrl As MSForms.Control
    25. Dim CmdBtn As clsCmdBtn
    27. Set colButtons = New Collection
    29. For Each ctrl In Me.Controls
    30. If TypeOf ctrl Is MSForms.CommandButton Then
    31. Set CmdBtn = New clsCmdBtn
    32. Set CmdBtn.cmd = ctrl
    33. colButtons.Add CmdBtn
    34. End If
    35. Next ctrl
    37. End Sub
    39. Private Sub UserForm_Terminate()
    40. Dim c As clsCmdBtn
    41. For Each c In colButtons
    42. Set c.cmd = Nothing
    43. Set c = Nothing
    44. Next c
    45. Set colButtons = Nothing
    46. End Sub