Office: VBA Programm mit dynamischem Speichern

Hallo,
ich darf mich momentan in VBA einarbeiten, habe aber nur Grundlagenkenntnisse.
Zum Üben habe ich auf niedrigstem Niveau einen kleinen Taschenrechner programmiert.
Es wird die Rechenoperation abgefragt, durchgeführt und am Ende in einer Tabelle die relevanten Werte gespeichert.

Mein Problem: Die Werte werden immer an der gleichen Position gespeichert und somit überschrieben. Wie kann ich die Speicherposition dynamisch gestalten, also beim ersten mal wird in A2 beim nächsten in A3 dann in A4 .... gespeichert?

Die Datei ist im Anhang und an relevanten Stellen das Problem beschrieben. Wäre toll wenn mir jemand weiter hilft und ich somit weiter üben kann. Für Verbesserungen bin ich natürlich auch offen.

 

Hallo Maxi,

das heißt die erste Multiplikation soll in A2 stehen und die nächste dann in A3 geschrieben werden? Ich würde dazu folgendes tun: Bevor Du den Wert reinschreibst wählst du die erste unbeschriebene Zelle aus und zwar wie folgt:

Code:

Range("A65536").End(xlUp).Offset(1, 0).Select

Range("A65536"): Dieser Befehl springt in die letzte Zelle der Spalte A
End(xlUp): sorgt dafür dass Excel von dort aus in die erste beschriebene Zelle nach oben springt
Offset(1, 0): Sagt Excel dass es von dort dann eine Zelle nach unten gehen soll

Und schon stehst du in der ersten leeren Zelle.

Viele Grüße
Michael

 

hmm anscheinend mach ich grundlegend noch etwas falsch. wie implementier ich das dann ins programm

vorher: Sheets("Ergebnisse").Range("As") = Int_z
jetzt: Sheets("Ergebnisse").Range("A65536").End(xlUp).Offset(1, 0).Select = Int_z

ergibt einen Fehler

 

Sorry mein Fehler, ich hatte nicht wirklich geschaut wie Du den Wert übergibst. Probier es mit:

Sheets("Ergebnisse").Range("A65536").End(xlUp).Offset(1, 0).Value = Int_z

Gruß
Michael

 

haha das funktioniert super, danke!