Guten Morgen,
ich habe mir mit Hilfe des Forums schon geholfen =)
Und zwar habe ich aus einer einfachen Dropdown Zelle ein "Multidropdown" gemacht.
Leider habe ich in meiner Tabelle aber mehrere Zellen die ein "Multi Dropdown" werden sollen.
Für einen Test habe ich also aktuell den Programmcode kopiert und wieder eingefügt, das wird aber irgendwann unübersichtlich..
Gibt es die Möglichkeit in VBA eine Variable o.ä. zu erstellen, der man ganz einfach mehrere Zellen zuweisen kann?
Meine Programmierkünste sind recht gering, und das was ich außerhalb der VBA Welt mal gemacht habe liegt schon etwas länger zurück :D
Hiermit mache ich aus einer normalen Dropdown eine "Multi Dropdown". Kann man im oberen Bereich die Variable einfügen und einfach sagen:
"Variable Zelle (E56, E61, E67,...)"?
'** 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. B4:B14) durchführen
If Not Application.Intersect(Target, Range("E56")) 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