AW: Code f?r Schaltfl?che
OliveR
eine Zelle nutzen, um den Namen des zuletzt genutzten Sheets zu speichern. Ich habe hier die Zelle A1 genutzt.
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Set sh = Worksheets("Stammblatt")
sh.Range("A1") = ActiveSheet.name
sh.Activate
sh.Cells(1, 1).Select
End Sub
Dann den Namen aus A1 auslesen und zur?ck springen.
Private Sub CommandButton1_Click()
Dim sh As Worksheet, name$
Set sh = Worksheets(ActiveSheet.Cells(1, 1).Value)
sh.Activate
End Sub
Gru?
Oliver