https://www.herber.de/bbs/user/166259.xlsm

Hallo zusammen,
mittels:

Dim Zeile As Long
Dim Blatt As Worksheet
Dim Neublatt As Worksheet
Set Neublatt = ActiveWorkbook.Worksheets.Add
Zeile = 1
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name > Neublatt.Name Then
Neublatt.Cells(Zeile, 1) = Blatt.Name
Zeile = Zeile + 1
End If
Next Blatt
End Sub


hänge ich an erstellte Arbeitsblätter einer Mappe ein weiteres Arbeitsblatt an. In diesem letzten Blatt sind die Namen der vorherigen Arbeitsblätter in spalte A aufgelistet.
Funktioniert auch wunschgemäß.
Nun zu meiner bitte, ich möchte per Makro in Spalte B jeweils einen Zellwert (D31) aus jedem Tabellenblatt in dieses letzte Blatt verknüpfen. Da ich diese Datei auf einem Tablet laufen lasse, müsste mir das Makro die Verknüpfung direkt in Spalte B schreiben. Das Makro wird anschließend wieder gelöscht. Ich hoffe ich habe mich einigermaße verständlich ausgedrückt.
Danke und Gruß Volker