Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrfachauswahl (DropDown)
 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
02.02.2023 19:37:22 Flotter Feger
*****
Solved

Ansicht des Beitrags:
Von:
Merve		 Datum:
02.02.2023 10:27:12		 Views:
373		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachauswahl (DropDown)

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

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 Mehrfachauswahl (DropDown)
 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
02.02.2023 19:37:22 Flotter Feger
*****
Solved