Makro als Ereignismakro
Michael
ich möchte nachfolgendes Makro als Ereignismakro einsetzen. Beim Aktivieren des Blattes Tabelle 1 soll es ausgeführt werden. Klappt aber in dieser Form nicht, weil die Aktivierungen der Blätter im Makro natürlich Fehlermeldungen und am Ende eine Schleife auslösen.
Kriegt man das irgendwie in den Griff?
Vielen Dank
Michael
Sub Test
Dim i As Long, LastRow As Long, NoRevDay As Long, MyRange As Range, Msg As String
Dim SameDateCnt As Long, DateArr() As Variant
Application.ScreenUpdating = False
Worksheets("Tabelle 1").Activate
LastRow = Range("L65536").End(xlUp).Row
NoRevDay = 0
For i = 1 To LastRow
If IsDate(Cells(i, 12).Value) = True Then
'Myrange setzen fuer selbes Datum
For SameDateCnt = 1 To 26
If Cells(i + SameDateCnt, 12).Value Cells(i, 12).Value Then
SameDateCnt = SameDateCnt - 1
Exit For
End If
Next SameDateCnt
Set MyRange = Range(Cells(i, 12), Cells(i + SameDateCnt, 12))
If Application.CountIf(MyRange.Offset(0, 29), ">0.05") = 0 Then
NoRevDay = NoRevDay + 1
ReDim Preserve DateArr(NoRevDay)
DateArr(NoRevDay) = Cells(i, 12).Value
i = i + SameDateCnt
Else
i = i + SameDateCnt
End If
End If
Next i
Worksheets("Tabelle2").Activate
Cells(43, 14).Value = NoRevDay
For i = LBound(DateArr) To UBound(DateArr)
If DateArr(i) "" Then
Cells(43, 16 + i) = DateArr(i)
End If
Next i
Application.ScreenUpdating = True
End Sub