Re: Sicherheitsabfragen
26.11.2002 11:03:28
Markus
habe jetzt folgende Prozedur:
Sub Bewegungsdaten_loeschen()
Dim intStart%
Dim i%, s$, ws As WorksheetDo
Dim VarPrints As Variant 'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints <> False Then Exit Do
Loop
If MsgBox("Wollen Sie die Daten wirklich löschen?", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
MsgBox "Ja"
intStart = ActiveSheet.Index
For i = intStart To Worksheets.Count
Worksheets(i).Range("43:1000").Delete
If Worksheets(i).Name = "Vorlage_F" Then Exit For
Next i
For Each ws In Worksheets
With ws
s = .Name
If s Like "*_F" Or s Like "*_R" Or s Like "*_U" Or s Like "*_N" Then
.Range("11:1000").Delete
Else
Select Case s
Case "Monatsübersicht"
.Range("43:1000").Delete
Case "KM-Geld"
.Range("9:1000").Delete
Case "Verauslagte Kosten":
.Range("13:1000").Delete
Case "Einsatzplanung":
.Range("D9:D15,F9:F15,H9:H15").ClearContents
End Select
End If
End With
Next ws
Else
MsgBox "Nein"
End If
End Sub
Ich verstehe deinen Code nicht. Ich brauch lediglich eine Abfrage, ob die Daten wirklich gelöscht werden sollen (Ja/Nein). Bei Ja soll meine For-Schleife ausgeführt werden. Bei Nein soll er wieder in das Programm zurückkehren.
Danke, Markus