Hallo
benötige nochmals Hilfe bei einem Codeteil:
Dim ws As Worksheet
Dim ZELLE As Range
Dim wsNamen
Set wsNamen = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Worksheets
wsNamen.Add ws.Name, ws.Name
Next
For Each ZELLE In Range("1.Einstellungen_eingeben!C6:C13")
If Not wsNamen.exists(ZELLE.Value) And ZELLE.Value "" Then MsgBox "Das Tabellenblatt " + ZELLE.Value + " fehlt. " & vbCr & "" & vbCr & "Entweder muss die Liste berichtigt oder das entsprechende Blatt eingefügt werden. " & vbCr & "" & vbCr & "Der Code wird an dieser Stelle abgebrochen!!!!", 48, " Hinweis für " & Application.UserName
Next
Set wsNamen = Nothing
ab hier werden weitere Aktionen ausgeführt.
Ich möchte erreichen, dass sobald der erste Tabellenblattname nicht existiert und die MsgBox mit OK bestätigt wurde der Code sofort beendet wird.
Besten Dank für die Hilfe, Servus Walter