habe in der Mappe von ListenFeld Formularsteuerelemente auf AktiveX-Steuerelemente ListBox umgestellt.
Im Listenfeld Eigenschaft, Eingabebereich waren die Daten aus der Tabelle verknüpft,
die Zellverknüpfung gibt die Position in der Liste an, an der sich der ausgewählte Wert befindet.
UMSTELLUNG:
ListBox mit Daten füllen
Dim iCounter As Integer
Sheet11.ListBox1.Clear
For iCounter = 15 To WorksheetFunction.CountA(Columns(1))
If Rows(iCounter).Hidden = False Then
Sheet11.ListBox1.AddItem Cells(iCounter, 27).Value
End If
Next iCounter
wie kann ich jetzt mit VBA die Zellverknüpfung realisieren?
Vielen Dank in Voraus
Antonio