Doppelte Zeichenketten aus einem String löschen und den String mit Trennzeichen sortieren

  • Excel

    Doppelte Zeichenketten aus einem String löschen und den String mit Trennzeichen sortieren

    Hallo Zusammen,

    ich erlaube meinen Benutzern die Mehrfachauswahl von Werten aus einer Dropdown-Liste. Die jeweiligen Werte werden in die Zelle mit der Auswahl geschrieben. Die Vorlage dafür stamm von Excel Inside und sieht etwa so aus:

    Visual Basic-Quellcode

    1. Private Sub Worksheet_Change(ByVal Target As Range)
    2. '** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
    3. '** Einfügen im Code-Container des betreffenden Arbeitsblattes
    5. '** Dimensionierung der Variablen
    6. Dim rngDV As Range
    7. Dim wertold As String
    8. Dim wertnew As String
    11. '** Errorhandling
    12. On Error GoTo Errorhandling
    14. '** Mehrfachauswahl im definierten Bereich (Bsp. C1) durchführen
    15. If Not Application.Intersect(Target, Range("C1")) Is Nothing Then
    17. '**Range definieren
    18. Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
    19. If rngDV Is Nothing Then GoTo Errorhandling
    21. '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
    22. If Not Application.Intersect(Target, rngDV) Is Nothing Then
    23. Application.EnableEvents = False
    24. wertnew = Target.Value
    25. Application.Undo
    26. wertold = Target.Value
    27. Target.Value = wertnew
    28. If wertold <> "" Then
    29. If wertnew <> "" Then
    30. Target.Value = wertold & ", " & wertnew
    31. End If
    32. End If
    33. End If
    34. Application.EnableEvents = True
    35. End If
    36. Errorhandling:
    37. Application.EnableEvents = True
    38. End Sub


    Das Ganze hat leider zwei Schwächen:
    - es ist möglich, die Werte aus dem Dropdown in C1 doppelt auszuwählen, wobei sie dann auch doppelt in die Zelle geschrieben werden
    - es ist nicht möglich, Werte durch eine erneute Auswahl aus dem Dropdown in C1 abzuwählen und entsprechend aus der Zelle zu löschen

    Ich habe hier schon eine ganze Menge probiert und es wäre sicher möglich, das ganze in einen String zu laden und dann zu löschen und neu zu sortieren. Das Problem dann ist nur, dass ich den Wert wieder in die Zelle schreiben müsste, was das Change Event erneut auslöst.

    Die Ideallösung wäre also, dem o.a. Programm mitzugeben, dass es prüfen soll, ob der Wert schon in Zelle vorhanden ist, und ihn dann löschen, anstatt zu ergänzen.
    Hat da jemand eine Idee?

    Buddy

Facebook
Telefonspende