MsgBox abfolge mit BlätterAusblenden

Hallo Zusammen
Habe ein wenig mühe damit das Makro BlaetterAusblenden am richtigen Ort zu plazieren.
Es soll so ablaufen: Msgbox "Formulare zurücksetzen ja/nein. falls nein *BlaetterAusblenden* falls ja weiter zu msgbox "Wollen Sie wirklich... (diese Abfrage ist nur zur letzen nochmaligen Bestätigung) und auch hier falls nein *BlaetterAusblenden* falls ja weiter zu msgbox "Ok. etc. warten...... und dann kommt mein Code zur Löschung.
Die Blätter habe ich vorher mit dem Commandbutton eingeblendet. Einblenden muss ich sie, da leider viele .Select.
If MsgBox("Formulare zurücksetzen und Werte löschen ?", vbYesNo, "Formulare zurücksetzen") vbYes Then
If MsgBox("Wollen Sie wirklich alles löschen ? Die Daten werden unwideruflich gelöscht !", vbYesNo, "Formulare zurücksetzen") vbYes Then
MsgBox "OK drücken, Bitte warten..........", 64, "Löschen"
BlaetterAusblenden
Wäre froh, wenn mir jemand helfen könnte.
herzliche grüsse
Eggi (Egidio)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer
Wo soll ich das Makro platzieren. Nach meiner Logik zwei mal aber wo genau. Bei der ersten Msgbox und bei der zweiten MsgBox.
Ich sage ja vbyes... dann mache die Löschungen bei nein blaetterausblenden.
Bei der zweiten msgbox auch wieder bei ja mache die Löschungen bei nein blaetteraublenden.
Bei der Reihenfolge habe ich mühe.


Sub BlaetterAusblenden()
Dim i As Byte
For i = 1 To Sheets.Count
If Sheets(i).name  "Start" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub


Sub BlaetterEinblenden()
Dim i As Byte
For i = 1 To Sheets.Count
If Sheets(i).name  "Start" Then
Sheets(i).Visible = True
End If
Next i
End Sub

herzliche grüsse
Eggi (Egidio)

Private Sub CommandButton1_Click() Dim Que Que = MsgBox("Formulare zurücksetzen und Werte löschen ?", _ vbYesNo + vbDefaultButton2, "Formulare zurücksetzen") If Que = vbYes Then Que = MsgBox("Wollen Sie wirklich alles löschen ?" _ & "Die Daten werden unwideruflich gelöscht !", _ vbYesNo + vbDefaultButton2 + vbExclamation, _ "Formulare zurücksetzen") If Que = vbNo Then Call Ausblenden: Exit Sub MsgBox " Hier Löschcode oder dessen Prozedur aufrufen" End Sub

Beliebteste Forumthreads (12 Monate)

MsgBox abfolge mit BlätterAusblenden

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MsgBox abfolge mit BlätterAusblenden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread