Hallo in die Runde,
ich breche mir gerade die Haxen an folgendem Problem:
Ich möchte per Makro in meinem aktiven Excel eine andere Datei, die ich kurz vorher in ein
neues Verzeichnis kopiert und dort umbenannt habe, öffnen und alle Tabellenblätter heraus-
löschen, die nicht "Daten" oder "Filialen" heißen ... funzt aber nicht ... hier ist der Code :
:
Dim ws As Worksheet
:
Name (newexportfolder & "\" & strOldPkrExcelName) As (newexportfolder & "\" & strNewPkrExcelName)
Workbooks.Open (newexportfolder & "\" & strNewPkrExcelName)
Workbooks(newexportfolder & "\" & strNewPkrExcelName).Activate
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If Not (ws.Name = "Daten" Or ws.Name = "Filialen") Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close
:
:
Die kopierte Datei wird wie gewünscht umgenannt, sie wird dann von dem Excel, in dem ich das Makro starte, auch geöffnet,
aber wenn die FOR Loop aus obigem Code Schnipsel startet, bekomme ich nen "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs"
Ach ja, was passieren soll : In der neuen xls Datei sollen alle Arbeitsblätter, die nicht "Daten" oder "Filialen" heißen, gelöscht werden.
Danke Euch für's Drüberschauen, für ne Idee und jegliche Hilfe!
Gruss,
Maikel
ich breche mir gerade die Haxen an folgendem Problem:
Ich möchte per Makro in meinem aktiven Excel eine andere Datei, die ich kurz vorher in ein
neues Verzeichnis kopiert und dort umbenannt habe, öffnen und alle Tabellenblätter heraus-
löschen, die nicht "Daten" oder "Filialen" heißen ... funzt aber nicht ... hier ist der Code :
:
Dim ws As Worksheet
:
Name (newexportfolder & "\" & strOldPkrExcelName) As (newexportfolder & "\" & strNewPkrExcelName)
Workbooks.Open (newexportfolder & "\" & strNewPkrExcelName)
Workbooks(newexportfolder & "\" & strNewPkrExcelName).Activate
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If Not (ws.Name = "Daten" Or ws.Name = "Filialen") Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close
:
:
Die kopierte Datei wird wie gewünscht umgenannt, sie wird dann von dem Excel, in dem ich das Makro starte, auch geöffnet,
aber wenn die FOR Loop aus obigem Code Schnipsel startet, bekomme ich nen "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs"
Ach ja, was passieren soll : In der neuen xls Datei sollen alle Arbeitsblätter, die nicht "Daten" oder "Filialen" heißen, gelöscht werden.
Danke Euch für's Drüberschauen, für ne Idee und jegliche Hilfe!
Gruss,
Maikel