ich steh mal wieder auf dem Schlauch. Ich habe ein Makro, welches überprüfen soll, ob es zu den Einträgen in jeder Spalten in Zeile 2 ein Tabellenblatt gibt. Was ich meine ist, in Spalte C2 steht z.B. Seite1. Nun soll geprüft werden, ob es ein Tabellenblatt mit der Seite 1 gibt. In Zelle D2 steht Seite2. Auch hier soll überprüft werden ob es das Blatt schon gibt. Das ganze frage ich über eine For/Next Schleife ab. Gibt es das zu dem Zelleintrag ein Blatt, soll eine MsgBox erscheinen, die mir mitteilt, dass es das Blatt schon gibt. Wenn noch nicht vorhanden, soll eine MsgBox erscheinen, die mir schreibt, dass das Blatt noch nicht vorhanden ist. Ich habe schon eine Makro, welches schon fast das macht, was ich mir vorstelle. Also es schreibt mir ob es ein Blatt schon gibt. Aber wenn es auf einen Eintrag trifft, zu dem kein Blatt vorhanden ist, bricht die ganze Geschichte ab. Warum? Kann eventuell mal jemand über das nachfolgende Makro schauen un eventuell den Fehler finden, warum das Makro abbricht? Wäre super.
Sub Aktualisierung_starten()
Dim Spalte As Long, BlattName As String, Wiederholungen As Integer
Application.ScreenUpdating = False
Spalte = Cells(2, Columns.Count).End(xlToLeft).Column
If ActiveSheet.Name = "Übersicht" Then
For Wiederholungen = 3 To Spalte Step 1
BlattName = Worksheets("Übersicht").Cells(2, Wiederholungen)
MsgBox BlattName
If Sheets(Wiederholungen - 1).Name = BlattName Then
MsgBox "Schon vorhanden"
Else
MsgBox "Noch nicht vorhanden"
End If
Next Wiederholungen
End If
End Sub
Danke Euch schon mal im Voraus für die Mühe,
Oliver