Schleife für Änderungen
07.10.2016 10:31:06
Daniel
Habe ein Buchhaltungsprogramm für unsere Feuerwehr geschrieben, jetzt hat sich aber ein Fehler in denn 50 Personalblätter eingeschlichen.
Die Mappe besteht aus ca. 60 Blätter. 50 Blätter sind Personalblätter.
Bei Änderungen habe ich bisher alles von Hand korrigiert.
Jetzt möchte ich eine Schlaufe programmieren, die es mir ermöglicht schnell und einfach alle Personalblätter zu korrigieren. Mein Vorschlag:
Zwei Makros
Sub Korrektur()
'Korrekturen für Personalblätter P1-P50 hier eintragen!
End Sub
Sub Aenderungen_Personal()
'Änderungen an allen Personalblätter P1-P50
Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten
Application.Calculation = xlCalculationManual 'automat.Berechnung ausschalten
Aufheben 'Entsperren
Sheets("P1").Select
Korrektur
Sheets("P2").Select
Korrektur
Sheets("P3").Select
Korrektur
Usw.
Könnte ich dieses auch in einer Schleife programmieren, damit mein Code übersichtlich bleibt?
Gruss Daniel