Per Knopfdruck zurück ins zuvor aktive Sheet
23.11.2006 12:22:38
Michael
Ich habe eine Tabelle mit mehreren Vorlagen, in die ich in bestimmte Zellen immer wieder mal neue Daten eintragen muss, aber auch die alten des öfteren brauche.
Zu diesem Zweck habe ich in jedem Sheet mit "Gültigkeit; Liste" gearbeitet. Die Daten (Kostenstelle und Name) sind in jedem Sheet gleich, allerdings brauche ich diese Liste trotzdem in jedem Sheet, da Gültigkeiten ja nur blattintern funktionieren. Damit ich nicht jedesmal jeden neuen Eintrag in jede Vorlage eintragen muss habe ich diese verformelt, dass immer der Eintrag aus der ersten Vorlage in alle anderen übernommen wird. Dazu muss ich aber beim Bearbeiten aus der aktuellen Vorlage in die erste Vorlage wechseln. das funktioniert mit meinen Buttons 'Neuer Name' und 'Neue Kostenstelle', die die jeweilige Liste einblenden:
Private Sub CommandButton2_Click()
Sheets("Vorlage1").Select
ActiveSheet.Range("IV1").Select
ActiveSheet.Columns("IV:IV").Select
Selection.EntireColumn.Hidden = False
End Sub
Private Sub CommandButton3_Click()
Sheets("Vorlage1").Select
ActiveSheet.Range("Iu1").Select
ActiveSheet.Columns("IU:IU").Select
Selection.EntireColumn.Hidden = False
Nun die Frage:
Wie komme ich von der Vorlage1 wieder in meine gerade bearbeitete Vorlage zurück? Mein Button 'Ausblenden und zurück' sieht so aus:
Private Sub CommandButton4_Click()
Columns("IV:IU").Select
Selection.EntireColumn.Hidden = True
Sheets("?").Select <----gibt es einen Befehl, der mich in die Vorlage zurückbringt, aus der ich komme?
Range("b7").Select