Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro bei Registerblatt x ausführen

Makro bei Registerblatt x ausführen
Ingo
Hallo miteinander,
hab mal wieder ein Problem.
Bei meiner Exceldatei habe ich mehrere Registerblätter in Benutzung und
immer wenn das Blatt "Vorlage" ausgewählt wird, soll der Befehl
Bedienungsanleitung.Show
ausgeführt werden.
Dachte da an sowas wie
Private Sub Workbook_Open()
nur halt immer wenn "Vorlage" gewählt wird...
Geht das überhaupt, konnte nichts dazu finden.
Vielen Dank schonmal für Eure Hilfe,
Ingo

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

Betreff
Benutzer
Anzeige
AW: Makro bei Registerblatt x ausführen
24.02.2010 09:54:32
Rudi
Hallo,
Rechtsklick auf die Registerzunge-Code anzeigen 
Private Sub Worksheet_Activate()
Bedienungsanleitung.Show
End Sub

Gruß
Rudi
AW: Makro bei Registerblatt x ausführen
24.02.2010 10:18:51
Ingo
danke rudi,
aber ich glaub ich hab bei meiner frage was vergessen...
jetzt hab ich das problem, wenn jemand das blatt kopiert, wird der befehl mitkopiert. ich will gerne, daß der code nur bei dem blatt "vorlage" ausgeführt wird....
Also meine Idee ginge in diese Richtung: 
Private Sub Worksheet.Shapes("Vorlage")_Activate()
Bedienungsanleitung.Show
End Sub

oder muß ich da n if einbauen?
gruß,
ingo
Anzeige
dann anders
24.02.2010 10:45:25
Rudi
Hallo,
in DieseArbeitsmappe: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Vorlage" Then Bedienungsanleitung.Show
End Sub

Den anderen Code löschen!
Gruß
Rudi
Super, Danke!
24.02.2010 11:00:28
Ingo
das war die Lösung die ich gesucht habe, danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige