ich habe leider ein kleines Problem mit einem Excel VB-Script. Das Sheet wird korrekt erstellt. Nun habe ich einen Filter eingebaut der soweit auch funktioniert. Das einzige Problem ist, dass beim Öffnen von Excel die gefilterten Daten nicht angezeigt werden. D.h. alle Filtereinstellungen sind korrekt im Script definiert. Werden die Filterkriterien einmal aufgerufen und ohne Änderung geschlossen werden die Daten angezeigt?!?!?
Der Filter wird wie folgt im Script eingebaut:
objwb.QueryTables(1).Delete
objwb.ListObjects.Add(1, objwb.Range(objwb.cells(1,1), objwb.Cells(pAnzRec,RangeBis)), ,1).Name = "Tabelle1"
objwb.Range(objwb.cells(1,1), objwb.cells(pAnzRec,RangeBis)).Select
objwb.ListObjects("Tabelle1").TableStyle = "TableStyleMedium14"
objwb.Range(objwb.cells(1,1), objwb.cells(pAnzRec,RangeBis)).AutoFilter 10, "=0,05"
Habt ihr noch eine Idee wie ich das Script zum Laufen bekomme? D.h. es läuft ja, nur die gefilterten Daten werden nicht angezeigt!
Vielen Dank im Voraus
Hermann