Run-time error '-2147352571 (80020005)'
Type mismatch.
Leider bekomme ich in Excel keine Fehlerbeschreibung angeboten.
Kann mir jemand mitteilen, wo eventuell das Problem liegen kann,
denn meistens funktioniert mein VBA-Code einwandfrei ?!
de source sieht so aus:
With Editscreen.ComboBox6
.Clear
Sheets("Definitions").Activate
Range("A3").Select
Selection.End(xlDown).Select
t = Selection.Address
w = InStr(t, "A$")
w2 = Len(t)
iMax = Mid(t, w + 2, w2 - w)
If iMax < 999 Then
For i = 3 To iMax
.AddItem Worksheets("Definitions").Cells(i, 1)
Next i
Else
Range("A3").Select
If ActiveCell.Value <> "" Then
.AddItem Worksheets("Definitions").Range("A3")
End If
End If
End With
in dieser Zeile erscheint der Fehler:
.AddItem Worksheets("Definitions").Cells(i, 1)
danke für die Hilfe