19.10.2021, 07:48
Liebe Excel- & VBA- Götter da draußen, 
bitte seid so freundlich und erleuchtet mich...
Ich möchte folgendes bewerkstelligen:
Blatt "Übersicht" soll in Spalte "O" ab Zeile 4 bis zur letzten beschriebenen Zeile aus "L" einen Dropdown erhalten.
Dieser Dropdown soll sich zusammensetzen aus einer Auswahl der Größen (aus Tabellenblatt "Artikelgrößen") die es zur jeweiligen Artikelnummer aus "Übersicht" "L" gibt.
Die Zeilenanzahl der Tabellenblätter "Übersicht" und "Artikelgrößen" sind unterschiedlich und variieren von Fall zu Fall.
Also eigentlich sowas wie: Was für mögliche Ergebnisse gibt es aus einem sverweis der jeweiligen Artikelnummer aus dem Tabellenblatt "Übersicht" zur Matrix aus dem Tabellenblatt "Artikelgrößen". Packe dies in einen Dropdown und lege die Gültigkeitsprüfung in das Tabellenblatt "Übersicht in die gleiche Zeile, drei Spalten rechts neben die Artikelnummer.
Ich habe etwas gebastelt, was leider nicht ganz funktionieren will, es gibt Probleme mit ".Add Type:=xlValidateList, Formula1:=DropDown"
Wenn ihr einen anderen Lösungsansatz seht, gerne "her damit"
Sub DropDownKdArtGr()
Dim rngZelle As Range
Dim rngArtNo As Range
Dim DropDown As String
For Each rngArtNo In ActiveSheet.Range("O4:O" & Cells(Rows.Count, 12).End(xlUp).Row)
For Each rngZelle In Worksheets("Artikelgrößen").Range("H2:H" & Cells(Rows.Count, 8).End(xlUp).Row)
If rngZelle = rngArtNo.Offset(0, -3) Then
DropDown = DropDown & rngZelle.Offset(0, 2) & ","
rngArtNo = rngZelle.Offset(0, 2)
End If
Next rngZelle
DropDown = Left(DropDown, Len(DropDown))
With rngArtNo.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=DropDown
End With
DropDown = ""
Next rngArtNo
End Sub
Vielen Dank für eure Hilfe!
Liebe Grüße JTRR
[attachment=40639]
bitte seid so freundlich und erleuchtet mich...
Ich möchte folgendes bewerkstelligen:
Blatt "Übersicht" soll in Spalte "O" ab Zeile 4 bis zur letzten beschriebenen Zeile aus "L" einen Dropdown erhalten.
Dieser Dropdown soll sich zusammensetzen aus einer Auswahl der Größen (aus Tabellenblatt "Artikelgrößen") die es zur jeweiligen Artikelnummer aus "Übersicht" "L" gibt.
Die Zeilenanzahl der Tabellenblätter "Übersicht" und "Artikelgrößen" sind unterschiedlich und variieren von Fall zu Fall.
Also eigentlich sowas wie: Was für mögliche Ergebnisse gibt es aus einem sverweis der jeweiligen Artikelnummer aus dem Tabellenblatt "Übersicht" zur Matrix aus dem Tabellenblatt "Artikelgrößen". Packe dies in einen Dropdown und lege die Gültigkeitsprüfung in das Tabellenblatt "Übersicht in die gleiche Zeile, drei Spalten rechts neben die Artikelnummer.
Ich habe etwas gebastelt, was leider nicht ganz funktionieren will, es gibt Probleme mit ".Add Type:=xlValidateList, Formula1:=DropDown"
Wenn ihr einen anderen Lösungsansatz seht, gerne "her damit"
Sub DropDownKdArtGr()
Dim rngZelle As Range
Dim rngArtNo As Range
Dim DropDown As String
For Each rngArtNo In ActiveSheet.Range("O4:O" & Cells(Rows.Count, 12).End(xlUp).Row)
For Each rngZelle In Worksheets("Artikelgrößen").Range("H2:H" & Cells(Rows.Count, 8).End(xlUp).Row)
If rngZelle = rngArtNo.Offset(0, -3) Then
DropDown = DropDown & rngZelle.Offset(0, 2) & ","
rngArtNo = rngZelle.Offset(0, 2)
End If
Next rngZelle
DropDown = Left(DropDown, Len(DropDown))
With rngArtNo.Validation
.Delete
.Add Type:=xlValidateList, Formula1:=DropDown
End With
DropDown = ""
Next rngArtNo
End Sub
Vielen Dank für eure Hilfe!
Liebe Grüße JTRR
[attachment=40639]