Makro für alle Arbeitsblätter übernehmen
11.06.2007 16:53:57
Matze
habe nun mit VBA ein Makro hinbekommen, das meine Wünsche erfüllt. -Allerdings nur auf dem aktuellen Arbeitsblatt.
Was muß ich ändern, dass folgendes Makro nicht nur für dieses sondern für alle Blätter der Mappe (können unterschiedlich viele Blätter sein) automatisch gilt:
Sub neu()
z = Range("A1").End(xlDown).Row
For i = 2 To z
If Cells(i, 4) > 10000 And Cells(i, 4)
schätze, ich muss da noch irgendeine Schleife drumbauen, um erst die vorhandenen Blätter zu zählen und dann meinen eigentlichen Code auszuführen, oder? nur wie!?
Hoffentlich kann mir jemand weiterhelfen.
Vielen Dank