Office: Mehrere Makros gleichzeitig ausführen

Hallo Zusammen!

Ich habe eine Haupttabelle in der ich gerne einen Button erstellen würde, der mehrere Makros ausführen soll. Diese Makros sind auf ca. 20 nachfolgenden Worksheets verteilt. Auf jedem ist jeweils ein Makro.
Nun möchte ich dass alle mit einem Klick gleichzeitig ausgeführt werden, geht das ?

Vielen Dank für jegliche Hilfe!
VG
punikaa

:)

 

Hi,

was verstehst du unter "Diese Makros sind auf ca. 20 nachfolgenden Worksheets verteilt"?

 

Im Click_Ereignis des Buttons (ActiveX-Steuerelement)
Die Makros werden so mit einem Klick nacheinander abgearbeitet.
Code:

 

Hallo Beverly,

auf dem zweiten Blatt ist ein Button eingebaut durch den die Werte in der Haupttabelle (Arbeitsblatt 1) nach einem bestimmten Wert gefiltert und in die Tabelle auf diesem Blatt kopiert werden. Auf den folgenden Arbeitsblättern sieht es genauso aus, mit dem Unterschied dass dort nach anderen Werten gesucht wird.
Nun möchte ich die Sache vereinfachen falls jemanden kein Bedarf oder keine Lust hat in jedes Blatt einzelnd zu gehen und dort den Button zu betätigen, sodass man mit einem Klick alle Tabellen mit ihren Werten füllt.
Ist das einigermaßen verständlich? :S

 

Hi,

ich nehme an, es handelt sich um ActiveX-Steuerelemente? Da diese Prozeduren standardmäßig als Private deklariert sind, musst du sie umbenennen in Public - dann kannst du sie aufrufen mittels

Code:

 

ActiveX-Steuerelemente? Tut mir Leid ich bin total schlecht in VBA.. habe auch nur mit sehr viel Mühe die Makros erstellt...
Die sehen für jedes Blatt jeweils so aus:

Code:

 

In diesem Fall verwendest du ein Formular-Steuerelement (steht alles dran wenn man diese Steuerelemente einfügt *wink.gif* ) .

Ich würde dir da empfehlen, ein gemeinsames extra Makro für alle Tabellenblätter zu schreiben, nur musst du dazu in einer Schleife über alle Tabellenblätter laufen und dich dabei auf das betreffende Tabellenblatt beziehen:

Code:

 

Hm.. irgendwie verstehe ich das nicht ganz :/
Der Wert "Holz" wird ja nur in der zweiten Tabelle gesucht. In den folgenden wird jedesmal nach einem anderen Wert gefiltert..
Der Code den ich hier geschickt habe bezieht sich nur auf diese eine Tabelle - in den anderen ist er zwar vom Aufbau gleich aber es wird nach anderen Werten gesucht und natürlich dementsprechend auch in das dazugehörige Blatt übertragen.

Irgendwie klappt das mit deinem Code nicht, dass alles gleichzeitig ausgelöst wird .... wahrscheinlich habe ich was falsch gemacht

 

Ich hatte doch gefragt, ob die Makros für alle Tabellen geich sind - das sind sie aber offensichtlich nicht, wenn nicht in allen nach "Holz" gesucht werden soll *wink.gif* . Nach welchen anderen Suchbegriffen soll denn außerdem gesucht werden und in welcher Reihenfolge und bezogen auf welche Tabellenblattnummer?

 

Sorry dann habe ich mich wohl falsch ausgedrückt...*frown.gif*
Es gibt die eine erste Haupttabelle in der über 200 Zeilen gespeichert sind. Es folgen ca. 20 weitere Tabellenblätter mit eigenen Tabellen. In jeder Tabelle ist ein Button. Wenn ich diesen anklicke wird die Haupttabelle in Spalte 1 nach einem gesuchten Begriff durchsucht und alle gefundenen Zeilen werden in die Zieltabelle kopiert. Es sind jedesmal andere Begriffe und es gibt wie gesagt über 20 Tabellen.
Ich hatte gehofft ich kann in Form eines neuen Makros alle anderen Makros ausühren und dann ein Button in der Haupttabelle erstellen auf das ich dieses Makro platziere. Dann sollten beim Anklicken alle Makros ausgeführt werden... sprich alle Tabellen sollten sich mit ihren spezifischen Zeilen füllen.
Scheint aber gar nicht so einfach zu sein wie ich gehofft hatte für mich als VBA Laie ... *frown.gif*

 

Wie hast du die Makros dem Button in jedem Tabellenblatt zugewiesen: hast du einen Doppelklick darauf gemacht oder einen Rechtsklick und dann "Makro zuweisen" benutzt?

Einfachere Variante: lade eine Beispielmappe mit 2 oder 3 Tabellenblättern und den betreffenden Makros hoch damit man genau sieht wie die Situation in deiner Mappe ist - sonst können wir noch 100 Jahre reden ohne zu einer Lösung zu kommen *wink.gif* .

 

Leider ist es mir hier nicht möglich die Datei hochzuladen. Ich habe eine Testdatei erstellt und ich hoffe die Bilder und der Code sind verständlich.
So ist die jetztige Situation:

Code:

 

In diesem Fall ist es so, dass du anscheinend Formen eingefügt und diesen das betreffende Makro zugewiesen hast, wobei alle Makros sich in einem Standardmodul befinden. Normalerweise kann man in solch einem Fall einfach im AlleMakro die Namen der einzelnen TeilMakros untereinander schreiben, d.h. nacheinander aufrufen - also nach diesem Prinzip:

Code:

Aber: du willst ja die Daten aus allen Tabellenblättern untereinander schreiben, in deinen Teil-Makros jedoch beginnt die Zählung der 1. Zielzeile IMMER WIEDER mit a = 5, d.h. du würdest die Daten also jeweils überschreiben. Aus diesem Grund kannst du die Teil-Makros nicht einfach nacheinander aufrufen.

Versuche es mal so:

Code:

 

Das klappt schon einigermaßen.. allerdings ist es so, dass wenn ich einen neue Zeile zur Haupttabelle hinzufüge, nicht die letzte Zeile unten an die Zieltabelle rangehangen wird sondern es werden wieder komplett alle Zeilen rüberkopiert... also sogesehen ist dann alles doppelt :S

 

Dann lösche vorher alle Zellen

Code: