ich möchte mein bestehendes Makro dahingehend erweitern, dass es beendet wird wenn eine vorgegebene Tabelle nicht vorhanden ist. Dafür konnte ich als Lösungsansatz bereits folgende Codes zusammensuchen, bekomme aber leider nicht das gewünschte Ergebnis.
(Code: http://ms-excel.eu)
Sub Tabellenname_abfragen()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Break" Then
Worksheets(i).Activate
MsgBox Worksheets(i).Name & " ist vorhanden"
End If
Next
End Sub
Sub Tabelle_mit_Name_anlegen()
Dim WS As Worksheet
Dim Hinweis As Byte
For Each WS In Worksheets
If WS.Name = "Break" Then
WS.Activate
MsgBox WS.Name & " ist vorhanden"
Exit Sub
End If
Next WS
Hinweis = MsgBox("Tabellenblatt existiert nicht. Anlegen?", 1, "Hinweis")
If Hinweis = 1 Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Break"
End If
End Sub
Ich habe bereits mehrere Versuche unternommen, entweder lande ich immer beim Exit Sub oder die Tabelle wird nicht gesehen obwohl sie da ist.
So soll der Code funktionieren:
Sub BestehendesMakro()
Mein bestehender Code
Abfrage existiert die Tabelle "Daten"?
Nein: msgBox, anschliessend Exit Sub
Ja: Code weiter ausführen
Mein bestehender Code
End Sub
Ich hoffe ich konnte mein Anliegen einigermassen Verständlich ausdrücken.
Besten Dank & Gruss, Henner