Office: veränderbare Werte in jeweils nächste leere Zelle übernehmen

Hallo,

ich brauche Hilfe bei folgendem Problem:

veränderbare Werte aus einer bestimmten Zelle (z.B. B2) möchte ich übernehmen z.B. nach I28. Der nächste veränderte Werte (neue Berechnung) aus B2 soll dann in I29 festgeschrieben werden. Der nächste errechnete Wert soll dann in I30 übernommen werden.

Bin hier für eine Hilfestellung/Lösung dankbar.
Grüsse dhil

 

Problem zu unverständlich formuliert?

Hallo,

ist die Problemstellung zu umständlich bzw. zu undeutig formuliert?
Wenn ja, einfach nachfragen, vielleicht kann ich es bei einer konkreten Nachfrage besser erläutern.

Weiterhin vielen Dank für Hilfe.


Grüsse dhil

 

Hallo!

Rechtsklicke den Tabellenreiter des Blatts und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Calculate()
Dim Ziel As Range
Set Ziel = Cells(WorksheetFunction.Max(27, Range("I65536").End(xlUp).Row), 9)
If Range("B2") <> Ziel Then Ziel.Offset(1, 0) = Range("B2")
End Sub

Ändert sich der Wert in B2, so wird dieser Wert ab I28 abwärts aufgelistet.

 

Hallo,

super!!! Klappt hervorragend
Vielen Dank und Grüsse dhil

 

noch eine andere Variante

Hallo,

hier noch eine andere Variante zum Anschauen, die mir ebenfalls zur Verfügung gestellt worden ist:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$2" Then
Cells(Rows.Count, 4).End(xlUp).Offset(27, 0).Value = Target.Value
End If
End Sub

Auch für diese Lösung vielen Dank.

Grüsse dhil