Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Codefragment aufrufen, aber wie
#1
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.
Antwortento top
#2
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.
Antwortento top
#3
Hallo Ralf,

habe ich jetzt gemacht, aber leider passiert da nichts.
Antwortento top
#4
Hallo,

In Modul der Tabelle
Gruß Atilla
Antwortento top
#5
Hallo Atilla,

funktioniert. Danke.
Antwortento top
#6
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
Antwortento top
#7
Hi Ralf,

den Teil hinter dem "oder" hat der TE wahrscheinlich überlesen, so wie ich.
Gruß Atilla
Antwortento top
#8
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
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste