Office: Drehfeld Formularsteuerelement

einen wunderschönen guten morgen und wiedermal bin ich mit einem neuen Problem hier :)

Folgendes, ich wollte in einer Tabelle mehrere Drehfelder einfügen die in verschiedenen Zellen den Wert erhöhen.

Das einfügen und die Werterhöhung ist kein Problem, nun muss ich das jedoch auf 60 Positionen machen und dann wird es ein wenig umständlich.

Da ein einfachen Zellen nach unten ziehen zwar das Drehfeld mit kopiert aber nicht die Zielzelle in der Steuerung des Drehfeldes.

Daher die Frage, geht das überhaupt das in dem Drehfeld die Zielzelle mit aktualisiert wird und nicht die ursprüngliche Zelle von der ersten Zelle behält.

soweit man mich verstanden hat, vieleicht kann mir ja wer helfen :)

ansonsten versuch ich es gerne mich nochmal verständlicher auszudrücken.

 

Hallo!

Mit Bordmitteln ist das meines Wissens nach nicht möglich.
Wenn ich beim Erstellen eines Drehfeldes den Makrorekorder mitlaufen lasse, dann erhalte ich sowas:

Code:

ActiveSheet.Spinners.Add(180, 100, 40, 50).Select
    With Selection
        .Value = 0
        .Min = 0
        .Max = 30000
        .SmallChange = 1
        .LinkedCell = "$F$8"
        .Display3DShading = True
    End With

Die Werte 180, 100, 40, 50 stehen für x-Position, y-Position, Breite, Höhe.
Da könnte man doch eine For-Next-Schleife drumrumlegen, die die y-Position immer ein Stück nach unten verschiebt (180, 100 + y, 40, 50) und auch die Zellverknüpfung anpasst: .LinkedCell = Cells(y, 6)

Das Eleganteste ist das sicher nicht, aber vielleicht klappt es ja zufriedenstellend.