Hallo zusammen,

ich habe folgende Problemstellung: Ich habe eine Datentabelle, in der Grunddaten eingetragen sind (Ab Zeile 13). Die Spalten A-D beinhalten dabei die Daten und die Tabelle wächst ständig. Ich brauche nun ein Makro, was folgende Anforderungen erfüllt:

1. Es soll nach der Anzahl der Datenzeilen pro Zeile ein neues Tabellenblatt erstellt werden. Die Grundlage für dieses Tabellenblatt ist das Blatt "Basis". Der Name des Tabellenblattes soll jeweils der Wert aus Spalte A sein.

2. In dem neuen Tabellenblatt soll in Zelle B56 der Wert aus Spalte B eingetragen werden. In Zelle C56 der Aus Spalte C, in Zelle D56 der aus Spalte D.

3. Die Werte können sich nach dem Erstellen der Tabellenblätter ändern. Die Eintragungen in den Tabellenblättern muss dementsprechend lediglich auf die jeweilige Zelle verweisen.

5. Beim erneuten Ausführen des Makros dürfen die Tabellenblätter nicht überschrieben werden, sondern nur die neuen erzeugt.

4. Da sich auch die Namen der Tabellenblätter ändern können (aber nicht der Inhalt der Blätter) benötige ich noch eine Aktualisierungs-Funktion als separates Makro, welches per Button ausgelöst wird.

Ich bin leider nur soweit gekommen, dass ich die Tabellenblätter erstellen kann.

ub BlaetterErstellen()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Set Bereich = Range("A14:A" & Range("A65536").End(xlUp).Row)
For Each Zelle In Bereich

    For i = 2 To Worksheets.Count
        If Worksheets(i).Name = Zelle.Value Then
            Bool = True
            Exit For
        Else
            Bool = False
        End If
    Next i
    
    If Bool = False Then
    Worksheets("Basis").Visible = True
    Sheets("Basis").Copy after:=Sheets(Sheets.Count)
    Sheets("Basis (2)").Activate
    ActiveSheet.Name = Zelle.Value
    Worksheets("Basis").Visible = False
    End If

    
Next Zelle
End Sub

Kann jemand helfen? Besten Dank im Voraus!