Thema Datum  Von Nutzer Rating
Antwort
02.02.2023 10:27:12 Merve
NotSolved
02.02.2023 12:46:57 Gast75002
NotSolved
02.02.2023 12:55:56 Gast75002
NotSolved
02.02.2023 13:31:26 Merve
NotSolved
02.02.2023 16:00:51 Gast21080
NotSolved
Blau Mehrfachauswahl (DropDown)
 02.02.2023 19:37:22 Flotter Feger
*****
Solved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
02.02.2023 19:37:22		 Views:
171		 Rating:
     
Antwort:
 Nein
Thema:
Mehrfachauswahl (DropDown)

Hallo,

versuch es mal so ... musst du natürlich anpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As Variant
Dim Newvalue As Variant

Application.EnableEvents = True
On Error GoTo Exitsub

If Not Intersect(Target, Range("C2")) Is Nothing Then
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        GoTo Exitsub
    Else
        If Target.Value = "" Then GoTo Exitsub
        Application.EnableEvents = False
        Newvalue = Target.Value
        Application.Undo
        Oldvalue = Target.Value
        If Oldvalue = "" Then
            Target.Value = Newvalue
        Else
            If InStr(1, Oldvalue, Newvalue) = 0 Then
                'Target.Value = Oldvalue & vbNewLine & Newvalue
                Target.Value = Oldvalue & "; " & Newvalue
            Else
                Target.Value = Oldvalue
            End If
        End If
    End If
End If

Exitsub:
Application.EnableEvents = True
End Sub

Sabina

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
02.02.2023 10:27:12 Merve
NotSolved
02.02.2023 12:46:57 Gast75002
NotSolved
02.02.2023 12:55:56 Gast75002
NotSolved
02.02.2023 13:31:26 Merve
NotSolved
02.02.2023 16:00:51 Gast21080
NotSolved
Blau Mehrfachauswahl (DropDown)
 02.02.2023 19:37:22 Flotter Feger
*****
Solved