Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Worksheet_Activate() VBA

Forumthread: Private Sub Worksheet_Activate() VBA

Private Sub Worksheet_Activate() VBA
17.06.2006 18:04:24
Peter
Hallo
habe in einem Tab den volgenden Code stehen.

Private Sub Worksheet_Activate()
LA06
End Sub

Hiermit wird das Makro LA06 beim öffnen des Tabs gestartet, dachte ich jedenfalls.Geht aber nicht.
Das Makro startet in der VBA Umgebung einwandfrei (F8)(Spezialfilter).
Hat jemand einen Tip, woran das liegen könnte? Würde mich freuen.
Mfg. Peter
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Worksheet_Activate() VBA
17.06.2006 18:08:05
Cardexperte
Hallo, steht dieses Makro wirklich im worksheetereignis, im Reiter oben muss worksheet stehen! und schreib mal vor la06 ein load davor.
Gruss WS
AW: Private Sub Worksheet_Activate() VBA
17.06.2006 18:41:36
Peter
Hallo Cardexperte
vielen Dank für Deine Rückmeldung.
worksheet steht oben links drin, Activate auf der rechten seite.
load bringt eine fehlermeldung Sub oder Funktion nicht difiniert.
Mfg Peter
Anzeige
AW: Private Sub Worksheet_Activate() VBA
17.06.2006 22:24:28
Cardexperte
Hallo,
na dann hast du doch den Fehler, es existiert dein Makro mit dem Namen la06 eben nicht!
Gruss WS
Vielen Dank natürlich auch an Cardexperte
18.06.2006 18:58:52
Peter
..
AW: Private Sub Worksheet_Activate() VBA
17.06.2006 23:25:51
Erich
Hallo Peter,
wenn LA06 bei diesem Aufruf nicht gefunden wird, steht dieses Makro vermutlich im Klassenmodul
eines anderen Tabellenblatts oder der Arbeitsmappe. Oder ist LA06 vielleicht als Private deklariert?
Wenn LA06 in einem allgemeinen Modul (etwa in "Modul1") und nicht privat ist,
wird es auch gefunden und aufgerufen.
LA06 existiert ja irgendwo, du kannst es ja im VBA-Editor starten.
Was meinst du in dem Zusammenhang mit (F8)(Spezialfilter) ?
Ob alle Codes einer Mappe überhaupt lauffähig sind, kannst du schon im VBA-Editor mit
Debuggen - Kompilieren von ...
testen, das ist einfacher als erst zur Laufzeit.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
vielen Dank an Erich
18.06.2006 18:57:22
Peter
..
Danke für Rückmeldung ...
18.06.2006 19:31:38
Erich
Hallo Peter,
... aber es wär doch auch interessant, Ursache und Lösung des Problems zu erfahren.
Einen schönen Restsonntag wünscht
Erich aus Kamp-Lintfort
AW: Danke für Rückmeldung ...
18.06.2006 19:46:57
Peter
Hallo Erich
hast natürlich Recht.
Habe die Mappe NEU geschrieben, und immer wieder überprüft ob der Fehler wieder auftritt.
Waren ja nur wieder 8 Std. arbeit, aber bis jetzt gehts.
Vielen Dank nochmal für deine Hilfe.
schönen Sonntagabend wünscht Dir Peter
Anzeige
;

Forumthreads zu verwandten 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
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 open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 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
Anzeige
Problem mit Private Sub Workbook_SheetDeactivate
Peter

Guten Tag
Immer wenn ich die Tabelle "Journal-zum-bearbeiten" verlasse, sollte der Code Aktivieren_Analyse ausgeführt werden.
Mir ist nicht klar, weshalb der nachfolgende Code dies nicht immer auslöst:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If Sh.Name = "Journal-zu...
14.10.2009 15:21:27
Thread-ID: 1109595
3 Beiträge
Anzeige
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Klassenmodul: Private Sub Class_Initialize()
Helmut

