HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: ListIndex | Herbers Excel-Forum

ListIndex
wilhelm

Seit Jahr und Tag läuft der nachfolgende Code problemlos ab.
Private Sub Workbook_Open()
ActiveWorkbook.Application.AskToUpdateLinks = False
If ThisWorkbook.Name = "Rohrauflager optimiert neu Stand 05.12.xls" Then
Call Standard_Einstellungen
Call Eingabe1
Call Eingabe_leer
Worksheets("Rechenwerte").Activate
Worksheets("Rohrträger").Activate
Worksheets("Rohrträger").cmbMaterial.ListIndex = 0
Else
Exit Sub
End If
Plötzlich bleibt der Kram bei
Worksheets("Rohrträger").cmbMaterial.ListIndex = 0 hängen.
Meldung: Laufzeitfehler 380.
Eigenschaft ListIndex konnte nicht gesetzt werden.
Ungültiger Eigenschaftswert.
Der Ausdruck steuert eine Combo Box, die eine Reihe von Material zur Auswahl anzeigt.
In dieser Form:


Private Sub cmbMaterial_Change()
Worksheets("Rohrträger").Range("V9").Value = cmbMaterial.List(cmbMaterial.ListIndex, 1)
Worksheets("Rohrträger").Range("B18").Select
End Sub



Kennt jemand dieses seltsame Verhalten und kann mir einen Rat geben?

Wilhelm
AW: ListIndex
Beverly

Hi Wilhelm,
hast du schon mal unter Extras -> Verweise nachgeschaut ob dort Verweise als nicht vorhanden (oder so ähnlich) gekennzeichnet sind? Falls ja, dann lösche sie. Anschließend sollte der Code wieder normal laufen.

AW: ListIndex
JoWE

Hallo Wilhelm,
sind alle notwendigen Verweise registriert?
Unter xl2003 fehlte häufig die fm20.dll
Da Du eine Combobox ansprichst könnte dies die Ursache sein.
Gruß
Jochen