Tabellenblattnamen per VBA
20.10.2020 08:19:20
Thomas
Dank der Hilfe von Gerd habe ich jetzt schon den folgenden VBA Code erhalten.
Er liefert mir eine Liste mit den Tabellenblattnamen ab der Zelle A2 und daneben ab der Zelle B2 zugehörigen Werte der Zelle B2 der einzelnen Tabellenblätter.
Leidr bin ich zu blöd, um den Code so zu verändern, dass die Liste der Tabellenblätter ab der Zelle C5 beginnt und die Werte der zugehörigen Zellen B1 ab der Zelle D5 beginnen.
Kann mir da nochmal jmd. helfen?
Danke und LG
Private Sub Worksheet_Activate()
Dim Wsh As Worksheet
Range(Cells(2, 1), Cells(2, 1).End(xlDown).Offset(0, 1)).ClearContents
For Each Wsh In ThisWorkbook.Worksheets
With Wsh
If .Name Me.Name Then
Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, 2) = _
Array(.Name, .Cells(2, 2).Value)
End If
End With
Next
End Sub