Erstelle die Prozedur mit Paramterliste.
Sub ZReset(ByRef rngContentBereich As Excel.Range, ByVal bAbfrage As Boolean)
End Sub
Parameter1: rngContentBereich
- Der Bereich, dessen Content gelöscht werden soll
- mit Union() setzen
Parameter2: bAbfrage
- True oder False übergeben
- Intern jetzt abfragen, ob eine Messagebox erscheinen soll oder nicht
Beispielaufruf:
Sub Aufruf()
'vereinfacht mit Variablendeklaration
Dim rng As Excel.Range
Set rng = Union(Range("B8:B43"), Range("F8:F43"), Range("M8:M43"), Range("T8:T43"), Range("AA8:AA43"))
Call ZReset(rng, True)
End Sub
|