Scollbar, Pfeiltasten abfragen

Forumthread: Scollbar, Pfeiltasten abfragen

12.01.2008 23:46:45

marion

Hallo,
Habe im Archiv leider nicht das Richtige gefunden,
Ich möchte in einer UF die Pfeilrichtung eine Scrollbar abfragen.
(Pfeil links gedrückt - Pfeil rechts gedrückt).
Geht das? Habe bisher nichts gefunden.
Es sollen beim Srollen die Leerspalten übersprungen werden.
In dieser Art funkts. es leider nur in einer Richtung
ActiveWindow.ScrollColumn = ScrollBar1
If Cells(8, ScrollBar1) = "" Then ScrollBar1 = ScrollBar1 + 1
Für die andere Richtung müsste es heißen:
ActiveWindow.ScrollColumn = ScrollBar1
If Cells(8, ScrollBar1) = "" Then ScrollBar1 = ScrollBar1 - 1
Also müsste ich wissen welche Pfeiltaste gedrückt wurde.
Leider 0 Ahnung wie das geht.
besten Dank für jegliche Hilfe.
marion

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Scollbar, Pfeiltasten abfragen

13.01.2008 11:45:44

Andi
AW: Scollbar, Pfeiltasten abfragen

13.01.2008 12:43:00

Holger
AW: Scollbar, Pfeiltasten abfragen

13.01.2008 13:29:01

Andi
Danke Andi, Danke Holger

13.01.2008 19:13:00

marion

AW: Scollbar, Pfeiltasten abfragen

13.01.2008 11:45:44

Andi

Hi,
mir würde dazu dieses einfallen:
Dim sb_value As Integer


Private Sub UserForm_Initialize()
sb_value = ScrollBar1.Value
End Sub


Private Sub ScrollBar1_Change()
If ScrollBar1.Value > sb_value Then
MsgBox "Rechts"
Else
MsgBox "Links"
End If
sb_value = ScrollBar1.Value
End Sub

(nicht vergessen, die Variablen-Deklaration außerhalb der beiden Subs mitzukopieren...)
Schönen Gruß,
Andi

AW: Scollbar, Pfeiltasten abfragen

13.01.2008 12:43:00

Holger

Hallo Marion,
ich glaube nicht, dass Andi das getroffen hat, was du wolltest.
Ich schlage deshalb vor


Private Sub ScrollBar1_Change()
s = ScrollBar1.Value
c = ActiveCell.Column
v = Sgn(s - c)
If v = 0 Then Exit Sub
c = c + v
Do Until Cells(8, c)  "" Or c = ScrollBar1.Min Or c = ScrollBar1.Max
c = c + v
Loop
Cells(8, c).Select
ScrollBar1.Value = c
Runde1 = True
End Sub


Private Sub UserForm_initialize()
ScrollBar1.Max = 256
ScrollBar1.Min = 1
ScrollBar1.Value = ActiveCell.Column
End Sub

Viel Erfolg
Holger

AW: Scollbar, Pfeiltasten abfragen

13.01.2008 13:29:01

Andi

ich glaube nicht, dass Andi das getroffen hat, was du wolltest.
Was genau bringt Dich zu dieser Annahme?

Danke Andi, Danke Holger

13.01.2008 19:13:00

marion

Danke

Beliebteste Forumthreads (12 Monate)

Forumthread: Scollbar, Pfeiltasten abfragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread