Spezialfilter aktivieren
petra
habe folgenden Makro:
Public
Sub Filter()
Worksheets("tabelle1").Activate
With ActiveSheet
Range("H3:H200").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"M3:M200"), Unique:=True
End With
Call Kopieren
End Sub
Public
Sub Kopieren()
Worksheets("tabelle1").Activate
With ActiveSheet
.Range("M3:M200").Copy
Worksheets("tabelle1").Range("M3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Worksheets("tabelle1").Activate
End Sub
jetzt soll dieser Makro aktiviert werden sobald sich der Wert in A3 in Tabelle2 ändert.
wie muss das jetzt erweitert werden?
lg
petra