Private Sub Workbook_BeforeClose(Cancel As Boolean
22.12.2005 18:22:58
Gunter
ich habe eine Datei mit mehreren Arbeitsblättern. Vor dem schliessen soll auf allen Arbeitsblättern ein vorher markierter Teil zurück gesetzt werden.
Mit dieesem Makro wird nur das aktuelle Arbeitsblatt zurück gesetzt.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Suchbegriff As Range
Set Suchbegriff = Range("A3:IV3").Find(What:=Date, LookAt:=xlWhole)
Range(Suchbegriff.Address).Activate
Range(Suchbegriff.Address).Font.ColorIndex = 1
Range(Suchbegriff.Address).Font.Bold = False
Range(Suchbegriff.Address).Interior.ColorIndex = 2
End Sub
Wie erreiche ich, das das Makro in allen Arbeitsblättern ausgeführt wird?
Danke
Gunter