Sers alle zusammen!

Ich hab ein Problem mit einem Excel-Makro.

Die Situation:

Ich habe ein Book mit ca. 150 sheets . Auf jeden Sheet steht auf der gleichen Position (hier bitte C1 kann ich dann ja angleichen) ein Wert. Dieser Wert soll auf dem "sheet1" in einer Liste als Formel abgelegt werden.

Und zwar nicht mit "copy. destination" sondern so dass ich in den Datenblättern die Werte verändern kann und diese sofort auf meinem sheet1 übernommen werden.

Also irgendwas mit: formula = "='eins der Datenblätter'!C1"

Ziel ist es also. Ich rufe das jeweilige sheet auf und das Makro schreibt mir auf sheet1 die die Werte aus C1 als "="-Formel untereinander in eine Liste.

Sagen wir für das untereinander Sortieren mal Spalte A.



Das habe ich eigentlich so weit geschafft. Allerdings konnte ich "formula" nicht mit destination verbinden.

Als Grundlage hatte ich dieses makro:

Sub markierten_bereich_kopieren()

Dim Loletzte As Long

With Worksheets("sheet2")


Loletzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row + 1, 65536)

Range("C1").Copy Destination:=.Cells(Loletzte, 1)

End With

End Sub

Kann mir jemand helfen und ein kleines Makro schreiben?

Vielen Dank schon mal :-)