Problem mit Makro
22.05.2018 06:57:06
JH
ich hoffe ihr hattet alle ein schönes verlängertes Wochenende :)
Ich habe mal wieder ein Problem...
Ich möchte dem künftigen Anwender meiner Excel-Mappe die Möglichkeit geben, in Spalte AC eine Mehrfachauswahl per Datenüberprüfung einzugeben. Das funktioniert auch wunderbar mit einem, hier im Forum gefundenen, Makro.
Nun möchte ich dem künftigen Anwender diese Möglichkeit ebenfalls in Spalte AA geben. Ich habe das Makro also ein zweites mal eingefügt und die betreffene Spalte geändert - leider tut sich nichts. Könnte da einmal jemand drüber schauen? Meine VBA Kenntnisse sind leider sehr begrenzt.
Hier mal der benutzte Code für die Spalte AC:
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. AC2:AC1000) durchführen
If Not Application.Intersect(Target, Range("AC2:AC1000")) 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
Mit besten Grüßen
JH