Hallo,

ich habe im Forum eine Lösung für mein Problem gefunden, in mehreren (vielen) Tabellenblättern mit jeweils vergleichbarem Aufbau befindlichen intelligenten Tabellen deren Überschriften anzupassen:

Sub Überschirft_aktualisieren()
Dim W As Worksheet
Dim LO As ListObject
Dim Z As Range

ThisWorkbook.Activate
For Each W In ThisWorkbook.Worksheets
If W.Name > "Vorlage" Then
If W.ListObjects.Count > 0 Then
Set LO = W.ListObjects(1)
If LO.HeaderRowRange.Row > 13 Then
Debug.Print "Worksheet """ & W.Name & """ hat ein Header in Zeile " & LO.HeaderRowRange.Row
Else
For Each Z In W.Range("H13:AU13").Cells
Z.Value = Z.Address 'Dummy-Eintrag
Next
For Each Z In W.Range("H13:AU13").Cells
Z.Value = Worksheets("Vorlage").Range(Z.Address)
Next
End If
End If
End If
Next
End Sub

Jetzt habe ich das folgende Problem und hoffe auf eure Hilfe:
Kann man den obigen Code so anpassen, dass ich aus der Vorlage nicht nur die Überschriften (H13:AU13), sondern zusätzlich den Bereich H14:AU60 in die vorhandenen Tabellenblätter kopieren (also die dort vorhandenen Werte überschreiben) kann?

Ziel soll also sein, dass die Tabellenblätter mit intelligenten Tabellen alle den Inhalt der Vorlage erhalten.

Vielen Dank schon jetzt für eure Hilfe.
Viele Grüße
Andrea