Ok das hilft mir erstmal weiter. Anbei eine kurze Erklärung zum Ziel des Makros:
Mithilfe des Makros sollen Zeilen für die Range A:Y gesperrt werden, die in Spalte B einen Wert größer Null beinhalten. Zudem sollen die gesperrten Zeilen eingefärbt und mit einem Zeitstempel versehen werden. Zeilen, die in Spalte B keinen Wert enthalten bleiben von der Sperrung und dem Zeitstempel sowie der farblichen Markierung unberührt.
Der Ablauf wäre also wie folgt zu beschreiben:
Wenn ich das Makro aktiviere soll zunächst geprüft werden, ob Zelle B20 einen Wert > 0 ausweist. Im Anschluss wird geprüft, on die Zelle B13 den Wert "ok" ausweist. Ist dies der Fall wird die Zeile für die Range A20:Y20 gesperrt und farblich markiert. Zudem wird ein Zeitstempel/Username für die entsprechende Zeile eingefügt. Diese Prozedur ist nun für die Zeile 20 abgeschlossen. Das Ziel wäre nun bei der nächsten Aktivierung des Makros die identische Prozedur und Prüfung für Zeile 21 durchzuführen. Im Anschluss daran das selbe Vorgehen für 22 und so weiter. Die Zeile für die Range A:Y werden also nach und nach geprüft und bei erfolgreicher Prüfung gefärbt/gesperrt und mit dem Zeitstempel/User versehen.
Ziel wäre also nun aus meiner Sicht, alle Ranges meines Codes so anzupassen, dass die Columns und Rows "dynamisch" werden und sich nicht wie aktuell dargestellt "starr" für lediglich eine spezifische Zeile durchführen lassen.
Hier nochmal der Ablauf pro Sub:
1) Sub Prüfe => Prüfung ob Zeile B einen Wert enthält
2) Sub savepostings => Prüfung ob Zeile B13 den Wert "ok" ausweist
3) Sub ubertragenameundzeit => Einführung des Zeitstempels in der ausgewiesenen Spalte
4) sub sperrZeile => Spettung der Zeile und einfärbung nach erfolgter Sperrung
Nach der erfolgreichen Prüfung und Ausführung wird dann die Zeile 20 (Range A:Y) gesperrt/gefärbt und mit dem Namen/Zeitstempel versehen.
Die Hauptfrage bleibt: Wie bekomme ich genau dieses Vorgehen auf die nächste Zeile und so weiter.
Ich hoffe das hat den Sachverhalt ein wenig besser beschrieben.
Danke Dir im Voraus für Deine Antwort!
|