Supportnet / Forum / Tabellenkalkulation

Guten Morgen! Ich mache mit Excel Ordnerrückenschilder. Je nach Thema haben diese unterschiedliche Farben. Nun möchte ich mit Hilfe eines Drop-Down-Menüs das Thema auswählen und das Schild soll entsprechend eingefärbt werden. Da ich mehr als drei Themen habe, kann ich das benutzerdefinierte Format nicht verwenden. Gibt es eine Möglichkeit dies irgendwie zu umgehen? Kurzes Beispiel: Thema 1 = rot Thema 2 = blau Thema 3 = grün Thema 4 = braun .... Klaus

Hallo
Hab´ grad mal mit Optionbuttons Dein Anliegen umgesetzt.

Private Sub OptionButton1_Click() ´Caption="Keine Farbe"
 Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 0
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Range("A1").Select
End Sub

Private Sub OptionButton2_Click() ´Caption="Rot"
    Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Range("A1").Select
End Sub

Private Sub OptionButton3_Click() ´Caption="Blau"
Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 5
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Range("A1").Select
End Sub

Private Sub OptionButton4_Click() ´Caption="Grün"
Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Range("A1").Select
End Sub

Private Sub OptionButton5_Click() ´Caption="Gelb"
Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Range("A1").Select
End Sub

Private Sub OptionButton6_Click() ´Caption="Lila"
Range("A1,A3,A5").Select
       With Selection.Interior
        .ColorIndex = 7
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
Range("A1").Select

End Sub
 

Mußt halt noch an Deine Bereiche anpassen..

Gruß

Danke für die rasche Antwort.
Habe Ihr Skript in ein Modul 1:1 hineinkopiert.

Anschließen wurden von mir über Formular einige Optionsfelder eingefügt + dem Makro zugewiesen.
Leider kommt es zu einem Fehler:

"Fehler bei Kombilieren:"
Erwartet: Anweisungsende

Habe ich dabei was falsch gemacht?

"´Caption" wird markiert.
Vielleicht können Sie mir noch einmal behilflich sein.

Thanx!

Klaus

Anstatt ´Caption="Grün"
muss man wohl ´Caption="Grün"
verwenden.

Leider kann ich das Skript aber nicht den Optionsbutton zuweisen.
"Microsoft Excel kann das Makrot ... nicht finden".

Was ist hier nun wieder falsch?
Kann man noch andere Farben verwenden? Wenn ja, wo kann ich den ColorIndex finden?

Klaus

• Bedingte Formatierung nach Filterauswahl
• Bedingte formatierung im Excel
• Platzhalter in bedingter Formatierung möglich?
• Fehler bei formatierung
• booten nach formatierung