Office: (Office 2019) Dropdown mit Mehrfachauswahl

Hallo,

ich bräuchte für das Büro eine Tabelle mit Dropdowninhalten, welche eine Mehrfachauswahl zulassen. Ich habe folgenden Code gefunden und er funktioniert auch, aber nur, solange ich die Datei noch offen habe. Sobald ich sie neu öffne, ist zwar der Code noch da, aber die Mehrfachauswahl funktioniert nicht mehr. Ich bin leider auch "nur" Laie und habe keine Ahnung, wo mein Fehler liegt (Anm. habe es auch als Arbeitsmappe mit Makros gespeichert).

Das ist der Code, der bei anderen hier im Forum funktioniert hat:

Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wertold As String
Dim wertnew As String

'** Errorhandling
On Error GoTo ErrorHandler

'** Mehrfachauswahl im definierten Bereich durchführen
If Not Application.Intersect(Target, Range("E2:I600")) Is Nothing Then

'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo ErrorHandler

'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
If Not Application.Intersect(Target, rngDV) Is Nothing Then
Application.EnableEvents = False
wertnew = Target.Value
Application.Undo
wertold = Target.Value
Target.Value = wertnew
If wertold <> "" Then
If wertnew <> "" Then
Target.Value = wertold & ", " & wertnew
End If
End If
End If
Application.EnableEvents = True
Exit Sub

Vielen Dank für Eure Hilfe!

 

Hallo,

wie wäre es, wenn du die zugehörige Datei mit zur Verfügung stellen würdest? Das würde die Lösungsfindung erheblich erleichtern.

 

Habe jetzt sensible Daten rausgenommen und eine abgespeckte Version hochgeladen. Mir geht es um Spalte H für die Mehrfachauswahl.

 

Hallo,

dieses dein geschildertes Problem verstehe ich nicht. Warum soll sie nach einem Neuöffnen nicht mehr funktionieren? Allerdings ist das Makro nur im Bereich E2:I600 wirksam!!
Ich habe das Change-Event-Makro nur etwas besser formatiert, so wie es Programmierer in der Regel lieben. Ferner habe ich am Anfang "Option Explicit" hinzugefügt.

Ich habe allerdings in deinem Arbeitsblatt "Dropdown-Inhalte" Änderungen an den 3 DropDown-Listenbereichen vorgenommen, indem ich aus diesen 3 strukturierte (=intelligente) Tabellen erstellt habe:
1) Im Bereich A1:A2 die strukt.Tabelle "tbOrgEinheiten" mit DropDown-Liste "ddOrgEinheiten" in A2:A2
2) Im Bereich B1:B15 die strukt.Tabelle "tbVerwendungswünsche" mit DropDown-Liste "ddVerwendungswünsche" in B2:B15
3) Im Bereich C1:C19 die strukt.Tabelle "tbFunktionen" mit DropDown-Liste "ddFunktionen" in C2:C19

Diese 3 DropDown-Listenbereiche passen sich automatisch an die Größe der jeweiligen strukt.Tabelle an. Kommen neue Einträge hinzu, vergrößern sich die Tabellen und Listenbereiche für die DropDowns. Daher braucht man auch keine Leerzellen (quasi auf Vorrat) in diese Bereiche aufnehmen.

 

Wow, das ist ja grossartig! Vielen herzlichen Dank !