Hallo zusammen,
ich bin gerade so richtig am verzweifeln, und wende mich mit großer Hoffnung nun an euch.
Der unten angegebene Code soll letztlich Worksheets aus der aktiven Datei zunächst duplizieren, nur Werte in das Duplikat übernehmen und dann in eine neu zu erstellende Datei verschieben. (Leider habe ich sonst keinen anderen Weg gefunden, wie ich ein Tabellenblatt mit nur den Werten, Formaten ohne Formeln, aber mit samt Seiten/ Druckeinstellungen in eine neu Datei übernehmen kann.
Im Grunde genommen, hat es die ganze Zeit geklappt aber nun meckert er mit einem
Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs" in der Zeile 73
Egal was ich nun mache, ich komme nicht weiter.
Mach ich da was falsch? Gut, ich bin nun auch kein VBA/ Excel Profi.
LG Sascha
ich bin gerade so richtig am verzweifeln, und wende mich mit großer Hoffnung nun an euch.
Der unten angegebene Code soll letztlich Worksheets aus der aktiven Datei zunächst duplizieren, nur Werte in das Duplikat übernehmen und dann in eine neu zu erstellende Datei verschieben. (Leider habe ich sonst keinen anderen Weg gefunden, wie ich ein Tabellenblatt mit nur den Werten, Formaten ohne Formeln, aber mit samt Seiten/ Druckeinstellungen in eine neu Datei übernehmen kann.
Im Grunde genommen, hat es die ganze Zeit geklappt aber nun meckert er mit einem
Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs" in der Zeile 73
Egal was ich nun mache, ich komme nicht weiter.
Mach ich da was falsch? Gut, ich bin nun auch kein VBA/ Excel Profi.
Visual Basic-Quellcode
- Sub miniVGAL_erstellen()
- Application.CutCopyMode = False 'Zwischenspeicher löschen
- Application.Calculation = xlCalculationManual
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Dim DieserPfad As String
- DieserPfad = ThisWorkbook.Path
- Dim Dateiname As String
- Dateiname = ActiveWorkbook.Name
- Speichername = Application.Substitute(ActiveWorkbook.Name, ".xlsm", "")
- MiniVGAL = "Mini " & Speichername & ".xlsx"
- Worksheets("Verrechnung V-Geld mit AV").Visible = xlSheetVisible
- Worksheets("1-2 Meldung").Visible = xlSheetVisible
- Worksheets("AVVG_AusAO").Visible = xlSheetVisible
- Worksheets("AVVG_AnAO").Visible = xlSheetVisible
- Worksheets("umzub. V-Geldsätze").Visible = xlSheetVisible
- Worksheets("V-Geld-Zuschüsse").Visible = xlSheetVisible
- Worksheets("VerpflStMeldung").Visible = xlSheetVisible
- ' Worksheets("VGAL Zusammenfassung").Visible = xlSheetVisible
- 'neue Datei erstellen
- Workbooks.Add
- Application.DisplayAlerts = False
- ActiveWorkbook.SaveAs Filename:=DieserPfad & "\Mini " & Speichername & ".xlsx"
- Application.DisplayAlerts = True
- Windows(Dateiname).Activate
- '1-2 Meldung übertragen
- Sheets("1-2 Meldung").Select
- Application.CutCopyMode = False
- Sheets("1-2 Meldung").Copy Before:=Sheets(1)
- Sheets("1-2 Meldung (2)").Unprotect Password:="PdR2020"
- Sheets("1-2 Meldung (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("1-2 Meldung (2)").Select
- Sheets("1-2 Meldung (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'Verrechnung V-Geld mit AV übertragen
- Sheets("Verrechnung V-Geld mit AV").Select
- Sheets("Verrechnung V-Geld mit AV").Copy Before:=Sheets(1)
- Sheets("Verrechnung V-Geld mit AV (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("Verrechnung V-Geld mit AV (2)").Select
- Sheets("Verrechnung V-Geld mit AV (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'AVVG_AusAO übertragen
- Sheets("AVVG_AusAO").Select
- Sheets("AVVG_AusAO").Copy Before:=Sheets(1)
- Sheets("AVVG_AusAO (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("AVVG_AusAO (2)").Select
- Sheets("AVVG_AusAO (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'AVVG_AnAO übertragen
- Sheets("AVVG_AnAO").Select
- Sheets("AVVG_AnAO").Copy Before:=Sheets(1)
- Sheets("AVVG_AnAO (2").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("AVVG_AnAO (2").Select
- Sheets("AVVG_AnAO (2").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'umzub. V-Geldsätze übertragen
- Sheets("umzub. V-Geldsätze").Select
- Sheets("umzub. V-Geldsätze").Copy Before:=Sheets(1)
- Sheets("umzub. V-Geldsätze (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("umzub. V-Geldsätze (2)").Select
- Sheets("umzub. V-Geldsätze (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'V-Geld-Zuschüsse übertragen
- Sheets("V-Geld-Zuschüsse").Select
- Sheets("V-Geld-Zuschüsse").Copy Before:=Sheets(1)
- Sheets("V-Geld-Zuschüsse (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("V-Geld-Zuschüsse (2)").Select
- Sheets("V-Geld-Zuschüsse (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'VerpflStMeldung übertragen
- Sheets("VerpflStMeldung").Select
- Sheets("VerpflStMeldung").Copy Before:=Sheets(1)
- Sheets("VerpflStMeldung (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("VerpflStMeldung (2)").Select
- Sheets("VerpflStMeldung (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- Windows(Dateiname).Activate
- 'VGAL Zusammenfassung übertragen
- Sheets("VGAL Zusammenfassung").Select
- Sheets("VGAL Zusammenfassung").Copy Before:=Sheets(1)
- Sheets("VGAL Zusammenfassung (2)").Select
- Cells.Select
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
- Sheets("VGAL Zusammenfassung (2)").Select
- Application.CutCopyMode = False
- Sheets("VGAL Zusammenfassung (2)").Move Before:=Workbooks(MiniVGAL).Sheets(1)
- With Application
- .StatusBar = "VGAL_Mini wurde erstellt. Daten wurden übertragen. "
- .Wait (Now + TimeValue("00:00:03"))
- .StatusBar = False
- End With
- Application.DisplayAlerts = False
- ActiveWorkbook.Save
- Application.DisplayAlerts = True
- ActiveWorkbook.Close
- Windows(Dateiname).Activate
- Application.ScreenUpdating = True
- Application.Calculation = xlCalculationAutomatic
- Application.CutCopyMode = False 'Zwischenspeicher löschen
- End Sub
LG Sascha
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ghizmo“ ()