Autofiltermakro mit Bezug auf einzelnes Blatt
20.09.2004 12:40:29
Edda
Sub auto_open()
Dim TMP
TMP = Worksheets(1).Range("a1").Value
Worksheets(1).OnCalculate = "FilternKopieren"
End Sub
Sub auto_close()
Worksheets(1).OnCalculate = ""
End Sub
In Modul 1 steht der nachfolgender Code
Sub FilternKopieren()
Dim rngAct As Range
With Worksheets("Tabelle3")
Range("c21").AutoFilter Field:=2, Criteria1:=Range("d10").Value
Set rngAct = Range("c22").CurrentRegion.SpecialCells(xlCellTypeVisible)
End With
End Sub
Dummerweise übernimmt aber auch der Autofilter auf dem Blatt Preise diese Sachnummer in den Autofilter in den Zellen A1 und B1 und der Bildschirm flackert ohne Ende. Dieses Makros soll aber ausschließlich auf Tabelle3 funktionieren und ich finde den Fehler nicht.