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"