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
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Event bei Wechsel des WorkSheet

Event bei Wechsel des WorkSheet
14.10.2016 12:19:18
Ted
Hallo,
ich versuche einen Event zu nutzen, der beim Wechsel des Worksheet ausgelöst wird. Dabei soll es gleichgültig sein, welches Sheet aktiviert wird.
Ich habe folgende Möglichkeiten im Netz gefunden, die jedoch alle drei niemals ausgelöst werden:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Es wurde Tabellenblatt [ " & Sh.Name & " ] aktiviert."
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox ("Ja")
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox ("auch")
End Sub
Habt Ihr eine Lösung für mich?
Ich danke schonma.
Gruß
Ted

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Event bei Wechsel des WorkSheet
14.10.2016 12:25:51
Daniel
Hi
richtig ist:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
der Code muss im Modul "DieseArbeitsmappe" stehen.
gruß Daniel
AW: Event bei Wechsel des WorkSheet
14.10.2016 13:26:23
Ted
Hallo Daniel,
mein zuerst genanntes Beispiel ist identisch mit Deinem. Dies funktioniert, wie gesagt, NICHT.
Gruß
Ted
AW: Event bei Wechsel des WorkSheet
14.10.2016 13:34:17
Daniel
Hi
ist jetzt schwer zu sagen, was du da falsch gemacht hast, weil ich deine Datei nicht kenne.
vielleicht hast du:
- den code im falschen Modul eingefügt
- vergessen, beim Start der Datei die markos zu aktivieren
- du befindest dich noch im Entwurfsmodus
- du hast vorher mal irgendwann den Befehl Application.EnableEvents = False ausgeführt und die Events noch nicht wieder aktiviert
- du hast zuvor eine andere Mappe aktivierst und klickst jetzt dieses Blatt an, dann wird nicht SheetActivate ausgeführt, sondern WorkbookActivate (sofern es vorhanden ist)
das wären jetzt die Möglichkeiten, die mir so spontan einfallen.
falls immer noch nicht das richtige dabei ist, musst du deine Datei hochladen, oder bei der NSA nachfragen, damit die mal auf deinen Rechner schauen.
Gruß Daniel
Anzeige
AW: Event bei Wechsel des WorkSheet
14.10.2016 14:02:49
Ted
Hi,
- Modul ist "DieseArbeitsmappe"
- Makros sind bei mir standardmäßig aktiviert
- Funktioniert in beiden Modi nicht
- Nein, Events sind bei mir nicht ausgeschaltet, andere Events, wie z. B. Worksheet_SelectionChange funktionieren. Ich habe Application.EnableEvents = true trotzdem zum Test ausgeführt, ohne Erfolg
- Nein, es ist nur diese eine Mappe geöffnet
Ich werde es mal mit einer komplett neuen Mappe auf einem anderen Rechner versuchen. Wenn es dort dann auch nicht klappt, werde ich die Mappe hochladen.
Danke und Gruß
Ted
AW: Event bei Wechsel des WorkSheet
14.10.2016 14:07:02
baschti007
Du hast auch die Mappe gespeichert und einmal wieder geöffnet ?
Gruß Basti
Anzeige
AW: Event bei Wechsel des WorkSheet
14.10.2016 14:21:48
Daniel
Hi
bliebe noch die Option ein Tipfehler in der Makro-Kopfzeile.
Eventmakros sollte man daher nicht durch Tippen oder Kopieren erzeugen, sondern immer über die Auswahl des Objektes und des Events in den Comboboxen oberhalb des Codefensters (links das Objekt auswählen, dann rechts das Event aus der Liste.
dann wird da Eventmakro mit korrekter Bezeichnung eingefügt.
Gruß Daniel
AW: Event bei Wechsel des WorkSheet
15.10.2016 17:07:49
Ted
Hallo miteinander,
aaalso, ich habe das Gleiche erfolgreich auf meinem privaten PC gemacht. Auch die gestern angelegte Mappe, die auf meinem Job-Notebook nicht funktioniert, läuft hier einwandfrei.
Ich werde die hier erstellte Mappe am Montag mit auf die Arbeit nehmen und dort testen. Mal sehen.
@Basti: Ich habe sogar das Notebook neu gestartet.
Gruß
Ted
Anzeige
AW: Event bei Wechsel des WorkSheet
16.10.2016 08:24:19
Bastian
Wow Ted du bist mein Held ;)
AW: Event bei Wechsel des WorkSheet
17.10.2016 06:08:41
Ted
lol
AW: Event bei Wechsel des WorkSheet
17.10.2016 08:56:06
Ted
Ha! Die auf meinem Privatrechner erstellte Datei funktioniert auch hier, die erste weiterhin nicht. Da ich sämtliche Inhalte per Copy&Paste eingefügt hatte, kann ein Tippfehler ausgeschlossen werden. Also, ein nicht rekonstruierbares Problem und damit nur unnötige Arbeit. Hurra.
Ich danke allen für ihre Hilfe.
Gruß
Ted
AW: Event bei Wechsel des WorkSheet
14.10.2016 12:28:03
Dieter(Drummer)
Hallo Ted,
wenn du z.B. diesen Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Es wurde Tabellenblatt [ " & Sh.Name & " ] aktiviert."
End Sub

