Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

blatt löschen wenn zelle leer

blatt löschen wenn zelle leer
09.04.2003 12:05:00
henning
hi leute

ich habe folgendes sub (auszug)

For Each blatt In ActiveWorkbook.Worksheets
wert = blatt.[B13]
If wert = 0 Then ActiveWorkbook.ActiveSheet.Delete
Next blatt

ich will das blatt löschen wo der zellwert 0 ist. aber es sieht so aus als würde er mir in der prozedur die blätter die er durch geht nicht aktivieren.

wie kann ich nun genau dieses blatt löschen wenn der wert 0 ist?


merci


henning

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: blatt löschen wenn zelle leer
09.04.2003 12:13:21
Martin Beck

Hallo Henning,

versuch mal (ungetestet)

For i = ActiveWorkbook.Worksheets.Count to 1 Step -1
wert = Worksheets(i).[B13]
If wert = 0 Then ActiveWorkbook.Worksheets(i).Delete
Next i

Gruß
Martin Beck


Re: blatt löschen wenn zelle leer
09.04.2003 12:37:46
Andreas S

Hallo,

versuch's mal so

Dim Blatt As Worksheet

For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Range("B13") = 0 Then Blatt.Delete
Next

Gruss
Andreas

Re: blatt löschen wenn zelle leer
09.04.2003 13:11:27
henning

merci martin so gehts...

henning

Anzeige

346 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige