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
Blau Tabellenblätter erstellen
 02.08.2016 11:13:32 SJ
NotSolved
02.08.2016 12:47:32 Tobias
NotSolved
02.08.2016 13:14:08 SJ
NotSolved
02.08.2016 13:14:17 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
02.08.2016 11:13:32		 Views:
671		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter erstellen

Versuche es bitte mal hiermit:

Option Explicit

Public Sub delete_empty_sheets()
    Dim wks As Worksheet
    Dim r As Range
     
    Application.DisplayAlerts = False
    For Each wks In ActiveWorkbook.Worksheets
        If ActiveWorkbook.Worksheets.Count > 1 Then
            Set r = wks.UsedRange
            If r Is Nothing Then
                wks.Delete
            End If
            Set r = Nothing
        End If
    Next wks
    Application.DisplayAlerts = True
End Sub

Gruß

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
Blau Tabellenblätter erstellen
 02.08.2016 11:13:32 SJ
NotSolved
02.08.2016 12:47:32 Tobias
NotSolved
02.08.2016 13:14:08 SJ
NotSolved
02.08.2016 13:14:17 SJ
NotSolved