Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Scollbar, Pfeiltasten abfragen

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
Anzeige
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

Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige