Excel: Wie sammelt man Daten aus einer einzelnen Zelle und platziert sie in einer Tabelle?

Question

Ich habe ein Makro, das einige Berechnungen durchführt und dann ein Ergebnis erzeugt, das in einer einzelnen Zelle angezeigt wird. Wenn ich das Makro erneut ausführe, erzeugt es ein anderes Ergebnis in derselben Zelle und so weiter. Ich möchte die Daten aus dieser Zelle kopieren und in eine Tabelle einfügen, sagen wir in Zelle B1. Und dann das nächste Ergebnis in Zelle C1. Und so weiter, bis ich eine Datentabelle habe.

Gibt es eine einfache Möglichkeit, dies zu tun?

Und könnte ich das Makro beispielsweise 100 Mal ausführen und jedes Mal die Daten wie oben beschrieben in die Tabelle kopieren?

Danke!

Answer 1

Hier ist ein super einfaches Makrobeispiel:

Sub MaintainHistory()
    Dim s As String, n As Long, v As Variant
    v = Rnd()
    Range("A1") = v
    If Range("B1") = "" Then
        Range("B1") = v
    Else
        n = Cells(Rows.Count, "B").End(xlUp).Row + 1
        Range("B" & n) = v
    End If
End Sub