Makro nur auf bestimmte Files anwenden

Guten Tag,
Ich möchte gerne aus einem Ordner bestimmte Dateien öffnen, das Worksheet "2" löschen und das speichern.
Leider funktioniert mein Makro dafür überhaupt nicht. Könntet ihr mir hier weiterhelfen?
Im Ordner sind viele Datein mit 1.xlsx, 2.xlsx, 3.xlsx etc.
zB sollen 29501.xlsx und 29512.xlsx bearbeitet werden.
Wie wende ich das Makro an bzw. wie bearbeite ich mein Makro am besten?
Soweit bin ich schon gekommen:


Sub Makro_blaetter_loeschen()
' Makro_blaetter_loeschen Makro
' Tastenkombination: Strg+Umschalt+M
Dim MyFile As String
Dim Filepath As String
Dim q As Long
Filepath = Application.ThisWorkbook.Path & "\"
Debug.Print Filepath
Filepath = "C:\Users\EE1902\Desktop\MAKRO\"
Ext = "29501.xlsx"
Debug.Print Ext
If Filepath = "" Then
Exit Sub
Else
MyFile = Dir(Filepath)
Debug.Print MyFile
Do While Len(MyFile) > 0
Workbooks.Open Filename:=Filepath & MyFile
'alle Blätter mit Namen "Stat.Kennzahlen" löschen
Sheets("Stat. Kennzahlen").Activate
Sheets("Stat. Kennzahlen").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
'MyFile = Dir()
Loop
End If
End Sub

Vielen vielen dank schon im Voraus für die Antworten!
Liebe Grüße
Hannah

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim ar As Variant, i As Integer Const strPfad As String = "C:\Users\EE1902\Desktop\MAKRO\" ar = Array("29501.xlsx", "29512.xlsx") Application.ScreenUpdating = False For i = LBound(ar) To UBound(ar) Call DeleteWS(strPfad & ar(i)) Next i End Sub

Private Sub DeleteWS(strFile As String) Dim WB As Workbook On Error Resume Next Set WB = Workbooks.Open(strFile) Application.DisplayAlerts = False WB.Worksheets("Stat.Kennzahlen").Delete WB.Close True Application.DisplayAlerts = True End Sub

dim Datei dim Dateien dim Pfad as string dim wB as workbook dim wS as worksheet Pfad = "C:\Users\EE1902\Desktop\MAKRO\" Dateien = Array("29501.xlsx","29512.xlsx") for each Datei in Dateien if Dir(Pfad & Datei) "" then set wB = Workbooks.Open(Pfad & Datei) for each wS in wB.Worksheets if wS.Name = "Stat.Kennzahlen" then Application.DisplayAlerts = False If wB.Worksheets.Count > 1 then wS.Delete Application.DisplayAlerts = True Exit for end if next end if Next

for each Datei in Dateien if Dir(Pfad & Datei) "" then set wB = Workbooks.Open(Pfad & Datei) for each wS in wB.Worksheets if wS.Name = "Stat.Kennzahlen" then Application.DisplayAlerts = False If wB.Worksheets.Count > 1 then wS.Delete Application.DisplayAlerts = True wB.Save Exit for end if next wB.Close false end if Next

Beliebteste Forumthreads (12 Monate)

Makro nur auf bestimmte Files anwenden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread