Clever-Excel-Forum

Normale Version: Codefragment aufrufen, aber wie
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Ein schönen guten Tag,

ich habe in der Excel Hilfe folgenden VBA Code gefunden:


Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveWindow
        .ScrollRow = Target.Row
        .ScrollColumn = Target.Column
    End With
End Sub

Leider bin ich recht unkundig und weiß nicht, wie der zusätliche Code aussehen
müßte um das oben genannte Fragement aufrufen zu können. Da bräuchte ich mal
Hilfe. Danke.
Hi,

(18.11.2014, 14:44)Nonexperta schrieb: [ -> ]Leider bin ich recht unkundig und weiß nicht, wie der zusätliche Code aussehen müßte um das oben genannte Fragement aufrufen zu können. Da bräuchte ich mal
Hilfe. Danke.

da muß es keinen zusätzlichen Code geben. Du mußt nur ganz einfach diesen Code in das Code-Modul von "DieseArbeitsmappe" einfügen (für alle Blätter) oder direkt nur in das, auf dem es wirken soll.

Wenn Du dann in diesem Arbeitsblatt eine andere Zelle auswählst, müßte der Code starten und durchlaufen.
Denn da steht "Worksheet" und "SelectionChange", das bedeutet: wenn in dem entsprechenden Worksheet die Auswahl einer Zelle geändert wird, wird das Makro ausgeführt.
Hallo Ralf,

habe ich jetzt gemacht, aber leider passiert da nichts.
Hallo,

In Modul der Tabelle
Hallo Atilla,

funktioniert. Danke.
Hi,

(18.11.2014, 15:16)atilla schrieb: [ -> ]In Modul der Tabelle

hatte ich ja geschrieben:

Zitat:direkt nur in das, auf dem es wirken soll
Hi Ralf,

den Teil hinter dem "oder" hat der TE wahrscheinlich überlesen, so wie ich.
Hallöchen,

wenn es in Deiner Exceldatei unter DieseArbeitsmappe und damit auf allen Blättern wirken soll, dann mit diesem Sub

Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With ActiveWindow
        .ScrollRow = Target.Row
        .ScrollColumn = Target.Column
    End With
End Sub