Gibts eine möglichkeit, wenn ich z.B in Tabelle1 bin mir diese mit einem befehl zu merken. ich wechsle dann mit einem makro zwischen verschiedenen tabellen hin und her und möchte dann wieder in tabelle 1 zurückkehren.
danke
Beispiel wenn gemerkte TAbelle immer verfügbar sein soll:
Public wksMerker As Worksheet
Sub test()
Set wksMerker = ActiveSheet
'oder
Set wksMerker = ActiveWorkbook.Worksheets("Tabelle1")
End Sub
'oder wenn nur innerhalb der Prozedur Name gemerkt werden
Sub test()
Dim wksMerker As Worksheet
Set wksMerker = ActiveSheet
'oder
Set wksMerker = ActiveWorkbook.Worksheets("Tabelle1")
End Sub
Public OldSheet As Object
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
OldSheet.Activate
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set OldSheet = Sh
Zum Wechseln in das vorherige Tabellenblatt habe ich hier das Ereignis "SheetBeforeDoubleClick" (also bei Doppleklick in eine Zelle) verwendet, natürlich kannst du auch ein anderes Ereignis (z.B. Anklicken eines Buttons) verwenden.
Liebe Grüße,
NoNet
Sub test()
Dim wksMerker As Worksheet
Set wksMerker = ActiveSheet
'...hier dein Code
'zurück zur Tabelle
wksMerker.Activate
End Sub
Gruss
Franz