Microsoft Excel

Herbers Excel/VBA-Archiv

Scrollen

Betrifft: Scrollen von: WalterK
Geschrieben am: 20.09.2014 17:21:10

Hallo,

In meiner Tabelle friere ich die Zeilen 1:10 ein.

Ich möchte in der Zelle A1 einen Hinweis bekommen, wenn die Liste gescrollt ist.

Wenn also z.B. unmittelbar unter der Zeile 10 eine Zeile größer als Zeile 11 steht soll in der Zelle A1 der folgende Hinweis erscheinen: "Achtung: Liste ist gescrollt!"

Der Hinweis soll kommen, wenn in dieses Tabellenblatt gewechselt wird.

Besten Dank für die Hilfe und Servus, Walter

  

Betrifft: AW: Scrollen von: Hajo_Zi
Geschrieben am: 20.09.2014 17:56:48

Hallo Walter,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Option Explicit

Private Sub Worksheet_Activate()
    If Left(ActiveWindow.ActivePane.VisibleRange.Address(False, False), _
        InStr(ActiveWindow.ActivePane.VisibleRange.Address(False, False), ":") - 1) <> "A11"  _
Then
        Range("A1") = "Achtung: Liste ist gescrollt!"
    Else
        Range("A1").ClearContents
    End If
End Sub
GrußformelHomepage


  

Betrifft: TipTop Hajo, besten Dank! Servus, Walter von: WalterK
Geschrieben am: 20.09.2014 18:01:09




 

Beiträge aus den Excel-Beispielen zum Thema "Scrollen"