Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Betreff
Benutzer
Anzeige
AW: Makrostart ändern
22.07.2009 10: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.

@ Hajo: vielen Dank für Deine schnelle Hilfe!
22.07.2009 11:00:29
Sandra
Hajo: noch ne Frage
22.07.2009 12: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
Anzeige
AW: Hajo: noch ne Frage
22.07.2009 13: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 13:06:44
Sandra

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige