ich bin leider blutiger Anfänger auf dem VBA-Gebiet.
Ich möchte alle meine ActiveX-Drehfelder gleichzeitig programmieren ohne diese alle einzeln zuweisen zu müssen.
Ich habe nun soweit einen Code zusammengesucht/gebastelt und gestern hat dieser auch funktioniert.
Ich möchte damit alle meine Spinbuttons zum jeweiligen Feld zuweisen.
Gestern mit ca. 100 Stk. hat das noch funktioniert, nun mit 300 nicht mehr.
Beim Debuggen bleibt es in dieser Zeile hängen "For Each obj In ActiveSheet.OLEObjects". Leider _ bin ich zu unerfahren um hier weiter vorzugehen.
Sub Zellverknuepfung()
Dim obj As OLEObject
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.SpinButton Then
obj.LinkedCell = obj.TopLeftCell.Offset(0, 0).Address
End If
Next
End Sub
Vielen Dank im Voraus
LG
Dennis