per VBA zurück auf Tabelle1

Question

Hallo zusammen

Ich benötige ein Makro das mich immer wieder egal auf welchem
Tabellenblatt ich mich befinde zurück bringt auf´s Tabellenblatt1.
Geht so was. Benötige das Makro für eine Schaltfläche und habe keine
Ahnung von VBA.

danke

Gruß Noldi

Answer 1

Hallo Noldi,

kopiere folgenden Code in den Codebereich "DieseArbeitsmappe", er bewirkt bei einem Linksklick in A1 den Sprung in Tabelle1.
Eine Schaltfläche ist überflüssig.

Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Worksheets(1).Select
End Sub

Gruß
Rainer

Answer 2

Hallo Noldi,

noch ein Tipp hierzu. Mit Strg + Pos1 springst du ganz schnell nach A1 und dadurch zu Tabelle1. Damit ersparst du dir langes Scrollen.

Gruß Mr. K

Answer 3

Hallo Noldi,

ich hätte das Doppelklick Ereignis benutzt, damit ich nicht abhängig bin von einer Zelle.

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Application.Goto Reference:=Worksheets("Tabelle1").Range("A1"), scroll:=True
End Sub

Gruß hajo

Answer 4

Alternativ kannst du dir auch deinen eigenen Shortcut anlegen
Kopiere dazu im VBA-Editor folgenden code in ein neues (Menü Einfügen) oder bestehdendes Modul

Sub zuTabelle1()

Worksheets(1).Select

End Sub

Wähle dann in Excel 2000/2003 Extras -> Makro -> Makros -> dein Makro -> Optionen oder in späterem Excel Ansicht -> Makros -> dein Makro -> Optionen
Gib dort z.B. ein t in das kleine Feld ein. Nun kannst du von überall her mit STRG + T nach Tabelle 1 springen.

Gruß Mr. K

Answer 5

Hallo zusammen


Habe das Problem mit einer Makroaufzeichnung gelöst.
Geht prima.

Danke an Euch

Gruß Noldi