CopyFromRecordset in benutzerdefinierter Funktion
04.01.2006 21:39:52
jo
folgendes treibt mich zum Wahnsinn:
Um einen Recordset in mein Tabellenblatt zurueckzugeben steht dieser Aufruf in einer benutzerdefinierten Funktion (siehe unten):
ActiveCell.CopyFromRecordset objRec
Fuehre ich diese Funktion unter VBE aus, erhalte ich den Wert in der vorher angewaehlten Zelle.
Rufe ich allerdings die Funktion vom Tabellenblatt aus auf, d.h. als benutzerdefinierte Funktion, erhalte ich nur #WERT! in der Zelle.
Die gesamte Datenbankabfrage funktioniert ohne Probleme, der Wert steht auch immer korrekt im Recordset.
Kann mir bitte, bitte jemand weiterhelfen?
Ich bin ueber jede Hilfe dankbar!
Danke im Voraus und viele Gruesse,
George
Function TotalAmount()
Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
strQuery = "SELECT COUNT(Typ) FROM daten WHERE Typ IN (0,1,2,3);"
If DieseArbeitsmappe.MySQL_connection(objConn, "localhost", "3306", "root", "admin") Then
Set objRec = New ADODB.Recordset
objRec.Open strQuery, objConn, adOpenForwardOnly, adLockReadOnly
ActiveCell.CopyFromRecordset objRec
Else
MsgBox "falscher Connection-String"
End If
objRec.Close
Set objRec = Nothing
End Function