Hallo Zusammen,

ich stehe seit nun 2 Tagen vor einem nicht lösbaren Problem.
Wir möchten mittels eines EXCEL-Sheets ein anderes EXCEL-Sheet bearbeiten.

Ich lese die Daten von dem Sheet mittels ADODB aus, soweit auch alles gut.
Wenn ich daten aber bearbeiten will, bekomme ich immer ein Fehler wenn es um das Datumsfeld geht.

Hier mal mein Code:

       If rsRecords.RecordCount = 0 Then
            MsgBox "Kein Einträge"
        ElseIf (rsRecords.RecordCount = 1) Then
            
            'Dim strInstallDate As String
            'strInstallDate = "d/m/yy h:mm;@"
            'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
            'strInstallDate = Format(Now(), "####")
            'strInstallDate = Now()
            'strDate = Now()Date)
            

            'InstallDate
            'Dim strInstallDate As String
            strInstallDate = "'#" & Cells(15, 2).Value & "#'"
            'strInstallDate = Format(Cells(15, 2).Value, "@")
            'strInstallDate = "d/m/yy h:mm;@"
            'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
            'strInstallDate = Format(Now(), "####")
            'strInstallDate = Now()			
            
            Debug.Print strInstallDate
            
            'RIO
            Dim strRIO As String
            strRIO = Cells(12, 2).Value

             With rsRecords
                If Not .BOF And Not .EOF Then
                    Debug.Print "Name:" & rsRecords.Fields.Item(0).Name
                    Debug.Print "Value:" & rsRecords.Fields.Item(0).Value
                    Debug.Print "Type:" & VarType(rsRecords.Fields.Item(0).Value)
                    .MoveLast
                    .MoveFirst
                    If .Supports(adUpdate) Then
                        ![F4] = "" & strInstallDate & ""
                        '![F6] = strRIO
                        .Update
                    Else
                        MsgBox "adUpdate fail!"
                    End If
                Else
                    MsgBox "BOF/EOF"
                End If
                 .Close
            End With
        Else
            MsgBox "Mehrer EInträge gefunden"
        End If

Ich weiß einfach nicht wie ich es schaffe das Datum so zu formatieren das es abgespeichert wird.
Das Feld in der "quelle" ist LEER und vom Typ DATE

Bitte gibt mir nen Denkanstoß!