ListIndex
wilhelm
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
Anzeige