Makro von aktiver Zelle
20.02.2018 19:49:27
aktiver
ich habe ein Makro, dass einen Spezialfilter ausführt:
Sub spezialfilter()
Sheets("tabelle_09").Range("A1:C1002").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("D93:D94"), CopyToRange:=Range("D96"), Unique:=True
End Sub
Nun will ich, dass nicht nur in Spalte "D" die Daten eingefügt werden, sondern in einen Bereich, jeweils ausgehend von der aktiven Zelle.
Das nächste mal sollen die Daten in Spalte "G" eingefügt werden.
Der Listenbereich "tabelle09 A1:C1002), soll flexibel gestaltet werden, da je nach Datenherkunft sich der Bereich ändert.
Der Kriterienbereich verschiebt sich auf Spalte "G". Der Zielbereich ebenfalls.
LG