Hallo, ich habe hier einen Code für eine Mehrfachauswahl in einem Drop Down Menü, sodass mehrere Sachen hintereinander ergänzt und angezeigt werden in einem Feld. Leider habe ich das Problem, dass in meiner Liste am Anfang immer "Please choose" steht. Sobald etwas ausgewählt wird, soll das "Please choose" gelöscht werden, sodass es bei einer Mehrfachauswahl nicht mehr dabei steht. Könnte mir einer sagen, was ich im Code ergänzen muss? Ich bekomme es leider nicht hin... 

Danke!

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. B4:B14) durchführen
If Not Application.Intersect(Target, Range("F22")) 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