Thema Datum  Von Nutzer Rating
Antwort
Rot Dropdown Liste erweitern
 20.07.2020 10:55:08 Eike
Solved
20.07.2020 11:12:27 Gast7777
Solved
20.07.2020 11:37:25 Eike
Solved
20.07.2020 11:41:27 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Eike		 Datum:
20.07.2020 10:55:08		 Views:
962		 Rating:
     
Antwort:
 Nein
Thema:
Dropdown Liste erweitern

Guten Tag,

ich habe auf einem Sheet mit dem gegebenen Code es ermöglicht mehrere Auswahlmöglichkeiten in einer Dropdownliste gleichzeitig auszuwählen. Jedoch funktioniert dies nur für eine Spalte. Wie ist es möglich vier Spalten mit verschiedenen Auswahlmöglichkeiten zu bestücken?

Danke in Voraus

Eike

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then

Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
  If Target.Column = 10 Then
    If oldVal = "" Then

      Else
      If newVal = "" Then
    
      Else
      Target.Value = oldVal _
        & ", " & newVal

      End If
    End If
  End If
End If
exitHandler:
  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 Dropdown Liste erweitern
 20.07.2020 10:55:08 Eike
Solved
20.07.2020 11:12:27 Gast7777
Solved
20.07.2020 11:37:25 Eike
Solved
20.07.2020 11:41:27 Gast7777
NotSolved