Hallo zusammen,
ich habe folgendes Problem.
Ich wollte mir einen Button mit Makro bauen mit dem ich automatisch in den nächsten Monat springen kann
1.dabei möchte ich die Datei vorher speichern
2.dann die Vorlage ins Workbook laden
3. Reststunden von dem aktuellen Workbook in die Vorlage kopieren
4.und dann die Datei wieder abspeichern
im Bereich des Quellcodes 12-14 kommt dann die Fehlermeldung
Kann mir da jemand weiterhelfen ?
ich habe folgendes Problem.
Ich wollte mir einen Button mit Makro bauen mit dem ich automatisch in den nächsten Monat springen kann
1.dabei möchte ich die Datei vorher speichern
2.dann die Vorlage ins Workbook laden
3. Reststunden von dem aktuellen Workbook in die Vorlage kopieren
4.und dann die Datei wieder abspeichern
Quellcode
- 'nächster Monat
- Sub Speichern()
- Application.Dialogs(xlDialogSaveAs).Show
- Dim wkbQuelle As Workbook
- Set wkbQuelle = ThisWorkbook
- Dim wkbZiel As Workbook
- Datei = Workbooks.Open("H:\daten\Berichte\Test\Master.xlsm")
- 'If Datei = False Then Exit Sub
- Set wkbZiel = Datei
- Set RestStunden = wkbQuelle.Sheets("Work").Cells(21, 6)
- wkbZiel.Sheets("Work").Cells(27, 6) = RestStunden
- Application.Dialogs(xlDialogSaveAs).Show
- End Sub
im Bereich des Quellcodes 12-14 kommt dann die Fehlermeldung
Kann mir da jemand weiterhelfen ?
MFG
WI_Studenten
WI_Studenten
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „WI_Studenten“ ()