Office: Ein Drehfeld ausgabe in aktive Zelle

Hallo,
Wie die Überschrift schon sagt, liegt mein Problem darin, die Ausgabe eines Drehfeldes auf die jeweils aktive Zelle zu lenken.
In meiner Tabelle sind bereits über 160 Drehfelder und die wäschst weiter. So weit ich weiß ist bei 2000 Buttons ende bei Exel. Die Tabelle wird aber warscheinlich länger werden.
Zweites Problem, ich bin eine absolute 0 in VBA.
Kann mir da vielleicht jemand helfen?
Danke im Voraus
mfg
Thorbln

 

Hallo!

Meinst du so?

Code:

Private Sub SpinButton1_Change()
ActiveCell = SpinButton1
End Sub

 

Genau das war es. Du machst deinem Nick alle Ehre.
Noch eine Frage.
Gibt es einen Trick dem Drehfeld klar zu machen, dass es, in jedem Feld, bei 0 anfängt?
Ist nicht weiter tragisch wenn nicht, aber das währe das Tüpfelschen auf dem i
Danke

 

Hallo!

Vielleicht so?

Code:

Private Sub SpinButton1_Change()
ActiveCell = SpinButton1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SpinButton1 = ActiveCell
End Sub

In Zellen mit bereits vorhandenem Wert wird von diesem Wert an weitergezählt; in leeren Zellen dann logischerweise von Null an.

 

Genial.
100% das was ich gesucht habe.
Danke vielmals
mfg
Thorbln

 

Leider schon wieder ein Problem
Der Code funktioniert wunderbar. Leider setzt er jetzt jede Zelle, die man anklickt und die keine Zahl enthält auf 0 bzw. meldet einen Laufzeitfehler.
Das ist bei Datumsfeldern und Textfeldern sehr unangenehm.

Kamm man den Drehknopf auf eine Bestimmte Matrix fixieren, so dass er andere Zellen ignoriert?
Danke

 

Hallo!

So kannst du den Bereich beschränken:

Code:

Private Sub SpinButton1_Change()
If Not Intersect(ActiveCell, Range("A1:D5")) Is Nothing Then
ActiveCell = SpinButton1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D5")) Is Nothing Then
SpinButton1 = ActiveCell
End If
End Sub

Falls es sich bei dir um mehrere unzusammenhängende Bereiche handeln sollte, dann schau mal in der VBA-Hile nach "Union".

PS: Probleme wirst du weiterhin haben, wenn du nicht nur eine Zelle, sondern mehrere mit der Maus auswählst, von denen einige innerhalb und andere außerhalb des Bereichs liegen.
Aber das ist dann wohl gerechtfertigermaßen "Operator's Error"!

PPS: Bei (An)Fragen liefere bitte doch auch einen Hinweis, wie weit du bisher gekommen bist, und an welcher Stelle es hapert.
Dann müssen die "Antworter" nicht alle prophylaktisch bei Null anfangen.

 

Aaaarrrggghhhh...

Sorry!!!!!
Streiche bitte mein PPS!!!

Du hast sehr gut dein Problem beschrieben!
Ich war mit den Gedanken woanders (und hab's einfach nicht verstanden)...
Sorry!
Sorry!
Sorry!
Ich lass meinen Mist (nochmal Sorry!) trotzdem mal drin, es kann immerhin noch als gutes (oder schlechtes) Beispiel für "weniger gut erzogene" Kandidaten dienen....

 

Erst einmal danke für die Antwort.
Jetzt bleibt er brav im angegebenen Bereich, übernimmt aber die Zellinhalte nicht mehr von der Zelle die er berarbeiten soll, sondern von der, die er zuletzt bearbeitet hat.
Ich weiß, ich bin nervig.
mfg
Thorbln
P.S.:
Es ist der gleiche Effekt wie bei:

"Private Sub SpinButton1_Change()
ActiveCell = SpinButton1
End Sub"

 

Sorry, aber das kann ich nicht bestätigen...
Bei mir funktioniert es absolut wunschgemäß!

 

Sorry dass ich mich so lange nicht gemeldet habe. Ich hatte Zugangsprobleme.
Du hast Recht. Warscheinlich habe ich einen Fehler beim anpassen des Zellbereiches gemacht.
Es fuktioniert tatsächlich einwandfrei.
Vielen Dank für deine Hilfe.
mfg
Thorbln

 

Hallo,
ich hätte zu dem Tema noch einmal eine Frage.
Ich wollte einen zweiten Spinbutton einbauen, der auf die gleichen Felder zugreift, damit ich wahlweise in einer oder zehnerschritten erhöhen kann.
Leider haben alle Versuche den Code anzupassen zu Misserfolgen geführt.
Kann man überhaupt zwei Spinbuttons auf die gleichen Felder zugreifen lassen?
mfg
Thorbln

 

Hallo!

Mit SpinButtons bekomme ich das jetzt auf die Schnelle auch nicht hin, daher ein Alternativ-Vorschlag:
Nimm einfach insgesamt 4 "normale" Buttons:
"Eins rauf"
"Eins runter"
"Zehn rauf"
"Zehn runter"

Die Codes sind dann auch schnell gemacht:

Code:

'Button1
ActiveCell = ActiveCell + 1
'Button2
ActiveCell = ActiveCell - 1
'Button3
ActiveCell = ActiveCell + 10
'Button4
ActiveCell = ActiveCell - 10

 

So funktioniert es.
Danke für deine Bemühungen.
mfg
Thorbln