Dropdown abhängig über Makro neu füllen
11.01.2021 14:33:47
Helmut
als Vertriebsmitarbeiter habe ich einen Konfigurator für eine Produktgruppe erstellt. Es befinden sich mehrere Dropdown-Felder darauf, über die man die Produktmerkmale hinzufügen oder abwählen kann.
Einige Dropdown-Listen werden abhänging von der Auswahl aus einer anderen Dropdown-Liste neu zusammengestellt, neu befüllt.
Meine Excel-Tabelle funktioniert, aber nur solange, bis ich den Blattschutz aktiviere. Natürlich habe ich vorher eingestellt, welche Felder (Dropdown-Felder) mit Blattschutz bearbeitet werden dürfen.
Ich habe einfach mal ein Makro beigefügt. Dieses Makro wird nach Änderung eines vorigen Dropdown-Feldes aufgerufen. Zuerst werden viele Felder mit einer Art Standardkonfiguration belegt und dann wir das Dropdown-Feld mit GRÖSSE 4 verschiedenen Display-Größen neu befüllt.
Bei der Neubefüllung tritt dann der Fehler in Zeile .Add Type auf.
Sub SOLO_Diagonale()
' SOLO Grundeinstellung
' Typ
Range("MODELL").Value = "mobiles Bildschirmsideboard"
'Größe
Range("GRÖSSE").Value = "43 Zoll"
'Blendentyp
Range("BLENDENTYP").Value = "durchgehende Front-Blende"
'Rollen
Range("ROLLENTYP").Value = "Eck-Rollen"
'Oberfläche
Range("DEKORFLÄCHE").Value = "weiß"
'Zubehör
Range("ZUBEHÖR1").Value = "Handsender u. Blutooth-Adapter"
Range("ZUBEHÖR2").Value = "USB und HDMI-Anschluss"
Range("ZUBEHÖR3").Value = "nicht ausgewählt"
Range("ZUBEHÖR4").Value = "nicht ausgewählt"
Range("ZUBEHÖR5").Value = "nicht ausgewählt"
'Display-Lift
Range("LIFT").Value = "Einzel-Lift"
'Display-Typ
Range("DISPLAY").Value = "4K Smart TV 43 Zoll"
'Video-Bar
Range("VIDEOBAR").Value = "BOSE Videobar VB1"
'Umschalter, Mediensteuerung
Range("UMSCHALTER").Value = "nicht ausgewählt"
Range("AVSTEUERUNG").Value = "nicht ausgewählt"
'Mediaplayer
Range("MEDIAPLAYER").Value = "SpinetiX Diva"
'Barco ClickShare
Range("CLICKSHARE").Value = "ClickShare CX-20"
'Sonstiges, Dienstleistungen
Range("KABELSATZ").Value = "Kabelsatz zur internen Verkabelung"
Range("REMOTE").Value = "Proaktiver Remoteservice"
Range("LIEFERUNG").Value = "Lieferung, Montage u. Kurzeinweisung"
' Dropdown-Liste neu zusammenstellen, abhängig von der vorherigen Auswahl,
' die getroffen wurde...
Range("GRÖSSE").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="43 Zoll, 55 Zoll, 65 Zoll, 75 Zoll"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("GRÖSSE").Select
End Sub
Vielleicht kann mir jemand helfen. Vielen Dank, Helmut
Anzeige