Hallo zusammen.
Ich stehe vor einem Problem.
Ein Kollege und ich haben uns für die Vereinfachung unserer Arbeit einige Dinge überlegt.
Dazu gehört z.b. Das jemand eine Datei (Excel) befüllt und wir diese auf einen anderen Pfad verschieben und den Inhalt der alten Datei entfernen.
Wo und wie der inhalt bestimmt wird weiß ich bereits.
Doch das GrundMakro läuft schon nicht richtig:
Ich habe bereits mehrere befehle versucht.
Das einfachste wäre in dem Fall Ausschneiden aus alt und reinschreiben in neu.
Jedoch bekomme ich Index Fehler bei ActiveWorkbook.Sheet......
Ich denke die ??? müssen durch den neuen Datei Namen ersetzt werden, da dieser sich aber ändert weiss ich nicht was genau ich hier eintragen muss.
Für Hilfe bin ich dankbar.
P.s: Habe gerade erst mit VB angefangen und bin an office 2k10 gebunden ohne Activ X
Ich stehe vor einem Problem.
Ein Kollege und ich haben uns für die Vereinfachung unserer Arbeit einige Dinge überlegt.
Dazu gehört z.b. Das jemand eine Datei (Excel) befüllt und wir diese auf einen anderen Pfad verschieben und den Inhalt der alten Datei entfernen.
Wo und wie der inhalt bestimmt wird weiß ich bereits.
Doch das GrundMakro läuft schon nicht richtig:
Quellcode
- Option Explicit
- Sub Schaltfläche2_Klicken()
- Dim wkbMappe As Workbook
- Set wkbMappe = Workbooks.Add
- wkbMappe.SaveAs "PFAD_" & Format(Now, "yyyy_mm_dd") & ".xls"
- ActiveWorkbook.Sheet("Tabelle1").Cells("A8:J50").Cut = Workbooks("???.xls").workbookSheets("Tabelle4").Cells("A1:J42").Paste
- ' test MsgBox wkbMappe.Name
- End Sub
Ich habe bereits mehrere befehle versucht.
Das einfachste wäre in dem Fall Ausschneiden aus alt und reinschreiben in neu.
Jedoch bekomme ich Index Fehler bei ActiveWorkbook.Sheet......
Ich denke die ??? müssen durch den neuen Datei Namen ersetzt werden, da dieser sich aber ändert weiss ich nicht was genau ich hier eintragen muss.
Für Hilfe bin ich dankbar.
P.s: Habe gerade erst mit VB angefangen und bin an office 2k10 gebunden ohne Activ X