Liebe Community!
Ich habe hier schon viel gelesen, viel gelernt und mich nun angemeldet, weil ich mit Hilfe für ein Problem erhoffe, welches ich nicht gelöst bekomme.
In mehrere Arbeitsblätter werden über ein Makro Daten aus einer langen Liste Zeile für Zeile eingelesen. In den Arbeitsblättern finden umfangreiche Berechnungen statt. Am Schluss steht in einer Zelle mit dem Namen "Ergebnis" das Resultat (tatsächlich sind das eine ganze Menge - hat aber keinen Einfluss auf das Problem).
Nach dem Einlesen der Daten einer Zeile soll dieses Ergebnis in einem weiteren Arbeitsblatt gelistet werden. "ZeileAuslesen" ist die Zählvariable der Schleife.
Ich habe das Makro für die Auflistung der Ergebniswerte so geschrieben:
Cells(ZeileAuslesen, 2) = Names("Ergebnis1").Value
Cells(ZeileAuslesen, 5) = Names("Ergebnis2").Value
........
Dies führt aber zu dem Ergebnis, dass in allen Feldern nach dem Durchlauf das Ergebnis des letzen Datenimports steht. Grund: Tatsächlich wird nicht der Wert von "Ergebnis" in das Arbeitsblatt geschrieben, sondern eben die Verknüpfung "=Ergebnis!$I$110", und diese wird bei jedem Durchlauf aktualisiert.
Ich Suche also nach einer Lösung, die das Folgende leistet:
1. Daten werden aus der Zeile "2" eines Arbeitsblattes in die Arbeitsblätter eingelesen (erledigt)
2. Berechnungen werden in den Arbeitsblättern durchgeführt. In der Zelle mit dem Namen "Ergebnis" steht das Resultat entspr. den Daten aus Zeile "2" (z. B. "123") (erledigt)
3. Dieser Wert soll in eine Arbeitsblatt in die Zeile "2" geschrieben werden (funktioniert nicht so, wie gedacht)
4. Daten werden aus der Zeile "3" eines Arbeitsblattes in die Arbeitsblätter eingelesen (erledigt)
5. Berechnungen werden in den Arbeitsblättern durchgeführt. In der Zelle mit dem Namen "Ergebnis" steht das Resultat entspr. den Daten aus Zeile "3" (z. B. "345") (erledigt)
6. Dieser Wert soll in eine Arbeitsblatt in die Zeile "3" geschrieben werden (funktioniert nicht so, wie gedacht)
usw.
Ich danke für jeden Hinweis - muss doch lösbar sein, oder?
LG Gabriela
PS: Die Berechnungen über die Arbeitsblätter hat einen historischen Hintergrund - u. a. Nachvollziehbarkeit der Berechnungen. Eine Stapelverarbeitung war ursprünglich nicht vorgesehen.
EDIT: Bin nach weiterem Nachdenken selbst drauf gekommen. "Evaluate" heißt das Zauberwort.
Cells(ZeileAuslesen, 2) = Evaluate(Names("Ergebnis1").Value)
Cells(ZeileAuslesen, 5) = Evaluate(Names("Ergebnis2").Value)
Funzt!
Ich habe hier schon viel gelesen, viel gelernt und mich nun angemeldet, weil ich mit Hilfe für ein Problem erhoffe, welches ich nicht gelöst bekomme.
In mehrere Arbeitsblätter werden über ein Makro Daten aus einer langen Liste Zeile für Zeile eingelesen. In den Arbeitsblättern finden umfangreiche Berechnungen statt. Am Schluss steht in einer Zelle mit dem Namen "Ergebnis" das Resultat (tatsächlich sind das eine ganze Menge - hat aber keinen Einfluss auf das Problem).
Nach dem Einlesen der Daten einer Zeile soll dieses Ergebnis in einem weiteren Arbeitsblatt gelistet werden. "ZeileAuslesen" ist die Zählvariable der Schleife.
Ich habe das Makro für die Auflistung der Ergebniswerte so geschrieben:
Cells(ZeileAuslesen, 2) = Names("Ergebnis1").Value
Cells(ZeileAuslesen, 5) = Names("Ergebnis2").Value
........
Dies führt aber zu dem Ergebnis, dass in allen Feldern nach dem Durchlauf das Ergebnis des letzen Datenimports steht. Grund: Tatsächlich wird nicht der Wert von "Ergebnis" in das Arbeitsblatt geschrieben, sondern eben die Verknüpfung "=Ergebnis!$I$110", und diese wird bei jedem Durchlauf aktualisiert.
Ich Suche also nach einer Lösung, die das Folgende leistet:
1. Daten werden aus der Zeile "2" eines Arbeitsblattes in die Arbeitsblätter eingelesen (erledigt)
2. Berechnungen werden in den Arbeitsblättern durchgeführt. In der Zelle mit dem Namen "Ergebnis" steht das Resultat entspr. den Daten aus Zeile "2" (z. B. "123") (erledigt)
3. Dieser Wert soll in eine Arbeitsblatt in die Zeile "2" geschrieben werden (funktioniert nicht so, wie gedacht)
4. Daten werden aus der Zeile "3" eines Arbeitsblattes in die Arbeitsblätter eingelesen (erledigt)
5. Berechnungen werden in den Arbeitsblättern durchgeführt. In der Zelle mit dem Namen "Ergebnis" steht das Resultat entspr. den Daten aus Zeile "3" (z. B. "345") (erledigt)
6. Dieser Wert soll in eine Arbeitsblatt in die Zeile "3" geschrieben werden (funktioniert nicht so, wie gedacht)
usw.
Ich danke für jeden Hinweis - muss doch lösbar sein, oder?
LG Gabriela
PS: Die Berechnungen über die Arbeitsblätter hat einen historischen Hintergrund - u. a. Nachvollziehbarkeit der Berechnungen. Eine Stapelverarbeitung war ursprünglich nicht vorgesehen.
EDIT: Bin nach weiterem Nachdenken selbst drauf gekommen. "Evaluate" heißt das Zauberwort.
Cells(ZeileAuslesen, 2) = Evaluate(Names("Ergebnis1").Value)
Cells(ZeileAuslesen, 5) = Evaluate(Names("Ergebnis2").Value)
Funzt!
