Hallo,
ich habe folgenden Code, mit dem ich Tabellenblätter erzeuge:
Sub BlaetterErstellen()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim Bool As Boolean
Dim WSName As String
Set Bereich = Range("A14:A" & Range("A65536").End(xlUp).Row)
For Each Zelle In Bereich
WSName = Zelle.Value
For i = 2 To Worksheets.Count
If Worksheets(i).Name = WSName Then
Bool = True
Exit For
Else
Bool = False
End If
Next i
If Bool = False Then
Sheets("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
Nun möchte ich aber, dass wenn sich in der Datentabelle (von der aus das Makro ausgeführt wird) im Wertebereich eine Zelle ändert, der Name des erzeugten Tabellenblattes sich auch automatisch ändert. Dabei dürfen die Inhalte der "neuen" Blätter nicht verändert werden. Weiß da jemand Rat?
|