Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox verwenden

Forumthread: MsgBox verwenden

MsgBox verwenden
30.06.2006 08:31:49
Stefan
Guten Morgen zusammen
Ich würde gerne dieses Makro mit einer Mssg Box erweitern.
d.h. Wird die Datei geöffnet und die Abfrage "If Range("K1") = 1 Then"
sollte die MsgBox aufmachen Yes & No (Text=Statistik löschen).
- Bei "Ja" eine Neue MsgBox, mit der Frage Wircklich löschen "Ja" "Nein" wenn dann wirklich ja Makro fortsetzten
- Bei "Nein" Makro Beenden (Bei erster und zweite MsgBox)

Private Sub Workbook_Open()
Sheets("Eingabefeld").Activate
If Range("K1") = 1 Then
DENKE DIE MSGBOX MÜSSTE HIER REIN !?
With Sheets("Statistik")
.Unprotect
.Range("I1").Clear
.Columns("K:K").ClearContents
.Columns("A:I").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
ActiveSheet.Unprotect
Range("M2").Copy
Range("L1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Danke
Reutlingen sonnig und angenehm mild (noch)
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox verwenden
30.06.2006 08:44:38
Harald
Moin Stefan,
vielleicht so ?

Private Sub Workbook_Open()
Sheets("Eingabefeld").Activate
If Range("K1") = 1 Then
If MsgBox("Löschen ?", vbYesNo) <> vbYes Then Exit Sub
If MsgBox("Wirklich ?", vbYesNo) <> vbYes Then Exit Sub
With Sheets("Statistik")
.Unprotect
.Range("I1").Clear
.Columns("K:K").ClearContents
.Columns("A:I").ClearContents
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
ActiveSheet.Unprotect
Range("M2").Copy
Range("L1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Gruss Harald
Anzeige
Danke
30.06.2006 09:22:39
Stefan
So lernt man weiter
Reutlingen nicht mehr ganz so mild, wird wärmer
AW: Danke für die Rückmeldungen owT
30.06.2006 09:27:43
Harald
Gruss Harald
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige