Hallo liebes Forum,

ich habe hier folgenden Code in VBA auf dem Tabellenblatt "Listenfeed":

Sub Worksheet_Activate()
Dim Blatt As Worksheet
Range("A1").Select
For Each Blatt In ActiveWorkbook.Sheets
If Blatt.Name <> "listenfeed" And Blatt.Name <> "Produktvergleich" Then
ActiveCell.Value = Blatt.Name
 ActiveCell.Offset(1, 0).Select
        End If
Next Blatt
End Sub

Wenn ich also das Blatt "Listenfeed" auswähle aktualisiert es die Liste in "Listenfeed" in Zelle A1 ff.

Meine Absicht ist es aber, wenn ich das Blatt "Produktvergleich" auswähle, dass dann die Liste auf dem Blatt "Listenfeed" aktualisiert wird.

Könnt ihr mir hier weiterhlefen?

Vielen Dank

Hansgeorg