Moin an alle,

ich bin dabei in Excel eine Liste zu erstellen, die in Abhängigkeit von einem Dropdownfeld im Bereich D4 bis R4 den Buchstaben "O" ausgeben soll. Und zwar soll folgendes passieren:

Wenn im Feld B4 des Tabellenblattes "Auswahl" der Text "Entwicklungsstation" steht der aus dem Tabellenblatt "Bibliothek" übernommen wurde, dann soll im Bereich D4 bis R4 der Buchstabe "O" angezeigt werden. Wenn nichts drin steht dann soll natürlich im Bereich D4 bis R4 der nichts angezeigt werden.

Jetzt möchte ich das Programm erweitern und zwar:

Wenn in B4 der Tabelle "Auswahl" eine weitere Möglichkeit zur Auswahl mittels Dropdownfeld besteht (z.B: statt "Entwicklungsstation" -----> "Server") dann soll Der Bereich D5 bis R5 aus dem Blatt "Bibliothek" in dem Bereich D4 bis R4 des Blattes "Auswahl" eingefügt werden.

Meine Idee war nun den bereits zur Verfügung gestellten VBA Code wie folgt abzuändern.  Aber das geht nicht Warum?

 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Sub_Exit

If Target.Address = "$B$4" Then
  Application.EnableEvents = False
  With Worksheets("Bibliothek")
        If Cells(4, 2).Value = .Cells(4, 2) Then
          Range("D4:R4").Value = .Range("D4:R4").Value
        Else
          Range("D4:R4").ClearContents
        End If
  End With

Sub_Exit:
  Application.EnableEvents = True

End If


If Target.Address = "$B$4" Then
  Application.EnableEvents = False
  With Worksheets("Bibliothek")
        If Cells(4, 2).Value = .Cells(5, 2) Then
          Range("D4:R4").Value = .Range("D5:R5").Value
        Else
          Range("D4:R4").ClearContents
        End If
  End With


End If




End Sub