unter "Diese Arbeitsmappe" einfügst und dan z.B. irgendeine Tabelle aktivierst, wird dir der Name der Tabelle angezeigt, also das Makro ausgelöst. Evtl. hilft dir das weiter.
Gruß, Dieter(Drummer)
Anzeige
AW: Event bei Wechsel des WorkSheet
14.10.2016 12:33:33
fcs
Hallo Ted,
die Ereignismakros, die für alle Blätter in der Arbeitsmappe gelten sollen, müssen im VBA-Editor unter dem Code-Modul "DieseArbeitsmappe" (engl.: "ThisWorkbook") angelegt werden.
Zusätzlich mussen beim Öffnen der Datei die Makros aktiviert werden bzw. die Datei muss in einemvertrauten Verzeichnis liegen.
Das Change-Ereignis ist hier nicht zweckmäßig, denn es reagiert nur auf Änderungen/Werteingaben in Zellen.
Gruß
Franz
Gruß
Franz
'Makro muss im VBA-Editor unter "DieseArbeitsmappe/Thisworkbook eingefügt werden.
'Deactivate-Makro wird vor dem Activate-Makro ausgeführt.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Es wurde Tabellenblatt [ " & Sh.Name & " ] aktiviert."
End Sub
Private Sub Workbook_SheetdeActivate(ByVal Sh As Object)
MsgBox "Es wurde Tabellenblatt [ " & Sh.Name & " ] deaktiviert."
End Sub

Anzeige

101 Forumthreads zu ähnlichen Themen

Private Sub Worksheet_Activate()
Vera

Liebe Forumsmitglieder
mir ist aufgefallen dass Worksheet_Activate() nur bei Tabellen funktioniert. z.B.
Private Sub Worksheet_Activate() MsgBox "hallo" End Sub
Bei eingefügten Diagrammen (als eigene Seite) funktioniert das aber leider nicht.
Gibt es da auch eine Methode um...
05.09.2008 09:09:00
Thread-ID: 1007583
4 Beiträge
Anzeige
Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
Private Sub Worksheet_Change kurz deaktivieren
Karsten

Hallo,
innerhalb der Befehle unter:
Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
wird
Private Sub Worksheet_Change(ByVal Target As Range)
aufgerufen. Ich möchte dies aber für den einen Durchlauf verhindern. Kann mir jemand weiterhelfen,...
05.04.2009 19:12:12
Thread-ID: 1066944
7 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
Frage zu Private Sub WorksheetActivate() | Herbers Excel-Forum
Angelo Wi
Frage zu Private Sub Worksheet_Activate()
Kann ich ein anderes Sub starten zB Application.Run "BLZusKopieren"
funktioniert bei mir nicht
03.02.2010 21:28:30
Thread-ID: 1135596
6 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
6
6
7
2
17
2
5
4
8
10
2
8
1
2
4
2
3
11
2
7
10
7