Microsoft Excel

Herbers Excel/VBA-Archiv

Formen ansprechen


Betrifft: Formen ansprechen
von: Nikki
Geschrieben am: 20.12.2018 09:33:52

Hallo,

ich habe eine Tabelle mit 2 Comboboxen. In Combobox 1 habe Zahlen von 1-600 und 600 Commandbutton. In Combobox 2 die Bezeichnungen "offen", "in arbeit", "abgeschlossen". Die Commandbutton werden je nach Status farblich geändert. Folgendes Makro habe ich dafür:

Private Sub ComboBox1_Change()
    ' Combobox2 zurücksetzen
    If ComboBox2 <> "" Then ComboBox2.ListIndex = -1
End Sub

Private Sub ComboBox2_Change()
    Dim intElement As Integer
    Dim lngFarbe As Long
    Select Case ComboBox2
        Case "0"
        Case "offen"
            lngFarbe = 15921906           
        Case "in arbeit"
            lngFarbe = 255    
        Case "abgeschlossen"
            lngFarbe = 5296274     
    End Select
    If ComboBox2 <> "" Then
         
        If ComboBox2 <> "" Then Me.OLEObjects("CommandButton" & _
            CLng(Me.ComboBox1)).Object.BackColor = lngFarbe
 
     End If
End Sub
Nun meine Frage: Ich würde die Commandbutton gerne in Formen ändern z.B. ein Rechteck. Funktion der Comboboxen sollen dabei gleich bleiben. Wahrscheinlich geht das über die Shape Eigenschaften. Aber komm einfach nicht weiter :(

Vielen Dank schonmal für die Hilfe.

  

Betrifft: AW: Formen ansprechen
von: Nepumuk
Geschrieben am: 20.12.2018 10:35:01

Hallo Nikki,

teste mal:

Shapes("Rechteck " & ComboBox1.Text).Fill.ForeColor.RGB = lngFarbe

Gruß
Nepumuk


  

Betrifft: AW: Formen ansprechen
von: Nikki
Geschrieben am: 20.12.2018 11:07:38

Hallo Nepumuk,

funktioniert leider nicht. Gibt er mir als Laufzeitfehler zurück.


  

Betrifft: AW: Formen ansprechen
von: Nikki
Geschrieben am: 20.12.2018 11:10:39

Hallo Nepumuk,

sorry das passt doch. Vielen lieben Dank und schöne Weihnachten :)


  

Betrifft: AW: Formen ansprechen
von: Nepumuk
Geschrieben am: 20.12.2018 11:56:13

Hallo Nikki,

funktioniert nicht ist leider eine unzureichende Fehlerbeschreibung. Welche Fehlermeldung wird zurückgegeben?

Gruß
Nepumuk


  

Betrifft: AW: Formen ansprechen
von: Nikki
Geschrieben am: 20.12.2018 12:48:55

Funktioniert. Hatte nur ein kleinen Denkfehler :) Danke