alle Reiter in einer Schleife durchlaufen...
16.06.2008 16:06:59
Gussfuss
ich hoffe, Ihr könnt mir bei meinem folgenden VBA-Problem unter die Arme greifen?
...würde mir jeden Tag viel Arbeit ersparen! meinen bescheidenen VBA-Versuche traue ich mich schon gar nicht zu posten...
Anbei eine Beispieldatei mit einem Hauptreiter und 2 Einzelblättern
Die Datei https://www.herber.de/bbs/user/53146.xls wurde aus Datenschutzgründen gelöscht
Hauptmakro:
1) Markiere C17
2) Call Sub Prozedur in einer Schleife so oft wie es Einzelblätter gibt (sheets count?)
Sub Prozedur ()
1) gehe zum nächsten Reiter (Einzelblatt), der noch nicht bearbeitet wurde !?
2) Suche in Spalte A, ob es ein Datum = heute gibt, wenn ja gehe 8 nach rechts und erhöhe eine jeweils Variable xy um diesen Wert (Spalte I), wiederhole diese Schleife bis schlusstag heute
3) gehe zum Hauptreiter
4) trage den Gegenwert der Variable xy in das markierte Feld und setze Varible wieder auf "0"
5) gehe 2 nach unten und 0, markiere dieses Feld
wäre sehr froh, wenn sich jemand findet, der das umsetzen könnte!
Danke im Voraus für Eure Hilfe!
Gruss
Gussfuss
i