wenn Blatt vorhanden Makro ausführen

Hallo zusammen,
Ich möchte das wenn die in der Abfrage vorhandenen Tabellenblätter vorhanden sind eine MsgBox erscheint mit dem entsprechenden Text. Soweit habe ich dies, nun möchte ich dass wenn ich in der MsgBox auf Ok klicke dass dieses Makro beendet wird und ein anderes Makro (vorhanden das die Tabellenblätter löscht) gestartet wird. Ist dies möglich?
Zudem möchte ich in der MsgBox einen Butten mit Abbrechen (wie kann ich diesen erstellen?) und wenn dieser angeklickt wird dass das Makro beendet wird und nichts ausgeführt wird.
Kann mir da jemand Helfen?
Gruss Marco
Hier mein Code:
Sub EinfügenDaten()
For Each Tabelle In Worksheets
If Tabelle.Name = "BestandTKC" Or Tabelle.Name = "BestandDAGKons" Or Tabelle.Name = "BestandDAGProd" Or _
Tabelle.Name = "LadeListeLup" Or Tabelle.Name = "LadeListeDAG" Or AbsatzplanArbeitsblatt Then
MsgBox "Bitte zuerst die Bestandestabellen löschen!"
Exit Sub
End If
Next
On Error GoTo Ende

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub EinfügenDaten() Dim TB As Worksheet For Each TB In Worksheets Select Case TB.Name Case "BestandTKC", "BestandDAGKons", "BestandDAGProd", "LadeListeLup", " _ LadeListeDAG", "AbsatzplanArbeitsblatt" MsgBox "Bitte zuerst die Bestandestabellen löschen!" löschenDaten TB.Name Exit Sub Case Else 'Nix End Select Next End Sub Sub löschenDaten(Blatt) Application.DisplayAlerts = False Sheets(Blatt).Delete End Sub

Sub EinfügenDaten() Dim TB As Worksheet Dim JaNein For Each TB In Worksheets Select Case TB.Name Case "BestandTKC", "BestandDAGKons", "BestandDAGProd", _ "LadeListeLup", "LadeListeDAG", "AbsatzplanArbeitsblatt" JaNein = MsgBox("Zuerst die Bestandestabellen löschen?", vbYesNo) If JaNein = vbYes Then löschenDaten TB.Name End If Exit Sub Case Else 'Nix End Select Next End Sub Sub löschenDaten(Blatt) Application.DisplayAlerts = False Sheets(Blatt).Delete End Sub

Sub EinfügenDaten() Dim TB As Worksheet Dim JaNein, TMP As Boolean For Each TB In Worksheets Select Case TB.Name Case "BestandTKC", "BestandDAGKons", "BestandDAGProd", _ "LadeListeLup", "LadeListeDAG", "AbsatzplanArbeitsblatt" If TMP = False Then JaNein = MsgBox("Zuerst die Bestandestabellen löschen?", vbYesNo) End If If JaNein = vbYes Then TMP = True löschenDaten TB.Name Else Exit Sub End If Case Else 'Nix End Select Next Neue_Blätter End Sub Sub löschenDaten(Blatt) Application.DisplayAlerts = False Sheets(Blatt).Delete End Sub Sub Neue_Blätter() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "BestandTKC" Sheets.Add(After:=Sheets(Sheets.Count)).Name = "BestandDAGKons" End Sub

Beliebteste Forumthreads (12 Monate)

wenn Blatt vorhanden Makro ausführen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread