Automatischer Makrolauf
27.01.2004 15:06:24
Bastian
Folgendes Problem:
Möchte anhängendes Makro automatisch ausführen lassen, wenn ich mit dem Steuerregister ein Sheet auswähle. (Makro gibt in einem Diagramm alle aktuellen Autofilterkriterien eines anderen Sheets zurück).
(!! _activate Methode kommt leider nicht in Frage, da zu viele Makros zwischen den Sheets wechseln!!)
Danke im voraus
Gruß Basti
Dim i As Variant, r(46) As Variant
Sheets("Datenbank").Select
For i = 1 To 46
With ActiveSheet
If .AutoFilterMode Then
With .Autofilter.Filters(i)
If .On Then r(i) = Tabelle1.Cells(15, i + 1) & .Criteria1 & Chr(10) & (Chr13)
End With
End If
End With
Next i