Finde Makros nicht.
29.11.2004 19:56:59
Knud
Ich möchte beim verlassen einer Zelle im Kriterienbereich den Spezialfilter auslösen. Dafür habe ich im Netz eine geniale Beispielsarbeitsmappe gefunden, die das genau so macht, wie ich will. Problem ist nun, dass ich die Makros nicht finde, die ich für meine Mappe anpassen muss.
Im Code des Tabellenblattes steht:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set aktuell = ActiveCell
Set aw = ActiveWorkbook
Set Db = aw.Names("Datenbank").RefersToRange
Set Sk = aw.Names("Suchkriterien").RefersToRange
Set Zb = aw.Names("Zielbereich").RefersToRange
If Not (Application.Intersect(Sk, Target) Is Nothing) Then
Db.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sk, _
CopyToRange:=Zb, Unique:=False
aktuell.Select
End If
End Sub
Das ist alles, was ich finde. Wo steht der Rest?
Die Mappe findet Ihr hier: http://www.quade.mynetcologne.de/manes/Excel/Spezialfilter.xls
Danke schon mal... Knud