MsgBox verwenden
30.06.2006 08:31:49
Stefan
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)