Formular-Button-Sender auswerten, Zeile färben

  • Excel

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

    Formular-Button-Sender auswerten, Zeile färben

    Hallo Forum,

    ich suche eine Möglichkeit, die Eigenschaften eines Formularsteuerelements
    in einem Tabellenblatt auszuwerten.

    Ich möchte nämlich einzelne Zeilen färben, neben jeder Zeile ist ein Button mit einer entsprechenden Beschriftung,
    also 1 - n.

    Die Funktion dafür zu schreiben ist nicht wirklich schwer aber ich möchte nicht für jeden Button eine Prozedur..

    Mein Code bisher:

    Visual Basic-Quellcode

    1. Function Farbe(Zeile As Integer)
    2. 'von - bis auswählen
    3. Range("A" & Zeile & ": D" & Zeile).Select
    5. 'Markierung rot färben
    6. With Selection.Interior
    7. .Pattern = xlSolid
    8. .Color = 255
    9. .TintAndShade = 0
    10. .PatternTintAndShade = 0
    11. End With
    13. 'deselektieren
    14. Range("A1").Select
    16. End Function


    Visual Basic-Quellcode

    1. Sub Formatieren()
    2. 'Function Farbe mit dem Parameter Zeile aufrufen 1 - n
    3. Call Farbe(1)
    4. End Sub


    Jetzt müsste ich theoretisch folgendes ändern:

    Visual Basic-Quellcode

    1. Sub Formatieren()
    2. 'Function Farbe mit dem Parameter Zeile aufrufen 1 - n
    4. Select Case (Sender).Commandbutton.Caption
    5. 1: Farbe (1)
    6. 2: Farbe (2)
    7. 3: Farbe (3)
    8. 'etc..
    9. End Select


    Das wäre der Pseudo-Code um den es geht.
    Wäre klasse wenn mir jemand sagen kann wie man den Sender eiens Formularsteuerelements auswerten kann in der Form wie ich es brauche.

    PS: das ist ein Modul, irgendwie hatte ich es schon mal geschafft - nicht in einem Modul mit "Me" auf das Tabellenblatt zuzugreifen - vllt hilft mir das ja?

    Du brauchst einen gemeinsamen Handler für alle Button-Events.

    Visual Basic-Quellcode

    1. 'Paste this into a new class module
    2. Public WithEvents ButtonGroup As MSForms.CommandButton
    4. Private Sub ButtonGroup_Click()
    5. MsgBox "you clicked a button"
    6. End Sub
    8. 'Paste this into a regular module
    9. Dim Buttons() As New btnClass
    11. Sub InitializeButtons()
    12. Dim obj As OLEObject, btn As MSForms.CommandButton, i As Long, ExcludeList As String
    13. ExcludeList = "CommandButton1, CommandButton2"
    14. i = 0
    15. For Each obj In Sheets("Sheet1").OLEObjects
    16. If TypeOf obj.Object Is MSForms.CommandButton Then
    17. Set btn = obj.Object
    18. If InStr(1, ExcludeList, btn.Name) = 0 Then
    19. i = i + 1
    20. ReDim Preserve Buttons(1 To i)
    21. Set Buttons(i).ButtonGroup = btn
    22. End If
    23. End If
    24. Next obj
    25. End Sub
    Ich weiß nicht mehr, wo ich die Anleitung her habe, aber sie funktioniert ganz brauchbar.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --