Dropdown Felder gefiltert

Hallo,
folgende Situation:
Ich habe ein Tabellenblatt mit Adressen wie z.B.:
Name Postleitzahl Ort
a-name 12345 a-ort
b-name 67890 b-ort
c-name 12345 c-ort
Nun muss ich diesen Kunden in einem anderen Tabellenblatt Umsätze zuweisen.
Jetzt würde ich gerne z.B. in Zelle B2 der Umsatztabelle eine Dropdown Liste haben, wo ich die Postleitzahl auswählen kann, die Quelle soll die Adresstabelle sein, und nach möglichkeit sollten keine doppelten Postleitzahlen drin sein.
Dann würde ich gerne in Zelle C2 eine Drop-Down Liste haben, die nur die Namen anzeigt, die der Postleitzahl aus Zelle B2 entsprechen.
Hier also, wenn in B2 aus dem Drop-Down die Postleitzahl 12345 ausgewählt wurde in C2 im Drop-Down Feld nur "a-name" und "c-name" angezeigt werden.
Hat da jemand eine Idee.
Gruß
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Activate() Dim i As Integer, strValid As String With Sheets("Adressen") For i = 2 To .Range("B65536").End(xlUp).Row If WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(i, 2)), .Cells(i, 2)) = 1 Then strValid = strValid & .Cells(i, 2) & "," End If Next i End With strValid = Left(strValid, Len(strValid) - 1) With Range("b2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=strValid .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer, strValid As String If Target.Address = "$B$2" Then Range("c2") = "" With Sheets("Adressen") For i = 2 To .Range("A65536").End(xlUp).Row If .Cells(i, 2) = Cells(2, 2) Then strValid = strValid & .Cells(i, 1) & "," End If Next i End With strValid = Left(strValid, Len(strValid) - 1) With Range("c2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=strValid .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If End Sub

Hallo,
meinst du so?


Private Sub Worksheet_Activate()
Dim i As Integer, strValid As String
With Sheets("Adressen")
For i = 2 To .Range("B65536").End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(2, 2), .Cells(i, 2)), .Cells(i, 2)) = 1 Then
strValid = strValid & .Cells(i, 2) & ","
End If
Next i
End With
strValid = Left(strValid, Len(strValid) - 1)
With Range("b2:B1000").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=strValid
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, strValid As String
If Target.Column = 2 Then
On Error GoTo errHDL
Application.EnableEvents = False
Target.Offset(0, 1) = ""
With Sheets("Adressen")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Cells(i, 2) Like Target & "*" Then
strValid = strValid & .Cells(i, 1) & ","
End If
Next i
End With
strValid = Left(strValid, Len(strValid) - 1)
With Target.Offset(0, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=strValid
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
errHDL:
Application.EnableEvents = True
End Sub

Gruß
Geist ist geil!

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdown Felder gefiltert

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread