Ein/Ausblenden von Text VBA
30.10.2015 11:54:56
Text
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