Microsoft Excel

Herbers Excel/VBA-Archiv

ListIndex | Herbers Excel-Forum


Betrifft: ListIndex von: wilhelm
Geschrieben am: 30.12.2009 16:42:06

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

  

Betrifft: AW: ListIndex von: Beverly
Geschrieben am: 30.12.2009 17:11:21

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.


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: ListIndex von: JoWE
Geschrieben am: 30.12.2009 17:39:09

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


Beiträge aus den Excel-Beispielen zum Thema "ListIndex"