отбор множеств в разных клетках с разными вариантами - PullRequest
Новая
       5

отбор множеств в разных клетках с разными вариантами

0 голосов
/ 23 января 2020

Привет, мне было интересно, как решить мою проблему.

У меня есть этот код, чтобы можно было выбрать несколько имен в выпадающем меню для одной ячейки. Но я хотел бы расширить эту функцию для более чем одного столбца.

мой код: 

Private Sub Worksheet_Change(ByVal Target As Range)
'** Mehrfachauswahl über DropDown-Liste (Gültigkeitsprüfung)
'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String

'** Errorhandling
On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich (Bsp. B4:B14) durchführen
If Not Application.Intersect(Target, Range("B4:B14")) 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
      End If
    End If
  End If
  Application.EnableEvents = True
End If

Errorhandling:
Application.EnableEvents = True
End Sub

Это работает для столбца B, но я хотел бы использовать это для A, B, C, D & E. Все столбцы будут иметь разные выпадающие меню.

Кроме того, если после выбора параметра он не сможет выбрать его снова, верно.

Итак, могу ли я расширить имеющийся у меня код или мне нужен совершенно новый способ решения этой проблемы? Кто-нибудь знает, что нужно сделать, чтобы получить решение?

Спасибо! Ю

...