Bei Auswahl aus einer ComboBox erhalte ich einen LFZ '381'. Meldung: Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftsfelds ungültig. Die betroffene Zeile sieht so aus:
Cells(ActiveCell.Row, 1) = ComboBox2.List(ComboBox2.ListIndex, 1)
Was kann ich dagegen tun? Weiß jemand Rat? Der Code der sich auf die CB bezieht sieht so aus:
Dim Zelle As Range, zaehler As Long
For Each Zelle In Sheets("ZMT_Info").Range("C73:C100")
If Zelle.Value <> "" Then ComboBox2.AddItem Zelle.Value & " " & Sheets("ZMT_Info").Cells(Zelle.Row, 4)
ComboBox2.List(zaehler, 1) = Zelle.Value
ComboBox2.List(zaehler, 2) = Sheets("ZMT_Info").Cells(Zelle.Row, 4)
zaehler = zaehler + 1
End If
Next