Combobox auswählenund Linkedcell zuweise
28.02.2020 15:13:47
Markus
Ich habe in einem Bereich mehrere Comboboxen. Die Anzahl der comboboxen in diesem Bereich kann variieren. Ich möchte jede Combobox in diesem Bereich auswählen und als LinkedCell die Zelle zuweisen, in der sich diese Combobox befindet zuweisen.
Sub combobox_linkedcells()
Dim A As Integer
Dim B As Integer
Dim obj As OLEObject
For Each obj In Tabelle1.OLEObjects
If obj.TopLeftCell.Row > 19 And obj.TopLeftCell.Column Dies ist mein Ansatz. Dieser Funktioniert aber nicht, da Laufzeitfehler Automatiesierungsfehler Unbekannter Fehler. Warum weiß ich nicht, ich vermute aber, dass es daran liegt, dass die For Each Schleife zuerst mehrere Male durchlaufen wird, ohne eine Combobox auszuwählen. Ab einer gewissen Anzahl an Durchläufen wählt er dann zuverlässig die Comboboxen aus (aber auch nur wenn ich obj.LinkedCell = Cells(A, B).Address auskommentiere)
Wäre sehr dankbar, wenn mir jemand helfen könnte oder einen Tipp geben würde!
VG,
Markus
Anzeige