Thema Datum  Von Nutzer Rating
Antwort
01.08.2016 13:33:20 Tobias
NotSolved
01.08.2016 13:56:00 sunset18
NotSolved
02.08.2016 08:16:43 Tobias
NotSolved
02.08.2016 08:34:36 SJ
NotSolved
02.08.2016 08:56:09 Tobias
NotSolved
02.08.2016 09:03:50 Tobias
NotSolved
02.08.2016 10:03:26 SJ
NotSolved
02.08.2016 10:04:16 SJ
NotSolved
02.08.2016 10:33:14 Tobias
NotSolved
02.08.2016 10:36:07 SJ
NotSolved
02.08.2016 11:03:23 Tobias
NotSolved
02.08.2016 11:13:32 SJ
NotSolved
02.08.2016 12:47:32 Tobias
NotSolved
02.08.2016 13:14:08 SJ
NotSolved
Rot Rot Tabellenblätter erstellen
 02.08.2016 13:14:17 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
02.08.2016 13:14:17		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter erstellen

Dann doch etwas komplexer:

Option Explicit

Public Sub delete_empty_sheets()
    Dim wks As Worksheet
    Dim i As Integer
    
    If ActiveWorkbook.Worksheets.Count = 1 Then
        Exit Sub
    End If
    
    For i = ActiveWorkbook.Worksheets.Count To 2 Step -1
        Set wks = Worksheets(i)
        If is_empty(wks) Then
            Application.DisplayAlerts = False
            wks.Delete
            Application.DisplayAlerts = True
        End If
        Set wks = Nothing
    Next i
End Sub

Private Function is_empty(ByRef wks As Worksheet) As Boolean
    is_empty = True
    Dim rng As Range
    Dim c As Object
    
    For Each c In wks.UsedRange.Cells
        If c.Value <> vbNullString Then
            is_empty = False
            Exit For
        End If
    Next
End Function

Feedback erwünscht :)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
01.08.2016 13:33:20 Tobias
NotSolved
01.08.2016 13:56:00 sunset18
NotSolved
02.08.2016 08:16:43 Tobias
NotSolved
02.08.2016 08:34:36 SJ
NotSolved
02.08.2016 08:56:09 Tobias
NotSolved
02.08.2016 09:03:50 Tobias
NotSolved
02.08.2016 10:03:26 SJ
NotSolved
02.08.2016 10:04:16 SJ
NotSolved
02.08.2016 10:33:14 Tobias
NotSolved
02.08.2016 10:36:07 SJ
NotSolved
02.08.2016 11:03:23 Tobias
NotSolved
02.08.2016 11:13:32 SJ
NotSolved
02.08.2016 12:47:32 Tobias
NotSolved
02.08.2016 13:14:08 SJ
NotSolved
Rot Rot Tabellenblätter erstellen
 02.08.2016 13:14:17 SJ
NotSolved