DropDown Menü
19.04.2007 10:41:00
Christian
habe ein kleines Problem und hoffe ihr könnt mir weiterhelfen.
Ich habe eine bereinigte Liste in einem Tabellenblatt ("PSP"). Im Tabellenblatt ("Bestellanforderung") soll nun die Combobox die Werte aus Tabellenblatt ("PSP") einlesen.
Fehlermeldung:Zugriff verweigert!
( bei Zeile Sheets("Bestellanforderung").ComBox1.AddItem rngRange. Value)
Private Sub ComboBox1_Change()
Sheets("Bestellanforderung").Select
Dim rngRange As Range
Sheets("PSP").Select
Dim t As Long
t = Worksheets("PSP").UsedRange.Rows.Count
Test = "D" & CStr(t)
For Each rngRange In Sheets("PSP").Range("D2", Test)
Sheets("Bestellanforderung").ComboBox1.AddItem rngRange.Value
Next rngRange
End Sub
Danke im voraus
Gruß
Christian
Anzeige