folgendes Makro habe ich gefunden.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Set Bereich = Range("mein_bereich")
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
Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
nWS.Name = Zelle.Value
End If
Next Zelle
blatt_sorter
End Sub
Das Makro fügt abhängig von einem definierten Zellbereich neue Tabellenblätter (mit dem Namen der Zelle im Zellbereich) ein.Das funktioniert auch super.
Nun wäre es aber prima, wenn das Makro auch prüfen würde, ob noch alle angelegten Tabellenblätter gebraucht werden oder einige Zellen im Zellbereich gelöscht wurden und dementsprechend das Tabellenblatt auch nicht mehr benötigt wird.
Also immer so etwas wie ein Deltabgleich zwischen Zellbereich und Tabellen/namen
Geht das? Und wenn ja, wie?
Lieber Gruss
Matz