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

Worksheet_Activate für alle Sheets

Forumthread: Worksheet_Activate für alle Sheets

Worksheet_Activate für alle Sheets
18.04.2024 20:45:35
Markus Klar
Guten Abend zusammen,

ich habe eine unbestimmte Anzahl von Excel-Sheets, welche alle von einem Dummy-Sheet geklont wurden.
D.h., der Code hinter den Sheets wird auch jedes Mal geklont.
Nun meine Frage: gibt es eine Möglichkeit, das "Worksheet_Activate", welches auf allen Sheets genau gleich ist, nur 1 Mal zu generieren und es auf allen Sheets anwendbar zu machen? Sozusagen wie eine Public Sub? Gleiches soll natürlich auch für die selbst erzeugten "Private Sub" gelten.

Vielen Dank schon mal.
VG Markus
Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Activate für alle Sheets
18.04.2024 21:00:40
Markus Klar
Ach schau mal an, so weit reichen meine angeblich guten VBA-Kenntnisse dann doch nicht ;)
Das hatte ich nicht gewusst, vielen Dank, damit lässt sich was anfangen.
Anzeige
Gerne !
18.04.2024 21:03:51
Onur
"Ach schau mal an, so weit reichen meine angeblich guten VBA-Kenntnisse dann doch nicht" - Wenn ich das früher gesehen hätte, hätte ich meinen Senf dazu gegeben. :)
AW: Gerne !
18.04.2024 21:32:01
Markus Klar
Na bloß gut, dass Du nicht richtig geguckt hast ^^
Wie würde sich das Ganze denn verhalten, wenn ich z.B. ein "Private Sub ComboBox1_Change()" auslagern wollte?
Anzeige
AW: Gerne !
18.04.2024 21:33:14
Onur
Hast du denn auf jedem Blatt eine Combobox?
AW: Gerne !
18.04.2024 21:35:46
Markus Klar
Ja genau, und es sind auch alles ComboBox1-er.
AW: Gerne !
18.04.2024 21:58:06
Onur
Wird so nicht gehen, nimm doch einfach eine Userform mit einer Combobox.
Anzeige
AW: Gerne !
18.04.2024 22:07:46
Markus Klar
Hm...muss ich mal schauen. Ich hatte mal in einem anderen Projekt eine Klasse für OptionButton, irgendwas mit 


Public WithEvents myOB as MSForms.OptionButton



Private Sub myOB_Click()

.

.

.

End Sub


Aber das scheint hier nicht zu funktionieren...schade.
Anzeige
AW: Gerne !
18.04.2024 22:11:08
Onur
Wenn die alle auf dem selben Blatt oder Userform liegen würden, schon.
AW: Gerne !
18.04.2024 22:13:42
Onur
Du kannst doch ein Formularsteuerelement nehmen und ihm immer das selbe Makro zuweisen.
AW: Gerne !
18.04.2024 22:17:45
Markus Klar
Joa das könnte ich machen...
Anzeige
AW: Gerne !
18.04.2024 22:18:24
Onur
Ist doch GENAU das, was du wolltest.
ja, abeeer...
18.04.2024 22:37:17
Yal
Ich fürchte, erstens dass es unter den Formularsteuerelemente keine richtigen ComboBox gibt, zweitens dass damit kein richtigen Ereignis Change sich überwachen lässt.

Gern nehme ich aber eine funktionierende Lösung entgegen, bin ja neugierig.

VG
Yal
Anzeige
AW: ja, abeeer...
18.04.2024 22:38:57
Onur
Punkt 1) Da irrst du dich
Punkt 2) Da irrst du dich.
AW: ja, abeeer...
18.04.2024 22:42:50
Yal
wie gesagt, wenn dem nicht so ist, nehme ich gern eine funktionierende Lösung entgegen.

Mein Forschungsdrang ist für diesen Usecase beschrenkt, da ich mit dem verteilten Code zufrieden wäre.

VG
Yal
Vielen Dank!
19.04.2024 09:24:30
Yal
schon wieder was gelernt.

VG
Yal
AW: Gerne !
18.04.2024 22:05:43
Yal
Hallo Markus,

Bei ComboBox auf dem Blatt kommst Du nicht darum, auf jedem Blatt einen ComboBox1_Change zu haben.

Aber Du könntest den Aktionscode in einer Sub in einem Modul haben: 
Public Sub HauptAktion(ByVal Sh As Object)

   '...

End Sub

Dann in dem "DieseArbeitsmappe"-Codepane einen Zuruf dieses Sub: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    HauptAktion Sh

End Sub

Und in jedem Blatt-Codepane 
Private Sub ComboBox1_Change()

    HauptAktion Me

End Sub
"Me" ist in dem Fall das Blatt, worauf ComboBox1 steht.

So wäre die Wiederholung des Codes minimiert.

VG
Yal
Anzeige
AW: Gerne !
18.04.2024 22:07:58
Onur
Und doch hätte er für jedes Blaat einen Code. DAS hätte er auch mit Sheet_Activate haben können, aber er will das ja nicht.
AW: Gerne !
18.04.2024 22:30:17
Yal
So sehe ich das auch, aber in dem Fall ist es nicht vermeidbar. Das einzig möglich ist, diesen repetitiven Code aufs minimal zu reduzieren.

Ohne alle Details zu kennen, gehe ich davon aus, dass das wesentliche Problem ist, dass wenn eine Änderung im Code vorgenommen werden muss, diese Änderung an mehrere Stelle übertragen werden muss. Je minimalistischer der Code, desto kleiner die Wahrscheinlichkeit eines Änderungsbedarfs.

VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Anzeige
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
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
Worksh_Activate per manuell od VBA unterscheidbar?
Jörg

Hi Leute
eins der Blätter in meiner Datei zeigt beim manuellen Aktivieren eine MsgBox "nix verändern..." usw, damit man daran erinnert wird, nicht versehentlich was reinzukritteln.
Dummerweise wird im Verlauf einer anderen Prozedur dies Blatt auch zwischendurch aktiviert - prompt kommt...
23.05.2009 14:03:32
Thread-ID: 1076847
5 Beiträge
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Druckbereich formatieren für alle Sheets VBA
Florian

Hi,
hab ein kleines Problem mit dem Druckbereich, finde irgendwie keine Losung:
Ziel ist es, ein komplettes Workbook (mehrere Sheets, jedes Sheet hat gleiche Struktur, aber unterschiedliche Anzahl Zeilen) auszudrucken (Datei wird neu per Makro erzeugt, Druckbereich muss also auch per Ma...
23.12.2009 11:11:47
Thread-ID: 1125701
5 Beiträge
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
VBA Sheets anlegen - Fehler
chris

Hallo VBA Experten,
ich habe eine frage.Ich habe eine Datei angehängt.
Warum kann ich das Makro nicht 2 mal ausführen ?
Das ganze ist jetzt ein Test gewesen.Ich möchte gerne in der Datei mehere Tabellenblätter anlegen.
Deshalb das Makro 2 mal Ausführen.Es kommt aber beim 2 klic...
14.12.2010 15:19:23
Thread-ID: 1191415
4 Beiträge
Zellüberwachung auf mehreren Worksheets via VBA
Frank

Hallo zusammen,
ich möchte in einem Workbook (mit einer Vielzahl von Worksheets) Veränderungen in bestimmten Zellen per VBA abfabgen und ein Event auslösen lassen.
Ich möchte auf keinen Fall auf in jedem einzelnen Worksheet ein "Worksheet_Change" verwenden, sondern das ganze am liebsten...
15.04.2011 14:35:58
Thread-ID: 1210614
9 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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