Datenübergabe an Excel

[dierk1804]

Hallo liebe Gemeinde,

ich stehe mal wieder vor einem Rätsel. Ich möchte Daten an Excel übergeben um diese zu berechnen. Die Werte kommen aus einer Tabelle. Dies klappt wunderbar. Jetzt möchte ich aber zusätlich noch aus dem Formular auf dem der Button für die Anweisung ist. Den Artikel und die Artikelnummer noch mitgeben. Excel startet, die Datene werden übertragen aber das Feld Artikelnummer bleibt leer???
Was mache ich falsch?
Hier der Code:
Private Sub btncpk_Click()

If DCount("*", "tblspcmessung") > 5 Then

Dim objExcel As Object

On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
    If Not objExcel Is Nothing Then
     Dim rs As DAO.Recordset
     Dim xlApp As Object, xlWB As Object, xlsheet As Object, xlBook As Object
   
     Set rs = CurrentDb.OpenRecordset("SELECT Werte FROM tblspcmessung")
     Set xlApp = CreateObject("Excel.Application")
     xlApp.Visible = True
     Set xlWB = xlApp.Workbooks.Add("\\Bteerp03\d\QS-PPV\Prozessanalyse.xlsm")
    Set xlsheet = xlWB.Sheets(1)
   
    'Wird nicht in Excel geschrieben
    xlsheet.cells("C6") = Me.artikel_nr
   
    'Ab Hier funktioniert es. Werte werden in Excel geschrieben
    xlsheet.Range("K11").CopyFromRecordset rs
    Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 SollMass FROM tblspcmessung")
    xlsheet.Range("E14").CopyFromRecordset rs
    Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 obere_Toleranz FROM tblspcmessung")
    xlsheet.Range("G14").CopyFromRecordset rs
    Set rs = CurrentDb.OpenRecordset("SELECT TOP 1 untere_Toleranz FROM tblspcmessung")
    xlsheet.Range("G15").CopyFromRecordset rs
   Else
        MsgBox ("Diese Funktion benötigt Excel auf Ihrem PC, Anwendung wird nicht gestartet")
   End If
Else
MsgBox ("Keine Auswertbare Daten vorhanden !  Es können nur gemessene Werte bewertet werden")
End If

End Sub

[dierk1804]

Hallo zusammen,
ich habe das Problem gelöst. Habe die Daten einfach vorher in meine Tabellenerstellungsabfrage mit eingebaut und dann wie im funktionierenden Bereich aufgerufen.
Klappt.