AddItem 2.0
19.12.2005 03:58:52
Gnilk
eigentlich wollte ich den Code vom Erich schon am Donnerstag ausprobieren. Jedoch kam ich dann doch nicht mehr dazu.
Ich habe immer noch Probleme mit dem AddItem. Hier mein ueberarbeiteter Code:
Private Sub UserForm_Initialize()
' for the text in ComboBox1 "Description"
Dim letEin As Long, element As Long, Pump As String, nmbr As Long, wrt As WorksheetFunction
Pmp = "Paul"
nmbr = 2
With Worksheets("DB")
letEin = Worksheets("DB").Cells(65536, 2).End(xlUp).Row
' Worksheets("DB").Select
' Selection.End(xlUp).End(xlToLeft).Select
For j = 2 To letEin
If Cells(j, 2).FormulaLocal = Pmp Then
Set wrt = ActiveSheet("UserForm" & nmbr) 'hier wird der Fehler angezeigt
wrt.ComboBox1.AddItem (Worksheets("DB").Cells(j, 4))
End If
Next
Set wrt = ActiveWorkbook("UserForm" & nmbr)
wrt.ComboBox1.AddItem (Worksheets("DB").Cells(2, 35))
' for the text in the ComboBox4 "Qty"
For i = 2 To 100
Set wrt = ActiveWorkbook("UserForm" & nmbr)
wrt.ComboBox2.AddItem (Worksheets("DB").Cells(i, 34))
Next
' here you see the the value when you open the UserForm
UserForm1.ComboBox2.ListIndex = 0
End With
End Sub
Wenn Ihr den euch mal angeschaut habt. Dann ist der Fehler in der Zeile wo auch mein kommentar steht - dass dort der Fehler ist. Die Fehlermeldung lautet:
Run-time error '438':
Object doesn't support this property or method
So langsam macht mich das verrueckt. Immer wenn ich denke hinter die Matrix gestiegen zu sein, kommt wieder so ein bloeder Fehler.
Vielen Dank fuer Eure Hilfe im Voraus
Ciao
Gnilk aka Klaus