ich habe mal eine Frage zu folgendem:
In
With ActiveSheet ' hier soll die Grafik eingeblendet werden!
Dim acell As Range
Set acell = Range("A3") steht eine Zahl.
Diese möchte ich als Filterkriterium anwenden in
Windows("Daten_alt.xlsx").Activate
Range("I1").Select
ActiveSheet.Range("$A$1:$J$20000").AutoFilter Field:=9, Criteria1:="acell"
Aber wie es jetzt weitergeht mit SpecialCells(xlCellTypeVisible und ActiveSheet.Pictures.Paste(Link:=True).Select
ActiveSheet.Shapes.Range(Array("Picture 4")).Select usw.
Das ist mir zu hoch, der Recorder ist da auch nur wenig hifreich.
Die Anzahl Daten aus dem Filter variiert.
Der o.g. Code ist natürlich nur zur Veranschaulichung was gemeint ist.
Kann mir mal eine/r von euch helfen das umzusetzen.
Besten Dank schon einmal im Voraus.
Gruß
Thorben