Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: löschen wenn Wort enthalten

löschen wenn Wort enthalten
13.02.2008 12:20:58
FM
Hallo,
folgendes Problem habe ich. Ich habe ein größeres Skript bei dem mit der Zeit eine Backup Tabellenblätter entstehen werden. Diese möchte ich nun löschen. Die Namen der Backup Tabellenblätter sind immer:
"Backup" & " " & Format(Date, "dd.mm.yy") & ", " & Format(Time, "hh.mm")
sprich immer einzigartig. Nun würde ich gerne DIE Blätter löschen die den Namen "Backup" am Anfang enthalten...
Sub deleteBU()
Application.DisplayAlerts = False
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count Step 1
If Sheets(i).Name = "Backup" Then ' und hier bräuchte ich einen Platzhalter, damit egal ist was danach noch kommt...
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
Danke im voraus
FM

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: löschen wenn Wort enthalten
13.02.2008 12:54:00
Specke
Hallo FM,
mit
If Sheets(i).Name Like "Backup*"
sollte es funktionieren.
Gruß Specke

AW: löschen wenn Wort enthalten
13.02.2008 12:56:39
Rudi
Hallo,
Application.displayalerts=false
for each wks in ActiveWorkbook.Worksheets
if wks.name like "Backup*" then wks.delete
next
Application.displayalerts=true
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: löschen wenn Wort enthalten
Ralf
Hi FM
so sollte es gehen:

Sub deleteBU()
Application.DisplayAlerts = False
Dim i As Integer
Dim Tabname As String
For i = 1 To ActiveWorkbook.Sheets.Count Step 1
Tabname = Sheets(i).Name
If InStr(1, Tabname, "Backup") > 0 Then ' und hier bräuchte ich einen Platzhalter, damit  _
egal ist was danach noch kommt...
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub


Gruß
Ralf
www.joomlaworker.de

Anzeige
FALSCH!!!
13.02.2008 13:39:00
Rudi
Hallo,
das läuft auf einen Fehler!
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige