Dim
conn
As
New
ADODB.Connection
conn.Open
"Provider=Microsoft.ACE.OLEDB.12.0;"
&
"Data Source="
& strFilename &
";"
& _
"Extended Properties="
"Excel 12.0;HDR=No;"
";"
Dim
query
As
String
query =
"Select * From [Quell-Blattname$] where left([F1],1) <> 'N'"
Dim
rs
As
New
Recordset
rs.Open query, conn
With
Worksheets(
"Ziel.Blattname"
)
Dim
lngLetzteZeile
As
Long
lngLetzteZeile = .Cells(Rows.Count, 1).
End
(xlUp).Row + 1
.Range(
"A"
& lngLetzteZeile).CopyFromRecordset rs
End
With
conn.Close