Hallo,
Wie kann ich den Wert der letzten Zeile des gelben Blocks in einer Makro fixieren, damit diese Information über die ganze Sub erhalten bleibt, und die Makro immer weiß, wo der gelbe Block aufhält. Es ist also die initiale letzte Zeile vor dem Ausführen der Makro die die letzte Zeile durch Hinzufügen von Daten (blauer Block) nach unten verschiebt.
Im Beispielblatt werden zuerst die Daten des gelben Blocks in A, B, C eingetragen, dann wird in D eine Formel eingefügt, bis zur letzten Zeile hinuntergezogen und im nächsten Schritt werden die Formeln durch ihre Werte ersetzt.
In einer zweiten Etappe werden die Daten des blauen Blocks eingefügt und um die selbe Formel für den blauen Block einzugeben muß ich wissen wo er anfängt. Ich kann nicht auf die Werte in B,C und D zurückgreifen, da es sein kann, dass die letzte Zeile des gelben Blocks lediglich das Datum enthält.
In der Makro muß ich "Range("D14").Select" ersetzen durch "Range("D" & [letzte Zeile des gelben Blocks] + 1).Select" ersetzen, und da blicke ich nicht durch wie das geht, weil die Abgrenzung zwischen gelb und blau nicht mehr zu erkennen ist (außer durch die Farbgebung in der Beispieldatei natürlich, aber die dient lediglich zur Illustration).
Ich hatte mir vorgestellt, am Anfang der Sub die letzte belegte gelbe Zeile als Const zu fixieren, aber entweder geht das nicht, oder ich gebrauche Const nicht richtig. Ich wollte den Wert der hinter Const kommt durch eine Instruktion, die die letzte Zeile definiert ersetzen, aber das scheint nicht möglich zu sein.
Ich hoffe, mich irgendwie verständlich ausgedrückt zu haben.
Mit freundlichen Grüßen
Alooha
Wie kann ich den Wert der letzten Zeile des gelben Blocks in einer Makro fixieren, damit diese Information über die ganze Sub erhalten bleibt, und die Makro immer weiß, wo der gelbe Block aufhält. Es ist also die initiale letzte Zeile vor dem Ausführen der Makro die die letzte Zeile durch Hinzufügen von Daten (blauer Block) nach unten verschiebt.
Im Beispielblatt werden zuerst die Daten des gelben Blocks in A, B, C eingetragen, dann wird in D eine Formel eingefügt, bis zur letzten Zeile hinuntergezogen und im nächsten Schritt werden die Formeln durch ihre Werte ersetzt.
In einer zweiten Etappe werden die Daten des blauen Blocks eingefügt und um die selbe Formel für den blauen Block einzugeben muß ich wissen wo er anfängt. Ich kann nicht auf die Werte in B,C und D zurückgreifen, da es sein kann, dass die letzte Zeile des gelben Blocks lediglich das Datum enthält.
In der Makro muß ich "Range("D14").Select" ersetzen durch "Range("D" & [letzte Zeile des gelben Blocks] + 1).Select" ersetzen, und da blicke ich nicht durch wie das geht, weil die Abgrenzung zwischen gelb und blau nicht mehr zu erkennen ist (außer durch die Farbgebung in der Beispieldatei natürlich, aber die dient lediglich zur Illustration).
Ich hatte mir vorgestellt, am Anfang der Sub die letzte belegte gelbe Zeile als Const zu fixieren, aber entweder geht das nicht, oder ich gebrauche Const nicht richtig. Ich wollte den Wert der hinter Const kommt durch eine Instruktion, die die letzte Zeile definiert ersetzen, aber das scheint nicht möglich zu sein.
Ich hoffe, mich irgendwie verständlich ausgedrückt zu haben.
Mit freundlichen Grüßen
Alooha
