Schaltfläche mit msgBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Schaltfläche mit msgBox
von: HeinzH
Geschrieben am: 11.02.2005 13:20:22
Hey Leute
Dachte ich bin mit meiner Stundenlistefertig,leider noch nicht.
Meine Frage: habe eine Schaltfläche mit untersehenden Code zum Tabellenblattlöschen,funkt.super nun möchte ich aber eine Abfrage einbauen,"wollen sie dieses Blatt wirklich löschen Ja oder Nein"
Nur weiss ich nicht wie man das bewerkstelligt.
Könnte mir bitte jemand helfen??
Danke Heinz


Sub Schaltfläche4_BeiKlick()
Application.DisplayAlerts = False
If ActiveSheet.Name <> Sheets(1).Name Then ActiveSheet.Delete
Application.DisplayAlerts = True
End 

Sub 
'Makro am 11.02.2005 von Heinz aufgezeichnet
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: Nike
Geschrieben am: 11.02.2005 13:23:21
Hi,
so:

Sub Schaltfläche4_BeiKlick()
If ActiveSheet.Name <> Sheets(1).Name Then
    If MsgBox("Echt loeschen?", vbYesNo, "Echt?") = vbYes Then
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
    End If
End Sub

Bye
Nike
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: HeinzH
Geschrieben am: 11.02.2005 13:30:54
Hallo Nike
Habe Deinen Code eingefügt,Jetzt kommt aber die Fehlermeldung "IF Block ohne End IF"
Habe prob. das End If zu entfernen,kommt trotzdem die selbe Fehlermeldung.
Habe Deinen Code in ein Modul eingegeben, ist richtig oder ??
Danke Heinz
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: Udo
Geschrieben am: 11.02.2005 13:32:40
Füg vor End Sub noch ein End If ein.
Udo
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: HeinzH
Geschrieben am: 11.02.2005 13:35:33
Hallo Udo
Danke das war der Fehler.
Tschau und gruß Heinz
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: Nike
Geschrieben am: 11.02.2005 13:43:14
Hi,
sorry war zu schnell so nebenher...
Bye
Nike
Bild

Betrifft: AW: Schaltfläche mit msgBox
von: HeinzH
Geschrieben am: 11.02.2005 13:45:55
Hallo Nike
Du brauchst Dich überhaubst nicht zu entschuldigen.
Wäre ich nicht so unerfahren könnte ich es mir selber machen.
Danke für deine Hilfe
gruß Heinz
Bild

Betrifft: OT Schaltfläche mit msgBox
von: Kurt
Geschrieben am: 11.02.2005 13:50:09
Wäre ich nicht so unerfahren könnte ich es mir selber machen. *grins*
Bild

Betrifft: AW: OT Schaltfläche mit msgBox
von: Nike
Geschrieben am: 11.02.2005 13:51:50
***schmunzel***
Bild

Betrifft: AW: OT Schaltfläche mit msgBox
von: HeinzH
Geschrieben am: 11.02.2005 13:53:13
Hallo Kurt
Aus diesen Erfahrungen die Du meinst, bin ich schon längst heraussen.
Aber danke für Dein aufmerksames lesen.
gruß Heinz
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schaltfläche mit msgBox"