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

Makro in mehreren Tabellen starten

Forumthread: Makro in mehreren Tabellen starten

Makro in mehreren Tabellen starten
29.01.2009 16:45:00
Anfänger
Hallo zusammen,
ist es möglich ein Makro über mehrere Tabellenblätter laufen zu lassen ohne alle einzeln über den Befehl
sheets("Tabelle1").select
call Makro1
sheet("Tabelle2").select
call Makro1
...
anzusteuern?
Mein Makro läuft nämlich noch sehr langsam und soll ein wenig beschleunigt werden.
Danke im voraus!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro in mehreren Tabellen starten
29.01.2009 16:58:37
Sonnenpeter
Hallo,
stell mal den Makrocode ein
Gruß SP
AW: Makro in mehreren Tabellen starten
29.01.2009 17:35:36
Anfänger
Makrocode sieht wie untenstehend aus:
Sub Makro_auf_mehreren_Tabellen_laufen_lasen() Sheets("Tabelle1").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle2").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle3").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle4").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle5").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle6").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle7").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle8").Select Call überflüssige_Zeilen_ausblenden Sheets("Tablelle9").Select Call überflüssige_Zeilen_ausblenden Sheets("Tabelle10").Select Call überflüssige_Zeilen_ausblenden 

Sub überflüssige_Zeilen_ausblenden()
Rows("7:206").Hidden = True
For i = 1 To Range("a1000").Value
Rows("7:10").Hidden = False
Rows(10 + i).Hidden = False
Next
End Sub
Anzeige
AW: Makro in mehreren Tabellen starten
29.01.2009 17:00:00
mariposa
Hallo,
eine von mehreren Möglichkeiten ist folgende:
for i = 1 to activeworkbook.worksheets.count
sheets("Tabelle" & i).select
call Makro1
next i
Je nachdem, was dein Makro tun soll, ist es eventuell gar nicht nötig, den Select-Befehl zu verwenden, das geht fast immer auch ohne - und damit läuft das Makro auch sehr viel schneller, denn jede Select-Ausführung kostet extrem viel Zeit
Grüße
mariposa
Anzeige
AW: Makro in mehreren Tabellen starten
29.01.2009 17:05:00
Andreas
Hallo,
eine Schleife.
Function
Dim i as integer
For i = 1 To ThisWorkbook.Sheets.Count
'Hier wird das je das i-te Sheet aktiviert
ThisWorkbook.Worksheets(ThisWorkbook.Sheets(i).Name).select
'Funktionsaufruf
Call Makro1
Next
End Function
Gruß Andreas
AW: Makro in mehreren Tabellen starten
29.01.2009 21:02:52
Gerd
Hallo ?







' **************************************************************

'  Modul:  Modul1  Typ = Allgemeines Modul

' **************************************************************

Option Explicit

Sub blenden()

Dim i As Long

With ThisWorkbook 'oder evtl. Activeworkbook

For i = 1 To 10

With .Worksheets("Tabelle" & i)

.Rows("7:206").Hidden = True

.Rows("7:" & (10 + .Range("A1000").Value)).Hidden = False

End With

Next

End With

End Sub


Code eingefügt mit: Excel Code Jeanie


Gruß Gerd

Anzeige
AW: Makro in mehreren Tabellen starten
30.01.2009 13:24:00
Hopper
Danke Gerd!!!
Die Makros laufen nun nicht mehr satte 60-70 Sekunden sondern schaffen es jetzt in nur knapp 10 Sekunden über die 48 Arbeitsblätter zu laufen!
Ein riesen Zeitgewinn
Schönes Wochenende!

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Nie zweimal gleiche Werte hintereinander (Teil 2)
Kay

Hallo,
Ich hoffe, es kann mir nochmal jemand weiterhelfen.
Am 05.08. um 16.30 Uhr habe ich bereits schon mal einen Thread zu diesem Thema eröffnet, jedoch noch keine abschließende Lösung gefunden.
Mit Hilfe von "Hary" habe ich folgendes Sheet gebaut, welches auch soweit funktioniert...
11.08.2008 16:12:24
Thread-ID: 1000900
8 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Anzeige
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge
Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:05:53
Thread-ID: 1002182
4 Beiträge
Anzeige
Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:57:54
Thread-ID: 1002190
2 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 Beiträge
Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Variable Zellposition ausfindig machen
Anett

Hallo zusammen,
ich habe Probleme bei der Generierung des VBA Codes für folgende Situation:
Ich habe eine Tabellenspalte mit 19 Zeilen (Bereich D8:D26). In eine dieser Zeilen der Tabellenspalte wird nur ein Wert eingetragen, jedoch nicht immer in der gleichen Zeile (dass heißt das eine...
18.08.2008 18:53:16
Thread-ID: 1002723
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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