|
Hallo Leute,
ich stehe aktuell vor einem Problem:
Ich habe eine Excel-Berechnung. Für diese kann ich Parameter eingeben, der Einfachheit sagen wir mal in Zelle A1 ist Parameter1 und in Zelle A2 ist Parameter 2 eingetragen.
In Abhängigkeit dieser wird mir in B2 ein Ergebnis ausgegeben. Nun möchte ich Makro haben, welches mir die Parameter und das Ergebnis automatisch in eine Tabelle einträgt. Meinetwegen steht in Spalte C also als Überschrift Parameter 1, in D Parameter 2 und in E steht Ergebnis. Darunter soll dann jeweils eingetragen werden was gerade in A1,A2 und B1 steht.
Die Werte sollen beim nächsten Mal allerdings nicht überspeichert werden, sondern dann in die nächste Leere Zeile in den Spalten C,D und E geschrieben werden. Ich hatte mit meinem sehr eingerosteten VBA-Kenntnissen eine For-Schleife gemacht, wo das auch funktioniert. Allerdings nur bis zur 2. Zeile :D Ich habe den Code unten eingefügt.
Über eure Hilfe und Lösungvorschläge wäre ich wirklich sehr dankbar. Ich hoffe ich konnte mein Problem verständlich erläutern. Im Voraus auf jeden Fall schon einmal vielen Dank.
Gruß Sheva
Sub SchleifenTest()
Dim i As Integer
Sheets("Ausgabe").Select
For i = 4 To 10
If Cells(i, 2) = "" And Cells(i, 3) = "" Then
Cells(i, 2) = 1
Cells(i, 3) = 1
Exit For
Else
If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
Cells(i + 1, 2) = 1
Cells(i + 1, 3) = 1
Exit For
Else
End If
End If
Next
End Sub
|