Von welchem Blatt aufs aktuelle gewechselt?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Von welchem Blatt aufs aktuelle gewechselt?
von: Russi
Geschrieben am: 10.11.2003 14:08:50

Hallöchen!

In meiner Excel-Datei laufen bei Aktivierung der einzelnen Arbeitsblätter verschiedene Makros ab.

Je nach dem, von welcher Arbeitsmappe ich bspw. auf "Tabelle2" wechsle, soll jedoch eine andere Funktion ausgeführt werden. Pseudomäßig etwa so:


Sub Worksheet_Activate()
    If Wechsel von Tabelle1 nach Tabelle2 then
        debug.print "Du kommst von Tabelle1"
    elseif wechsel von Tabelle3 nach Tabelle2 then
       debug.print "Du kommst von Tabelle3"
    end if
End Sub


Kann mir jemand sagen, wie das geht?!?

Russi
Bild


Betrifft: AW: Von welchem Blatt aufs aktuelle gewechselt?
von: Hajo_Zi
Geschrieben am: 10.11.2003 14:16:45

Hallo Russi

benutze

Private Sub Workbook_Deactivate()


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: AW: Von welchem Blatt aufs aktuelle gewechselt?
von: Lutz
Geschrieben am: 10.11.2003 14:21:21

Hallo Russi,

vielleicht hilft Dir das hier weiter:

Public aaa, bbb


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
bbb = aaa
MsgBox "Sie kommen von Blatt " & bbb
aaa = ActiveSheet.Name
End Sub


mit Variable bbb kannst Du dann weiterarbeiten...

Gruß Lutz


Bild


Betrifft: AW: Von welchem Blatt aufs aktuelle gewechselt?
von: Armin
Geschrieben am: 10.11.2003 14:21:41

Hallo Ruusi,versuche es mal so.

Sub Worksheet_Activate()
...
Select Case ActiveSheet.Name

Case "Tabelle1"
.......
Case "Tabelle2"
........
Case "Tabelle3"
..........
End Select


Bild


Betrifft: AW: Von welchem Blatt aufs aktuelle gewechselt?
von: Russi
Geschrieben am: 10.11.2003 14:32:16

Danke Euch allen für die schnellen Antworten! Damit komme ich weiter!

Viele Grüße
Russi


Bild

Beiträge aus den Excel-Beispielen zum Thema " Von welchem Blatt aufs aktuelle gewechselt?"