habe als VBA-Neuling ein Problem: ich möchte Tabellenblätter aus der Vorlage "Aufsicht" generieren. Im Bereich "Aufsichten" soll mit jedem vorkommendem Text ein Blatt entstehen. Dort können jedoch Texte doppelt vorkommen. Es funktioniert nur bis zum ersten Eintrag, der doppelt vorkommt. Meine Überprüfung, ob es das Tabellenblatt schon gibt, scheint nicht zu funktionieren:
Sub AufsichtsTabellenErzeugen()
Dim Zelle As Range
Sheets("Aufsicht").Activate
For Each Zelle In Range("Aufsichten")
If Not BlattVorhanden(Zelle.Value) Then
Sheets("Aufsicht").Copy After:=Sheets(Sheets.Count) 'Vorlagetabelle Aufsicht als letztes Blatt in die Arbeitsmappe kopieren
ActiveSheet.Name = Zelle.Value
End If
Next Zelle
End Sub
Public Function BlattVorhanden(BlattName As String) As Boolean
Dim Blatt As Object
Application.ScreenUpdating = False
For Each Blatt In ActiveWorkbook.Sheets ' Namen aller Tabellen prüfen
If Blatt.Name = BlattName Then
BlattVorhanden = True
Exit Function
End If
Next Blatt
BlattVorhanden = False
End Function