Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige