@Sepp Dropdown mit automatischer Sortierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Wener,
Wieviele Fehler habe ich denn da gemacht ?
Eigentlich nur einen, du hast das "End If" falsch gesetzt. In dem Fall ist es aber sinnvoller,
mit "If - Then > ElseIf - Then > End If" zu arbeiten.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vntList As Variant, strList As String
  Dim vntList2 As Variant, strList2 As String
  If Target.Column = 1 Then 'Spalte mit Artikelbezeichnungen, 1 = A
    vntList = UniqueList(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), True)
    strList = Join(vntList, ",")
    With Sheets("Tabelle2").Range("B2:B100") 'Tabelle und Bereich mit dem Gültigkeits-Dropdown
      .Validation.Delete
      .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=strList
    End With
    '##
  ElseIf Target.Column = 3 Then 'Spalte mit Artikelbezeichnungen, 3 = C
    vntList2 = UniqueList2(Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row), True)
    strList2 = Join(vntList2, ",")
    With Sheets("Tabelle2").Range("D2:D30 ") 'Tabelle und Bereich mit dem Gültigkeits-Dropdown
      .Validation.Delete
      .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=strList2
    End With
  End If
End Sub

Gruß Sepp

... die Variablen doppelt zu deklarieren.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vntList As Variant, strList As String

  If Target.Column = 1 Then 'Spalte mit Artikelbezeichnungen, 1 = A
    vntList = UniqueList(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), True)
    strList = Join(vntList, ",")
    With Sheets("Tabelle2").Range("B2:B100") 'Tabelle und Bereich mit dem Gültigkeits-Dropdown
      .Validation.Delete
      .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=strList
    End With
    '##
  ElseIf Target.Column = 3 Then 'Spalte mit Artikelbezeichnungen, 3 = C
    vntList = UniqueList2(Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row), True)
    strList = Join(vntList, ",")
    With Sheets("Tabelle2").Range("D2:D30 ") 'Tabelle und Bereich mit dem Gültigkeits-Dropdown
      .Validation.Delete
      .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=strList
    End With
  End If
End Sub

Gruß Sepp

Private Function UniqueList2(Matrix As Range, Optional Sorted As Boolean = True) As Variant Dim objDic As Object, rng As Range, varTmp() As Variant Set objDic = CreateObject("Scripting.Dictionary") For Each rng In Matrix If rng.Value "" Then objDic(rng.Value) = 0 Next varTmp = objDic.keys If Sorted Then QuickSort varTmp UniqueList2 = varTmp Set objDic = Nothing End Function

Beliebteste Forumthreads (12 Monate)

@Sepp Dropdown mit automatischer Sortierung

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@Sepp Dropdown mit automatischer Sortierung

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread