Blätter löschen wenn Name = monat

Hallöchen
Habe da eine Aufgabe an jemand der sich mit Schleifen sehr gut auskennt.
Ich wollte fragen ob ihr mir weiterhelfen könntet wie ich es anstelle das ein Makro in einer Arbeitsmappe zu jedem Blatt springt überprüft ob(und jeztt das Problem)nachschaut ob ein Monatsname darin enthalten ist(Janaur oder Februar oder März... bis Dezember)und falls das der Fall ist auch dann löscht. Falls kein Monatsname darin enthalten ist soll es das Blatt nicht löschen und überspringen.
Hier bis jetzt mein naja Resultat(aber nicht lachen :-)
die mit ' sind Ansätze und sind damit zu vernachlässigen
Sub Blatt_löschen_anlegen() '(monat, jahr) '
''If Sheets(a).Name Like monat & jahr & "*" Then
Vorlagen_einblenden
For a = 1 To ThisWorkbook.Sheets.Count
If Sheets(a).Name Like "*" Then
ThisWorkbook.Sheets.Delete
Application.DisplayAlerts = False
ThisWorkbook.Sheets.Delete 'b=b-1
Application.DisplayAlerts = True
End If
Next a
Gruß Timmy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Loeschen() Dim Blatt As Worksheet Dim i As Integer Dim Monat As String For Each Blatt In ActiveWorkbook.Sheets For i = 0 To 11 Monat = Format(DateAdd("m", i, "01.01.2004"), "mmmm", vbMonday, vbUseSystem) If InStr(1, Blatt.Name, Monat, vbTextCompare) = 0 Then Else Application.DisplayAlerts = False 'Schaltet die Fehlermeldung beim Löschen aus!!! Blatt.Delete Application.DisplayAlerts = True End If Next Next End Sub

Hi Timmy,
sorry - ich war in einer Besprechung :o(
Ja ich hatte die For-Schleife falsch benutzt!


Sub Loeschen()
Dim Blatt As Worksheet
Dim i As Integer
Dim Monat As String
Dim Geloescht As Boolean
For Each Blatt In ActiveWorkbook.Sheets
i = 0
Geloescht = False
Do
Monat = Format(DateAdd("m", i, "01.01.2004"), "mmmm", vbMonday, vbUseSystem)
If InStr(1, Blatt.Name, Monat, vbTextCompare) = 0 Then
Else
Application.DisplayAlerts = False   'Schaltet die Fehlermeldung beim Löschen aus!!!
Blatt.Delete
Application.DisplayAlerts = True
End If
i = i + 1
Loop Until i = 12 Or Geloescht = True
Next
End Sub

Wenn das Blatt gelöscht wurden, kann ich nicht mehr den Namen abfragen, daher statt der For-Schleife, die Do-Loop-Schleife
So ich mach erstmal Mittag, schreib mal bitte ob´s jetzt funktioniert!
Gruss Chris

Beliebteste Forumthreads (12 Monate)

Blätter löschen wenn Name = monat

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blätter löschen wenn Name = monat

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread