Makrostart ändern
Sandra
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