|
Hallo VBA-Spezialisten,
vielleicht hat ja einer von Euch ne Lösung parat...
Ich hab auf einem Excel-Sheet folgende Formularsteuerelemente: ORT, GERÄT.
An verschiedenen Orten sind unterschiedlich viele Geräte (z.B. Berlin 5 Geräte, München 3 Geräte, etc).
Suche ich mir nun einen Ort aus, sollen ListFillRange und DropDownLines des Elementes GERÄT automatisch angepasst werden.
Im Sheet selber habe ich über eine Wenn-Abfrage in Verbindung mit ZÄHLENWENNS jeweils ein Feld mit dem ListFillRange (R8) und den DropDownLines (R9) angelegt. Das funktioniert auch soweit. Als Makro hab ich im Sheet folgende Sub angelegt:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Gerät").Select
With Selection
.ListFillRange = Range("R8")
.DropDownLines = Range("R9")
End With
End Sub
Ändere ich nun den Ort in der verknüpften Zelle manuell, wird die Sub gestartet. Ändere ich den Ort über das Formularsteuerelement ORT, passiert nichts.
Wie kann man die Sub über das Formularsteuerelement aktivieren?
Danke für Eure Hilfe im Voraus.
Rob
|