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
|