Office: (Office 2010) Zellwerte fortlaufend in Tabelle speichern mit VBA

Moin moin,

ich stehe aktuell vor einem Problem, bei welchem ich alleine nicht weiterkomme und hoffe dass ich hier Hilfe bekomme.
Zunächst mal ein beispielhafter Aufbau meiner Tabelle:

- In Zelle A1 habe ich einen Paramter 1 mit einem frei wählbaren Wert
- In Zelle A2 steht Parameter 2 mit einem frei wählbaren Wert
- In Zelle B2 steht ein Ergebnis welches in Abhängigkeit von den Parametern 1&2 berechnet wird

Nun möchte ich einen Makro haben welches die beiden Parameter und das Ergebnis in einen Bereich einträgt. Sagen wir also:
- In Zelle D1 steht als Überschrift Parameter 1, in E1 Parameter 2 und in F1 Ergebnis
- Darunter sollen dann bei Ausführung des Makros die Werte eingetragen werden die aktuell in A1,A2 und B1 stehen

Das entscheidende: Wenn ich nun neue Werte eingebe sollen diese auch in die Tabelle eingetragen werden durch das Makro, allerdings ohne den vorherigen zu überschreiben. Ob dann am Ende welche doppelt vorkommen ist irrelevant.
Meine bisherigen Versuche sind alle gescheitert. Mein aktuellster sieht so aus und funktioniert dazu, dass jede zweite Zeile leer bleibt:

Sub SchleifenTest2()

Dim i As Integer
Sheets("Ausgabe").Select

For i = 4 To 10
If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
i = i + 1
Else
If Cells(i, 2) = "" And Cells(i, 3) = "" Then
Cells(i, 2) = 1
Cells(i, 3) = 1
Exit For
End If
End If
Next

End Sub

Ich habe bei mir erstmal gesagt er soll nur einen Parameter nehmen und nur eine 1 reinschreiben um es übersichtlicher zu gestalten bis es funktioniert. Problem bei der For-Schleife ist natürlich auch, dass ich einen konkreten Laufbereich für i angeben muss und nicht einen unbestimmten Nutzen kann. Wäre zwar ok ist aber natürlich nicht optimal.

Ich hoffe ich konnte mein Problem verständlich schildern und bedanke mich im Voraus schon mal für eure Hilfe und Mühe.

Gruß Tony

 

Hallo Tony,

die Zeile i=i+1 ist zuviel, daher bleibt immer eine Zeile leer. Den Vorschub macht ja schon deine For-Next-Schleife.

Grundsätzlich ist es doch sinnvoller, die letzte verwendete Zeile zu ermitteln (https://www.excel-inside.de/vba-loe...zte-spalte-und-letzte-zelle-per-vba-ermitteln) und in die nächste die neuen Werte zu schreiben, oder? Oder kommt nach dem zu befüllenden Bereich noch was?

Gruß,
Lutz