Lege tabbladen zoeken en verwijderen.

[kabebanaan]

Hoe kan ik in Visual Basic lege tabbladen verwijderen?
Er moet in het werkblad gezocht worden naar lege tabbladen en alleen deze dienen gewist te worden.

 

[Justes]

Hoe kan ik in Visual Basic lege tabbladen verwijderen?
Er moet in het werkblad gezocht worden naar lege tabbladen en alleen deze dienen gewist te worden.

Hallo Karel,

Ik denk dat je bedoeld, Er moet in het bestand gezocht worden naar lege tabbladen en deze moeten verwijderd worden.

Gr Justes

 

[kabebanaan]

Is dit niet hetzelfde dan?

 

[Justes]

Is dit niet hetzelfde dan?

Lijkt mij niet.

 

[kabebanaan]

Lijkt mij niet.

Leg eens uit als je wilt ?

 

[Justes]

Leg eens uit als je wilt ?

Het lijkt mij dat er verschil zit tussen verwijderen en wissen.

 

[kabebanaan]

Aha nu zie ik 't.
Ik dacht dat je "Werkblad" en bestand als iets anders zag.

Je je hebt gelijk ..... ze dienen verwijderd te worden.

 

[Justes]

Hallo Karel,

Dit is wat ik er van kan maken, of er ook gezocht kan worden naar lege bladen? ik denk het niet.

Gr Justes

 

[kabebanaan]

Nee helaas, dit is niet echt waar ik naar op zoek ben.

 

[LucB]

Hallo Karel,

Probeer deze eens.
Grafieken worden gespaard.

Option Explicit
'Code van md mackillop http://www.vbaexpress.com
Sub DeleteLegeBladen()
Dim sh As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo Exits:
For Each sh In Sheets
If Not IsChart(sh) Then
If Application.WorksheetFunction.CountA(sh.Cells) = 0 Then sh.Delete
End If
Next sh
Exits:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Public Function IsChart(sh) As Boolean
Dim tmpChart As Chart
On Error Resume Next
Set tmpChart = Charts(sh.Name)
IsChart = IIf(tmpChart Is Nothing, False, True)
End Function

 

[kabebanaan]

Dankjewel Luc, heb 't getest en werkt goed.