Makro automatisch starten
03.05.2002 13:47:49
Mike
ich habe in einem Modul folgendes Makro stehen:
Option Explicit
Sub BerDopp()
Dim c As Range
Dim SuBe As String
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
SuBe = "A1:A" & laR
Range(SuBe).Interior.ColorIndex = xlNone
For Each c In Range(SuBe)
If WorksheetFunction.CountIf(Range(SuBe), c.Value) > 1 Then _
c.Interior.ColorIndex = 36
Next c
End Sub
Um es auszuführen, muss ich es über Alt + F8 starten.
Wie müsste es verändert und wohin geschrieben werden, damit es automatisch startet?
Gruß
Mike
Anzeige