Hallo,
ich möchte im Klassenmodul clClass an
Private Sub Class_initialize(x as String) die Variable x übergeben.
Funktioniert bei mir später nicht, wenn ich im Programm
Dim Test as clClass
set Test=new clClass("Test")
eingebe.
a) kann man bei Class_Initialize Variab...
06.11.2009 11:57:37
Thread-ID: 1114943
2 Beiträge
VBA : Aufruf Sub2() innerhalb eines Sub1()
Hajo
Hallo Andreas
Gruß Hajo
16.04.2002 21:49:31
Thread-ID: 113895
2 Beiträge
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 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
Private Sub WorksheetActivate + Application.Run ? | Herbers Excel-Forum
Angelo Wi
Guten Tag
ich möchte dass in diesem sub über Application.Run "Kontrolle" ein weiteres Makro sofort gestartet wird
damit das gesamte Rechenwerk überprüft und kontrolliert werden kann
bei mir funktioniert das so nicht
Herzlichen Dank für die Lösung
mfG Angelo
Private Sub Works...
05.02.2010 09:48:04
Thread-ID: 1136029
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Private Sub Worksheet_Activate: So funktioniert's in Excel VBA

Schritt-für-Schritt-Anleitung

Um das Private Sub Worksheet_Activate in Excel VBA zu nutzen, folge diesen Schritten:

  1. Öffne den VBA-Editor mit ALT + F11.

  2. Wähle im linken Fenster das entsprechende Arbeitsblatt aus.

  3. Klicke auf das Dropdown-Menü "Allgemein" und wähle "Worksheet".

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Activate()
    Call LA06
End Sub

  5. Stelle sicher, dass das Makro LA06 im gleichen Arbeitsblatt oder in einem allgemeinen Modul definiert ist und nicht als Private deklariert wurde.

Häufige Fehler und Lösungen

Beim Arbeiten mit private sub worksheet_activate() können folgende Fehler auftreten:

  • Fehlermeldung: Sub oder Funktion nicht definiert
    Lösung: Überprüfe, ob das Makro LA06 existiert und korrekt benannt ist. Es darf nicht als Private deklariert sein.

  • Das Makro wird nicht ausgeführt
    Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblattmodul steht. Der Header sollte Worksheet sein.

Alternative Methoden

Wenn das Private Sub Worksheet_Activate nicht die gewünschten Ergebnisse liefert, kannst du folgende Alternativen ausprobieren:

  • Workbook_Open: Du kannst Private Sub Workbook_Open verwenden, um Makros beim Öffnen der Arbeitsmappe auszuführen.
  • Worksheet_Deactivate: Mit Private Sub Worksheet_Deactivate kannst du Aktionen definieren, die ausgeführt werden, wenn das Arbeitsblatt verlassen wird.

Praktische Beispiele

Hier sind einige praktische Beispiele für die Nutzung von private sub worksheet_activate():

  1. Einfaches Makro ausführen:

    Private Sub Worksheet_Activate()
    MsgBox "Willkommen auf diesem Arbeitsblatt!"
End Sub

  2. Daten aktualisieren bei Aktivierung:

    Private Sub Worksheet_Activate()
    Call UpdateData
End Sub

  3. Öffnen eines Formulars:

    Private Sub Worksheet_Activate()
    UserForm1.Show
End Sub

Tipps für Profis

  • Verwende Debug.Print, um den Status von Variablen während der Ausführung zu überwachen.
  • Teste deinen Code regelmäßig mit F8, um sicherzustellen, dass alles wie gewünscht funktioniert.
  • Nutze Error Handling, um unerwartete Fehler abzufangen und zu behandeln.

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen Private Sub und Public Sub?
Private Sub ist nur innerhalb des entsprechenden Moduls verfügbar, während Public Sub von anderen Modulen aufgerufen werden kann.

2. Warum funktioniert mein Makro nicht, wenn ich es im Arbeitsblatt aktiviere?
Überprüfe, ob das aufgerufene Makro im richtigen Modul definiert ist und ob der Name korrekt geschrieben ist. Der Code muss auch im richtigen Arbeitsblattmodul stehen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige