nur Werte berücksichtigen keine Formeln

Sub BlaetterLoeschen() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets With wks Select Case .Name Case "Holzliste", "Zeiten", "Laufkarte" 'do nothing Case Else If Application.WorksheetFunction.CountA(.Range("A7:A31"), .Range("A39:A64")) < 1 Then Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End If End Select End With Next wks End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlaetterLoeschen() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets With wks Select Case .Name Case "Holzliste", "Zeiten", "Laufkarte" 'do nothing Case Else If Application.WorksheetFunction.CountA(.Range("A7:A31").SpecialCells(xlCellTypeConstants, 1), _ .Range("A39:A64").SpecialCells(xlCellTypeConstants, 1)) < 1 Then Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End If End Select End With Next wks End Sub

Sub BlaetterLoeschen() Dim wks As Worksheet, rng As Range, loeschen As Integer For Each wks In ActiveWorkbook.Worksheets With wks Select Case .Name Case "Holzliste", "Zeiten", "Laufkarte" 'do nothing Case Else For Each rng In .Range("A7:A37") 'loeschen erhöhen, wenn Formel oder leer If Not rng.HasFormuula Or rng = "" Then loeschen = loeschen + 1 Next 'rng For Each rng In .Range("A39:A64") 'loeschen erhöhen, wenn Formel oder leer If Not rng.HasFormula Or rng = "" Then loeschen = loeschen + 1 Next 'rng 'Blatt löschen, wenn alle 57 Zellen (A7:A31 und A39:A64) Formeln oder leer If loeschen = 57 Then Application.DisplayAlerts = False .Delete Application.DisplayAlerts = True End If End Select End With Next wks End Sub

Hai Ingolf,
vielen Dank dass Du Dich der Sache so ausgiebig animmst. Leider läuft das makro immer noch nicht durch. Es bleibt in der abgesetzten Zeile stehen (siehe Code)
Danke Gruss volker


Sub BlaetterLoeschen()
Dim wks As Worksheet, rng As Range, loeschen As Integer
For Each wks In ActiveWorkbook.Worksheets
With wks
Select Case .Name
Case "Holzliste", "Zeiten", "Laufkarte"
'do nothing
Case Else
For Each rng In .Range("A7:A37")
'loeschen erhöhen, wenn Formel oder leer
If Not rng.HasFormuula Or rng = "" Then loeschen = loeschen + 1
Next 'rng
For Each rng In .Range("A39:A64")
'loeschen erhöhen, wenn Formel oder leer
If Not rng.HasFormula Or rng = "" Then loeschen = loeschen + 1
Next 'rng
'Blatt löschen, wenn alle 57 Zellen (A7:A31 und A39:A64) Formeln oder leer
If loeschen = 57 Then
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End If
End Select
End With
Next wks
End Sub

Beliebteste Forumthreads (12 Monate)

nur Werte berücksichtigen keine Formeln

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nur Werte berücksichtigen keine Formeln

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread