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

Makrostart ändern

Forumthread: Makrostart ändern

Makrostart ändern
Sandra
Hallo zusammen,
ich möchte gerne den Makrostart etwas ändern:
Sub AlleDurchlaufen()
Dim x As Long
Application.ScreenUpdating = True
For x = 4 To Worksheets.Count
Worksheets(x).Select 'das ist aber eigentlich nicht nötig
Run "Partnerdaten_auslesen" ' Makro aufrufen
Next
Application.ScreenUpdating = True
Worksheets("Ausgabedaten").Activate 'zurück zum Tabellenblatt
MsgBox "Ihre Daten sind vollständig bearbeitet worden!"
End Sub

Das Makro soll nicht vom vierten Blatt der Mappe sondern vom aktivierten Blatt bis zum Ende der Mappe durchlaufen. Wie muss ich das Makro denn anpassen?
Danke für Eure Hilfe!
LG
Sandra
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makrostart ändern
22.07.2009 12:33:31
Hajo_Zi
Hallo Sandra,
Option Explicit
Sub AlleDurchlaufen()
Dim x As Long
Application.ScreenUpdating = False
For x = ActiveSheet.Index To Worksheets.Count
Worksheets(x).Select 'das ist aber eigentlich nicht nötig
Run "Partnerdaten_auslesen" ' Makro aufrufen
Next
Application.ScreenUpdating = True
Worksheets("Ausgabedaten").Activate 'zurück zum Tabellenblatt
MsgBox "Ihre Daten sind vollständig bearbeitet worden!"
End Sub
Deine Code hatte noch ein Fehler.

Anzeige
@ Hajo: vielen Dank für Deine schnelle Hilfe!
22.07.2009 13:00:29
Sandra
Hajo: noch ne Frage
22.07.2009 14:31:17
Sandra
Hallo Hajo,
wie bekommt man es hin, dass nach jedem 10 TB gespeichert wird. Leider ist mir gerade Excel abgestürzt und ich hatte nicht gespeichert.... :-(
Vielen Dank!
LG
Sandra
AW: Hajo: noch ne Frage
22.07.2009 15:00:28
Hajo_Zi
Hallo Sandra,
Definiere eine Zähler 
Option Explicit
Sub AlleDurchlaufen()
Dim x As Long
Dim InZaehler As Integer
Application.ScreenUpdating = False
For x = ActiveSheet.Index To Worksheets.Count
If InZaehler = 10 Then
ThisWorkbook.Save
Inzähler = 0
End If
inzaehler=inzaehler+1
Worksheets(x).Select 'das ist aber eigentlich nicht nötig
Run "Partnerdaten_auslesen" ' Makro aufrufen
Next
Application.ScreenUpdating = True
Worksheets("Ausgabedaten").Activate 'zurück zum Tabellenblatt
MsgBox "Ihre Daten sind vollständig bearbeitet worden!"
End Sub
Gruß Hajo
Anzeige
Klappt bestens. Nochmals danke schön!
22.07.2009 15:06:44
Sandra

Forumthreads zu verwandten Themen

Makros zusammenfügen
Tom

Hallo,
ich habe folgende u.a. Codes. Ich möchte nun, dass diese Codes als ein Makro ablaufen. Aber nicht als Worksheet_Activate sondern nach Betätigung eines Buttons (MAkro zuweisen). Da ich in VBA nicht der Held bin und mir diese Codes zusammengebastelt habe, benötige ich die Hilfe von Pro...
14.08.2008 12:40:00
Thread-ID: 1001761
12 Beiträge
Anzeige
Evaluate mittels Excel4-Makros
Reinhard

Hallo Wissende,
ich bin mir unsicher, aber ich meine man kann durch Namensvergabe für eine Formel, im Stil von
=Zelle.Zuordnen(x;A1)
errichen, daß dann ein "Ausdruck" so wie bei Evaluate berechnet wird.
Annahme:
A1: 15
A2: +
A3: 12
Namensformel für A4, wo drin s...
15.08.2008 00:18:00
Thread-ID: 1001996
2 Beiträge
Anzeige
Makros: Ein Teil nur ein Mal ausführen
wowa

Hallo an Alle!
Kann man ein Teil eines Makros nur ein Mal ausführen lassen und den Rest ständig, sodass der "unnötige Abschnitt eines Makros" ab dem 2ten Mal übersprungen wird?
Vielen Dank im Voraus!!!!
Wowa
19.08.2008 13:11:54
Thread-ID: 1002852
11 Beiträge
Mehrere Makros beim Öffnen abspielen
wowa

Hallo an Alle!
Ich habe mehrere Makro für mehrere PivotCharts und ich möchte, dass die beim öffnen der Excel-Datei ausgeführt werden.
Ich habe rausgefunden dass das über die Arbeitsmappe--}"Workbook Open" geht und es klappt wenn ich nur ein Makro habe. Aber mit mehreren klappt es nic...
19.08.2008 19:49:00
Thread-ID: 1003015
4 Beiträge
Anzeige
Inputbox vor Makrostart
Tom

Hallo,
ich habe mal den Anfang des Codes hier her kopiert.
Ich möchte erreichen, dass beim Aufrufs dieses Codes im Vorfeld eine Eingabebox geöffnet in der dann der zweite Wert eingetragen wurde, der hier steht:
For i = 2 To 4 'Anzahl der Mails
Sub Excel_Serienmail_via_Outlook_Hy...
23.08.2008 18:25:07
Thread-ID: 1004126
2 Beiträge
makros funktionieren auf anderen Rechnern nicht
walter

Hallo liebe excel Freunde!
Ich habe eine excel Datei geschrieben, in der sehr viele Makros stecken. Leider funktionieren die meisten Makros auf einigen Rechnern nicht. Auf manchen gehen alle Makros, auf einigen aber eben nicht. Ich habe auf allen Rechnern, wo die Datei laufen soll die Makro...
27.08.2008 17:47:49
Thread-ID: 1005118
10 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 13:09:00
Thread-ID: 1006152
1 Beitrag
ThisWorkbook.FollowHyperlink Address - Makros akt.
Peter

Guten Abend
Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
Wenn ja, wie?
Danke für jede Hilfe.
Gruss, Peter
If Dir(strPath & "\" & strFile) "" Then
Cancel = True<...
03.09.2008 00:09:05
Thread-ID: 1006962
2 Beiträge
Makrospeicherung
Michael

Hallo Excelgemeinde,
ich muss 1x die Woche aus einem Programm Daten exportieren. Dieser Export findet immer in die gleiche Exceldatei statt (auch unter demselben Namen). Um diese Exceldatei dann weiter zuverarbeiten und optisch ein bißchen aufzubereiten habe ich mir per Recorder ein Makro z...
09.09.2008 15:24:00
Thread-ID: 1008448
11 Beiträge
Makros
Carolina

Hallo alle zusammen,
ich habe eine Excel Tabelle mit einem Makro, dass nichts anderes macht, als die Tabelle nach drei bestimmten Spalten mithilfe der Kombination Strg+Y zu sortieren.
Das Makro funktioniert auch einwandfrei, will ich aber die Tabelle speichern, bekomme ich folgende Meld...
13.09.2008 13:12:13
Thread-ID: 1009487
7 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum