mit folgender Routine mache ich eine Abfrage im Datenblatt DATA. Die dem Suchkriterium entsprechenden Datensätze werden im Anschluß ins Blatt INPUT kopiert.
Ich würde gern die Anzahl der gefilterten Datensätze in eine Variable transportieren. Wie muss ich meinen Quelltext erweitern? Habe was von COUNT gelesen, weiß aber nicht, wie bzw. wo ich es einsetzen muss.
Sub sql()
Dim cn As Object, rs As Object
Dim strConnection As String, strSQL As String
Set cn = CreateObject("ADODB.CONNECTION")
strConnection = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & ThisWorkbook.FullName
With cn
.Open strConnection
strSQL = "SELECT * " & _
"FROM [DATA$C19:AE2000] " & _
"WHERE [PRODUCT] IN " & prodstring & ""
Set rs = CreateObject("ADODB.RECORDSET")
With rs
.Source = strSQL
.ActiveConnection = strConnection
.Open
'tbl_Gesamt.Range("A1:F1").Copy Destination:=tbl_SQL.Range("A1")
Sheets("INPUT").Range("C20").CopyFromRecordset rs
'tbl_SQL.Columns.AutoFit
MsgBox rs.Fields.Count
.Close
End With
End With
cn.Close
Set cn = Nothing
Set rs = Nothing
End Sub
Vielen Dank,Frank