Hallo,

<kritik> da Dein Text alles in einer Zeile eingeben wurde, kann ich nur vermuten, dass auf deiner Tastatur die Return-Taste nicht funktioniert. Wenn dieser Text in mehreren Zeilen geschrieben wäre könnte man Dein Anliegen und den VBA-Code besser lesen.</kritik>

Wenn ich Dein VBA-Code richtig interpretiert habe, müsste dieser so ausschauen:

Private Sub Workbook_Open()
    'Begrüßungsfenster beim Dateistart
    'Abfrage der Dateiaktualisierung beim Start
    Antwort = MsgBox("Wurden die Tabellen schon exportiert??", vbQuestion + vbYesNo)
    'Wenn in der Messagebox auf Nein geklickt wird, öffnet sich Grace
    If Antwort = 7 Then
        meinRDPMitPfad = "c:\windows\system32\mstsc.exe """ & "C:\Program Files (x86)\RemotePackages\G.R.A.C.E. II.rdp" & """ "
        Ergebnis = Shell(meinRDPMitPfad, 1)
        'Wenn in der Messagebox auf Ja geklickt wird, werden die Dateien aus C:\ in den Laufwerkordner kopiert
    Else
        Dim Quelle As String, Ziel As String
        Quelle = "C:\GRACE\SLZ.xlsx"
        Ziel = "R:\Service\SLZ.xlsx"
        FileCopy Quelle, Ziel
        Quelle = "C:\GRACE\Termine.xlsx"
        Ziel = "R:\Service\Termine.xlsx"
        FileCopy Quelle, Ziel
        StyleChange Ziel
        Antwort = MsgBox("Die Daten wurden erfolgreich kopiert!", vbInformation + okonly)
    End If
End Sub

Nach FileCopy wurde ein Verweis auf den Befehl StyleChange eingefügt, in diesem wird in der Zieldatei die Formatierung in der ersten Tabelle (Spalte A) geändert:

Sub StyleChange(strFile As String)
    Dim bk As Workbook
    Dim sh As Worksheet
    
    Set bk = Application.Workbooks.Open(strFile)
    Set sh = bk.Worksheets(1)
    Application.FindFormat.NumberFormat = "@"
    Application.ReplaceFormat.NumberFormat = "0.00"
    sh.Range("A").Replace What:="", Replacement:="", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
    bk.Close True
End Sub

Was macht diese Sub? Es wird in der ersten Spalte der Tabelle 1 alle Zellen, der Format von "Text" auf "Zahlen" geändert. Bei Zahlen-Format wurde das Format "0,00" gewählt.

LG, BigBen