Hallo ,

ich hab eine Excel-Datei mit mehreren Tabellenblättern. Das erste heißt Inhalt dort kann man in einer Dropdownauswahl verschiedene Namen auswählen.

Bei der Auswahl eines bestimmten Namens aus dem Tabellenblatt "Inhalt" sollen im Tabellenblatt 1 bestimmte Zellen Schraffiert werden. Wenn wieder ein anderen Namen auswählt sollen diese wieder normal sein.

ich habe es mit folgendem Code versucht, leider ohne Erfolg

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$6" Then Exit Sub
With Sheets("1")
Select Case Target.Value
Case Is = "Name 1"
Range("F9:F42,I9:I42,J9:J42,M9:M42,P9:P42,Q9:Q42").Select
    With Selection.Interior
        .Pattern = xlCrissCross
        .PatternColorIndex = xlAutomatic
    End With
    Case Is = "Name 2"
Range("F9:F42,I9:I42,J9:J42,M9:M42,P9:P42,Q9:Q42").Select
    With Selection.Interior
        .Pattern = xlCrissCross
        .PatternColorIndex = xlAutomatic
    End With
  Case Is = "Name 3"
    Range("F9:F42,I9:J42,M9:M42,P9:Q42").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   Case Is = "Name 4"
       Range("F9:F42,I9:J42,M9:M42,P9:Q42").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        End With
           Case Is = "Name 5"
                  Range("F9:F42,I9:J42,M9:M42,P9:Q42").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        End With
End Select
End With
End Sub

Ich Hoffe da kann mir jemand weiterhelfen.

VIelen Dank schon mal