Hallo zusammen,
ich möchte in meiner Excel-Tabelle 3 DropDown Listen mit Mehrfachauswahl einfügen. Mit jeweils unterschiedlichen Inhalten.
Mit dem Code kriege ich es zwar hin aber leider passt es mit der Inhalt nicht. Kann mir vielleicht einer weiterhelfen?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. B6,B8,B9) durchführen
If Not Application.Intersect(Target, Range("B6,B8,B9")) 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
Cells(6, 2) = wertold & vbLf & wertnew '** wie kann ich hier erweitern???
Rows("1A:10C").AutoFit
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub
Vielen Dank
|