Hallo Leute,
gestern noch erfolgreich und heute hänge ich schon wieder.
Problem ist (vereinfacht dargestellt) folgendes:
Ich habe in einem Excel 3 Tabellen (Tabelle 1, 2 & 3).
Auf Tabelle 1 habe ich in A1 und in A2 eine Zahl stehen.
Auf Tabelle 2 ist ein komplexer Algorithmus mit Rechenregeln, WENN...DANN-Verknüpfungen usw...Muss mich aber alles nicht interessieren: ich habe am Anfang des Tabellenblattes 2 ein Feld (A1) in das ich getrennt voneinander/nacheinander die Zahlen aus Tabelle 1 (A1 und A2) eintrage und unten (X1) kommt das Ergebnis der Berechnung raus.
Tabelle 3 weist dann auf B1 das Ergebnis, dass Zahl A1 von Tabelle1 auf Tabelle2 brachte aus und auf Feld B3 (!!) das Ergebnis der Zahl A2 von Tabelle1.
Mein VBA-Programm muss also auf Tabelle 1 gehen, die Zahl aus A1 nehmen und sie in Tabelle2 in Feld A1 schreiben. Dann Feld X1 auslesen und die Zahl auf Tabelle3 in B1 schreiben.
Dann muss Excel wieder auf Tabelle1 gehen, die Zahl aus A2 nehmen, die gleiche Prozedur durchlaufen und das Ergebnis auf Tabelle3 in Feld B3 schreiben. Wie gesagt, das nur eine vereinfachte Darstellung...in Wirklichkeit können die Zahlenreihen auf Tabelle1 beliebig lang sein. Hoffe aber, das Problem einigermassen verständlich erläutert zu haben. Besser bekomme ich es mit nur Text nicht hin ;)
Meine Idee sieht in VBA so aus und funktioniert leider nicht:
Sub Makro1()
For x = 0 to 1
For y = 0 to 1 step 2
Worksheets("Tabelle2").Range("A1") = Worksheets("Tabelle1").Range("A1" & x)
Worksheets(Tabelle3").Range("B1" & y) = Worksheets"Tabelle2").Range("X1")
Next y
Next x
End Sub
Danke im Voraus.
Grüße
Marc
App
