Makro für ausgewählte Tabellenblätter
07.05.2015 17:21:13
Burghard
Hallo, ich habe in zwölf einzelnen Tabellenblättern dieses funktionierende Makro:
Private Sub Worksheet_Calculate()
If WorksheetFunction.Sum(Range("B2:B83")) > 500 Then
MsgBox "ACHTUNG! Höchstbetrag von 500,00 wird überschritten!"
End If
End Sub
Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")) . Für eine Änderung bräuchte ich dann nur einmal die Höchstsumme ändern. Hilfe wäre nett.
Grüße Burghard