Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro laufen lassen bei Sheetwechsel

Forumthread: Makro laufen lassen bei Sheetwechsel

Makro laufen lassen bei Sheetwechsel
19.11.2007 08:26:40
Konni
Hallo Freaks,
ich möchte, dass wenn ich von Tabelle 1 nach Tabelle 2 wechsele, ein Makro abläuft. Leider kriege ich es nicht hin mit "If Sheets("Tabelle2").Activate Then ...."
Bestimmt simpel, aber ....
Vielen Dank für Eure Unterstützung!
Gruß: Konni

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro laufen lassen bei Sheetwechsel
19.11.2007 08:42:00
Hajo_Zi
Hallo Konni,
benutze die Aktion
Private Sub Worksheet_Activate() unter der Tabelle oder
Private Sub Workbook_SheetActivate(ByVal Sh As Object) unter DieserArbeitsmappe

AW: Makro laufen lassen bei Sheetwechsel
19.11.2007 08:43:13
Renee
Hi Konni,
In Tabelle2 (Makro läuft wenn Tabelle 2 aktiviert wird):

' Code in das Tabellenblatt 2
Private Sub Worksheet_Activate()
DeinMakroName
End Sub


oder in Tabelle1(Makro läuft wenn Tabelle 1 deaktiviert wird):


' Code in das Tabellenblatt 1
Private Sub Worksheet_Deactivate()
DeinMakroName
End Sub


oder genau nach deinen Anforderung (nur bei Wechsel von Tabelle 1 nach Tabelle 2):


' Code in DieseArbeitsmappe
Public tLastSheetName As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If tLastSheetName = "Tabelle1" And Sh.Name = "Tabelle2" Then
DeinMakroName
End If
tLastSheetName = Sh.Name
End Sub


GreetZ Renee

Anzeige
AW: Makro laufen lassen bei Sheetwechsel
19.11.2007 08:43:52
Matthias
Hallo Konni,
in "DieseArbeitsmappe":

Option Explicit
Dim oldSheet As Worksheet
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If oldSheet.Name = "Tabelle1" And Sh.Name = "Tabelle2" Then
MsgBox "von 1 auf 2"
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set oldSheet = Sh
End Sub


Gruß Matthias

Anzeige
Vielen Dank!!
19.11.2007 08:55:00
Konni
Ich bedanke mich bei allen Antwortern auf's Herzlichste!! (War wirklich simpel)
Viele liebe Grüße: Konni
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige