title image


Smiley Re: Warum erst selektieren?
Hi,



dann so:







Sub Galila()

Dim ws As Worksheet, Blaetter()

For Each ws In ThisWorkbook.Worksheets

    If Left(ws.Name, 3) = "Tab" Then

        ReDim Preserve Blaetter(i)

        Blaetter(i) = ws.Name

        i = i + 1

    End If

Next

If Not i = 0 Then

    Sheets(Blaetter).Select

    Application.DisplayAlerts = False

    Sheets(Blaetter).Delete

    Application.DisplayAlerts = True

End If

End Sub





Code eingefügt mit Syntaxhighlighter 4.0






Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: