Ich danke in freudiger Erwartung allen Helfern meines Problemes.
Hagen
Ich danke in freudiger Erwartung allen Helfern meines Problemes.
Hagen
Bin mir nicht 100% sicher, ob ich dein Problem richtig verstanden habe, hier aber ein Lösungsansatz.
Cells(Range("B65536").End(xlUp).Row + 1, 2) = Range("A1")
Das Ergebnis in Zelle A1 wird dadurch in die letzte freie Zeile von Spalte B eingetragen. Damit kannst du weiter rechnen und bei Bedarf das Ergebnis erneut in Spalte B eintragen lassen, ohne das vorherige Ergebnis zu überschreiben.
Gruss
Chris
Range("G9").Select
Selection.Copy
Range("J11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Dann hast Du in der Zielzelle einen "harten" Wert stehen. Bei der nächsten Berechnung checkst Du dann einfach, ob in der einen Zelle schon was steht und schreibst das neue Ergebnis dann ggf. in die nächste Zelle.
hth
Carl
--(ich habe den Tip von Carlos noch nicht ausprobiert)--
Gruß Hagen
- und - Wie stelle ich es an, daß nicht die nächst leere Zelle in der Spalte B angesprochen wird, sondern eine bestimmte, sagen wir mal die fünfte nach der ersten leeren in Spalte B?
Cells(Range("B65536").End(xlUp).Row + 6, 2) = Range("A1")
???
Gruß Hagen