|
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
|