|
Hallo, an allen!
Ich habe eine Routine:
Sub ZReset()
Dim response As Integer
response = MsgBox("Möchtest du wirklich alles löschen?", vbQuestion + vbOKCancel + vbDefaultButton1, "Warnung!")
If response = vbOK Then
Range("B8:B43").ClearContents
Range("F8:F43").ClearContents
Range("M8:M43").ClearContents
Range("T8:T43").ClearContents
Range("AA8:AA43").ClearContents
Cells(8, 2).Select
Application.ThisWorkbook.RefreshAll
Else
Exit Sub
End If
End Sub
Wenn ausgeführt wird, warnt zuerst per Messagebox, ob man sicher ist, dass alles gelöscht wird.
Ich möchte die gleiche Routine an eine andere Stelle benutzen, soll aber entweder die Messagebox nicht erscheinen, oder
mit vbOK automatisch beantwortet werden.
Natürlich, wäre das nur eine Routine, wäre das auch kein Problem. Sind aber über 10 Routinen und wollte mal fragen,
ob es einen anderen Weg leichteren Weg gibt, anstatt alle zu wiederholen ohne die Messagebox.
|