Private Sub Command1_Click()
 
    On Error GoTo Fehler
    Dim Zahler, i As Integer
        
    Set objXL = CreateObject("Excel.Application")
    
    objXL.Visible = True
    objXL.Workbooks.Open ("D:ProgrammierenVisual BasicSoftwareWyschaWin Wyscha AplikationProgrammeRMAKHKOffenIBM.xls")
    Zahler = 1
    With RSOpenRMA
            .MoveFirst
                Do Until .EOF = True
                    objXL.Range("A" & Zahler).Select
                    objXL.Range("A" & Zahler).Value = .Fields("n1")
                    objXL.Range("B" & Zahler).Value = .Fields("n20")
                    objXL.Range("C" & Zahler).Value = .Fields("n14")
                    objXL.Range("D" & Zahler).Value = .Fields("n3")
                    
                    .MoveNext
                    Zahler = Zahler + 1
                Loop
                .MoveFirst
            End With
    
    
    Dim Linie As String
    
    Linie = "A" & Zahler & "20000"
    Range(Linie).Select
    Selection.ClearContents
    
    objXL.Range("A1").Select
    
    objXL.ActiveWorkbook.Save
    objXL.Workbooks.Close
    
    objXL.Quit                 'Excel beenden
        
    
    
ende:
    On Error Resume Next
    Exit Sub
    
Fehler:
    MsgBox prompt:="Fehler beim Aufbereiten des Excel Tabelle:" & vbCrLf & vbCrLf & _
                   Err.Number & " - " & Err.Description, _
                    Buttons:=vbCritical
    Resume ende
 
End Sub