Makro speichen und neu öffnen
05.11.2012 15:30:52
Christin
ich habe das folgende Problem:
Ich habe eine xls-Datei, die mir als Formular dient.
Ich brauche drei Makros:
1. Ich speichere die Datei und einem neuen Dateinamen, lasse das Excel mit allen Inhalten aber offen
2. Ich speichere die Datei unter einem neuen Dateinamen und öffne ein leeres Formular
3. Ich verwerfe alle gemachten Einträge und öffne ein leeres Formular
Folgendes ist mein aktueller Text. Es funktioniert zwar grundsätzlich, aber ich bekomme bei 2 und 3 immer die Fehlermeldung: "Subscript out of range"
Makro für 1)
Sub SpeichernOffen()
Dim NeuerName As String
Dim ExcelSheet As Object
NeuerName = Range("H12") & " - " & Range("H9") & " - " & Range("H11")
ActiveWorkbook.SaveAs "c:\test\" & NeuerName
End Sub
Makro für 2)
Sub SpeichernNeu()
Dim NeuerName As String
Dim ExcelSheet As Object
NeuerName = "Screenshot" & Range("H12") & " - " & Range("H9") & " - " & Range("H11")
ActiveWorkbook.SaveAs "c:\test\" & NeuerName
Application.DisplayAlerts = False
Application.Quit
Set ExcelSheet = CreateObject("Excel.Application")
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open Filename:="c:\test\Masterdatei\Formular.xls"
ExcelSheet.Application.Sheets("Formblatt").Select
End Sub
Makro für 3)
Sub VerwerfenNeu()
Dim ExcelSheet As Object
Application.DisplayAlerts = False
Application.Quit
Set ExcelSheet = CreateObject("Excel.Application")
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Workbooks.Open Filename:="c:\test\Masterdatei\Kontaktpunktblatt.xls"
ExcelSheet.Application.Sheets("Kontaktpunktblatt").Select
End Sub
Vielen lieben Dank für Eure Hilfe!!!
LG
Christin