ich habe ein wirklich seltsames Problem. Mein Code, den ich von Euch bekommen habe und der funktioniert hat, funktioniert jetzt nicht mehr und ich weiß nicht warum.
Ich habe die ErrMld an die Stelle im Code geschrieben, wo sie entsteht:
'Laufzeitfehler 381; Eigenschaft List konnte nicht gesetzt werden.Index des Eigenschaftenffeld ungültig.
Hier der Code:
'#### ComboBox mit ALLEN Mänglen füllen START ####
'On Error Resume Next
Dim wbk As Workbook
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer, iRowL As Integer
Application.ScreenUpdating = False
Set wbk = Workbooks.Open("E:\daten\mängelliste.xls")
Set wks = wbk.Sheets(1)
iRowL = wks.Cells(wks.Rows.Count, 8).End(xlUp).Row
Workbooks.Add
For iRow = 1 To iRowL
vRow = Application.Match(wks.Cells(iRow, 8).Value, Columns(1), 0)
If IsError(vRow) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = wks.Cells(iRow, 8).Value
End If
Next iRow
Range("a1").CurrentRegion.Sort _
key1:=Range("a1"), order1:=xlAscending, Header:=xlNo
With cbMängelAlle
'Laufzeitfehler 381; Eigenschaft List konnte nicht gesetzt werden.Index des Eigenschaftenffeld ungültig.
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
ActiveWorkbook.Close savechanges:=False
'jetzt nochmal nur mit WhgNr
On Error GoTo zError
iRowL = 0
iRowT = 0
Set wks = wbk.Sheets(1)
iRowL = wks.Cells(wks.Rows.Count, 8).End(xlUp).Row
Workbooks.Add
For iRow = 1 To iRowL
If wks.Cells(iRow, 3).Value = lbWhg Then
vRow = Application.Match(wks.Cells(iRow, 8).Value, Columns(1), 0)
If IsError(vRow) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = wks.Cells(iRow, 8).Value
End If
End If
Next iRow
Range("a1").CurrentRegion.Sort _
key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Dim vTemp As Variant
With wks 'ThisWorkbook.Worksheets("Tabelle1")
vTemp = .Range("A2:H" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
With frmAuftrag.cbMängelAlle
.List = vTemp
If .ListCount > 0 Then .ListIndex = 0
'With frmAuftrag.cbMängelAlle
' .List = Range("A1").CurrentRegion.Value
' If .ListCount > 0 Then .ListIndex = 0
End With
zError:
ActiveWorkbook.Close savechanges:=False
wbk.Close
Set wbk = Nothing
Set wks = Nothing
Application.ScreenUpdating = True
'#### ComboBox mit Mänglen füllen ENDE ####
Kann mir bitte jemand sagen, was ich kaputt gemacht habe. Ich habe gestern 4 Stunden rumprobiert und bin einfach zu blöd....
Viele Grüße aus dem für Oktober viel zu kalten Hamburg bei 5,5 Grad
Ray