27.09.2017, 14:56
Guten Tag und vielen Dank schon einmal für eure Hilfe,
Nun zu meinem eigentlichen Problem:
Ich muss regelmäßig einer Nummer Objekte zuordnen. Jeder Nummer können dabei mehrere Orbjekte zugeordnet werden (bzw. mehreren Objekte mehrere Nummern) und ich habe eine Tabelle in der alle Objekte-Nummernkombinationen vorhanden sind.
Mein Ziel ist, dass ich nach Eingabe meiner Nummer in das vorgesehen Feld ein Programm durchlaufen lasse, welches mir eine Dropdownliste erstellt in der ich aus allen möglichen Kartons auswählen kann.
Dazu gehe ich bisher nacheinander alle Nummern aus meiner Tabellle(activesheet oder auch tabelle 2) durch (For each c...) und vergleiche diese mit allen Nummern aus der Musterkombinationstabelle (objekt) bis ich die passenden Zellen gefunden haben (for each b..). Wenn 2 Zellen den gleichen Wert aufweisen(if..), habe ich bisher den Wert der Zelle b in den String a geschrieben und zusätzliche Werte durch ein ; getrennt. Leider weiß ich nicht wie ich das Dropdownmenü aus dem String erzeuge, bzw ob ich mit dieser Idee ans Ziel komme.
Falls ihr Ideen habt wie ich das Problem löse oder vielleicht eine ganz anderen Ansatz habt, dann lasst es mich bitte wissen.
Danke euch. :)
Nun zu meinem eigentlichen Problem:
Ich muss regelmäßig einer Nummer Objekte zuordnen. Jeder Nummer können dabei mehrere Orbjekte zugeordnet werden (bzw. mehreren Objekte mehrere Nummern) und ich habe eine Tabelle in der alle Objekte-Nummernkombinationen vorhanden sind.
Mein Ziel ist, dass ich nach Eingabe meiner Nummer in das vorgesehen Feld ein Programm durchlaufen lasse, welches mir eine Dropdownliste erstellt in der ich aus allen möglichen Kartons auswählen kann.
Dazu gehe ich bisher nacheinander alle Nummern aus meiner Tabellle(activesheet oder auch tabelle 2) durch (For each c...) und vergleiche diese mit allen Nummern aus der Musterkombinationstabelle (objekt) bis ich die passenden Zellen gefunden haben (for each b..). Wenn 2 Zellen den gleichen Wert aufweisen(if..), habe ich bisher den Wert der Zelle b in den String a geschrieben und zusätzliche Werte durch ein ; getrennt. Leider weiß ich nicht wie ich das Dropdownmenü aus dem String erzeuge, bzw ob ich mit dieser Idee ans Ziel komme.
Falls ihr Ideen habt wie ich das Problem löse oder vielleicht eine ganz anderen Ansatz habt, dann lasst es mich bitte wissen.
Danke euch. :)
Code:
Sub Makro3()
Dim b As Range
Dim c As Range
Dim a As String
For Each c In ActiveSheet.Range("k10", "k15").Cells
For Each b In Sheets("objekt").Range("k10", "k15").Cells
If b.Value Like c.Value Then
Sheets("objekt").Select
a = a & ";"
a = a & b.Offset(0, 6).Value
Sheets("Tabelle2").Select
End If
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="a"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next
Next
End Sub