'Video_006) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_006) start

Sub farbe_aendern()
Dim farbauswahl_in_B5 As String
Dim wert_in_H6 As Double
Dim wert_in_H9 As Integer
farbauswahl_in_B5 = ActiveWorkbook.Worksheets("page_B").Range("B5").Value
If farbauswahl_in_B5 = "rot" Then                             'rot = 255
    Call einfarben(255)
ElseIf farbauswahl_in_B5 = "blau" Then                        ' blau = 15773696
    Call einfarben(15773696)
ElseIf farbauswahl_in_B5 = "gruen" Then                        'grün = 5296274
    Call einfarben(5296274)
End If
End Sub

Sub einfarben(farb_code As Long)
    Range("F5").Select                  'Zelle F5 auswählen und einfärben
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = farb_code              'hier wird die farbe gesetzt
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'Video_006) VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO VIDEO Video_006) ende