Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrfach-Auswahl in Dropdown-Menü - Newbie braucht Hilfe
27.09.2022 19:20:14 Moni
NotSolved
27.09.2022 23:18:56 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Moni
Datum:
27.09.2022 19:20:14
Views:
304
Rating: Antwort:
  Ja
Thema:
Mehrfach-Auswahl in Dropdown-Menü - Newbie braucht Hilfe

Hallo liebe Experten! Leider habe ich zu wenig Ahnung von VBA als dass ich selbst weiterkomme. Habe Google schon kräftig bemüht, finde aber das Gesuchte nicht.

Ziel: Eine Mehrfachauswahl in einem Dropdown-Menü in einer Excel-Tabelle ermöglichen (also 2 Antworten aus einem Dropdown wählen können, Duplikate ausgeschlossen).

Status: im Internet habe ich einen Code gefunden, der wunderbar funktioniert.

Problem: Dieser Code funktioniert derzeit für 2 benachbarte Spalten ("AL2:AM100"). Ich benötige diese Funktion aber für viele weitere Spalten (AR und AS; AX und AY usw usw; es sind - in meinem speziellen Fall - immer 2 Spalten nebeneinander).

Wie kann ich den "Range" entsprechend erweitern? Ich habe alles Mögliche mit "or" ausprobiert, nix klappt.

Kann mir hier bitte jemand weiterhelfen? Schon jetzt herzlichen Dank!!

Hier ist der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    
    '** Mehrfachauswahl im definierten Bereich (Bsp. B4:B14) durchführen
If Not Application.Intersect(Target, Range("AL2:AM100")) Is Nothing Then


    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    End If
    End If
    Application.EnableEvents = True
End Sub
 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrfach-Auswahl in Dropdown-Menü - Newbie braucht Hilfe
27.09.2022 19:20:14 Moni
NotSolved
27.09.2022 23:18:56 ralf_b
NotSolved