scrollen mit Maus per Schaltfläche unterbinden

Forumthread: scrollen mit Maus per Schaltfläche unterbinden
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 15:56:31

Anka

Hallo,
wer kann helfen?
Ich möchte gerne in einer Arbeitsmappe das scrollen mit
der Maus per Befehlsschaltfläche unterbinden und aktivieren
können.
Hat jemand `ne Idee?
Grüße
Anka

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 16:32:39

Josef
AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 19:36:14

Anka
AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 20:45:04

Josef

AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 16:32:39

Josef

Hallo Anka!
Vom Prinzip her so:


Sub scroll_Aus_An()
If ActiveSheet.ScrollArea = ActiveWindow.VisibleRange.Address Then
ActiveSheet.ScrollArea = ""
Else
ActiveSheet.ScrollArea = ActiveWindow.VisibleRange.Address
End If
End Sub

Gruß Sepp

AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 19:36:14

Anka

Hallo Sepp,
dein Code funktioniert Einwandfrei!
Ich würde aber gerne erreichen, das nur
die Funktion "Scrollen mit der Maus"
abgeschaltet werden kann. Manuell solle
man sich aber noch an die Bildlaufleiste
halten können. Geht das?
Viele Grüße
Anka

AW: scrollen mit Maus per Schaltfläche unterbinden

13.01.2005 20:45:04

Josef

Hallo Anka!
Im Moment hab ich dazu keine weitere Idee!
Gruß Sepp