Dropdown / Mehrfachauswahl
09.11.2016 14:12:14
Berndt
habe auf
http://www.excel-inside.de/funktionen-a-tipps/895-dropdown-liste-mit-mehrfachauswahl
ein richtig cooles Makro gefunden, um mehrere Namen über einer Dropdown auszuwählen.
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 wert_old As String
Dim wertnew As String
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. D6:D24) durchführen
If Not Application.Intersect(Target, Range("D6:D24")) Is Nothing Then
'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
'** 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
End If
Errorhandling:
Application.EnableEvents = True
End Sub
Klicke ich zweimal auf den selben Namen in der Dropdown, doppelt sich dieser in der Zelle. Das heisst eine Prüfung müsste rein, ob der Name vll. schon ausgewählt wurde.
Und möchte ich z.B. von 3 Namen 2 händig löschen, schiebt das Makro einen Riegel vor und verhindert dies.
Vll. kann mir jmd mit diesen 2 Problemen helfen.
VG Berndt