jobo: vba - ein worksheet in neue arbeitsmappe kopieren

Hallo,

mein hirn lahmt grade.

worksheets("meineAusgabe") möchte ich in eine neue Datei kopieren, die heißt meinetwegen "meineNeueDatei.xls"). vorher aber checken, ob "meineNeueDatei.xls" existiert (alles im selber verzeichnis) und dann ggf. vorher löschen (weil es ja nur eine ausgabedatei ist, die für jede eingabe neu erstellt werden soll). kann mir jemand auf die sprünge helfen?

Gruß

jobo

  1. Hallo,

    Workbooks.Open (Pfad & "AusgabeKunde.xls")
        ThisWorkbook.worksheets("KundenAusgabe").Range("A2:Z100").Copy Workbooks("AusgabeKunde.xls").worksheets("KundenAusgabe").Range("A2:Z100")
        Workbooks("AusgabeKunde.xls").Save
        Workbooks("AusgabeKunde.xls").Close

    Öffnet die bereits vorhandene Datei "AusgabeKunde.xls"
    Schnappt sich vom Workbook, in dem das Makro steckt, das Arbeitsblatt "KundenAusgabe". Nimmt da den Range von A2 bis Z100 und kopiert den ins bereits vorhandene Arbeitsblatt "KundenAusgabe" in der "AusgabeKunde.xls". Speichern, schließen.

    Gruß

    jobo