Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Scrollen ermöglichen

Scrollen ermöglichen
03.02.2004 18:09:30
Marco
Hallo zusammen,
ich habe eine Userform, die mit userform.show 0 während der Bearbeitung aktiv bleibt.
Die Prozedur sucht per folgendem Code:
Sheets("Jahresplan").Activate
Set rinCell = Columns("A").Find(What:=Date, LookIn:=xlValues)
Das aktuelle Datum.
Wie kann ich nun ermöglichen, das der USER sofort, ohne eine Zelle zu makieren, per Mouse oder per Pfeil runter/rauf scrollen kann ?
Habe versucht vorher eine Zeile per Code zu markieren. Bringt aber nicht den Effekt. vielen Dank
MArco

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Scrollen ermöglichen
03.02.2004 18:18:14
Josef Ehrensberger
Hallo Marco!
Du kannst z.B. einen SpinButton verwenden.
Der Code in der UF könnte so aussehen.


Private Sub SpinButton1_SpinDown()
ActiveWindow.ScrollRow = SpinButton1
End Sub
Private Sub SpinButton1_SpinUp()
ActiveWindow.ScrollRow = SpinButton1
End Sub
Private Sub UserForm_Initialize()
With SpinButton1
.Max = 1
.Min = 65536
.Value = ActiveWindow.ScrollRow
End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige