Re: Zurück Button
18.07.2002 14:57:28
JürgenR
Hi Nicki,ich glaube da wirst du den Umweg über eine Zelle in einer Tabelle gehen müssen:
In das Arbeitsmappen-Modul
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Range("Ziel_Tab")=Sh.Name
End Sub
wobei Ziel_Tab ein Zelle mit Bereichsname ist.
Und dann in normales Modul:
Sub zurueck()
Dim i As String
i = Range("Ziel_Tab").Text
Sheets(i).Select
End Sub
Wenn du in die Registrierung eingreifen darfst und willst geht auch so:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Call SaveSetting("BlattVorher", ActiveWorkbook.Name, "Tabelle", Sh.Name)
End Sub
und
Sub zurueck()
Dim i As String
i = CStr(GetSetting("BlattVorher", ActiveWorkbook.Name, "Tabelle", "Falsch"))
Sheets(i).Select
End Sub
Gruß
Jürgen