AW: Steuerelement
01.01.2006 20:20:17
Reinhard
Hi Herbert,
vielleicht am schnellsten ist Folgendes, du legst dir in einer Hilfstabelle eine kleine Tabelle manuell an:
2000 15
2001 380
2002 720
In B stehen die Zeilennummern vom 15ten o.ä.
Dann Alt+F11, Doppelklick auf das Blatt mit dem Drehfeld, Code einfügen, Editor schliessen. In der Tabelle echtsklick auf den Button (im Entwurfsmodus), Eigenschaften, da legst du Min 2000 und Max 20xx an
Option Explicit
Private Sub SpinButton1_Change()
Dim zei As Long
zei = Application.WorksheetFunction.VLookup(SpinButton1, Worksheets("Tabelle4").Range("A1:B10"), 2, 0)
Cells(zei, 1).Select
SpinButton1.Top = ActiveCell.Top
End Sub
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.