Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

leere Tabellenblätter löschen

Forumthread: leere Tabellenblätter löschen

leere Tabellenblätter löschen
Stefan
Hallo nochmal,
kennt jemand den Code um alle leeren Tabellenblätter zu löschen ?
:-)
Gruß
Stefan
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: leere Tabellenblätter löschen
20.08.2010 12:51:12
Rudi
Hallo, 
Sub ttt()
Dim wks As Worksheet
For Each wks In Worksheets
If Application.CountA(wks.Cells) = 0 And Worksheets.Count > 1 Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
End Sub

Geprüft werden aber nur Zellen.
Gruß
Rudi
Anzeige
AW: leere Tabellenblätter löschen
20.08.2010 12:54:36
Stefan
DANKE !!!!!
:-)
Stefan
;

Forumthreads zu verwandten Themen

Makro zum einfügen von Seiten und löschen
Seiten

Hallo liebe Excel Spezialisten,
ich habe in meiner Arbeitsmappe Makros, die eigentlich sehr gut funktionieren. Aber ein paar Kleinigkeiten müßten dennoch angepasst werden.
Als erstes die Makros, werden mit STRG+Y im Arbeitsblatt "Wochenverkauf" aktiviert.
Also wenn ich in Wochenverk...
18.04.2016 17:01:27
Thread-ID: 1488736
3 Beiträge
Anzeige
Zu viele Seiten beim Drucken
Fingayn

Hallo Leute,
Ich habe ein Problem...
Ich habe mir (unter anderem mit der Hilfe vieler toller Beiträge aus diesem Forum) einen Code gebastelt. Er formatiert eine Excel-Tabelle um und legt Druckbereich und -layout fest. Soweit funktioniert auch alles ganz gut, nur wenn ich dann drucken wi...
03.08.2016 14:42:27
Thread-ID: 1507636
9 Beiträge
Löschen von leeren Zeilen in Tabellen
leeren

Hallo zusammen!
Ich habe folgendes Problem ich habe ein Excel-Sheet, dass 3 Tabellen enthält die untereinander mit 3 Leerzeilen Abstand stehen. Diese Tabellen werden immer unterschiedlich befüllt. Ich möchte jetzt einen Button haben, der die Leerzeilen in allen 3 Tabellen löscht und gleichz...
03.03.2017 09:32:44
Thread-ID: 1545220
8 Beiträge
Anzeige
Printpreview zeigt zuviele Seiten an
Reinhard

Guten Morgen Wissende,
ich habe folgenden Code entwickelt:
Sub Drucken() Dim Anz As Long, Druck As Range Call Seiten With Worksheets("AssessmentChange") For Anz = 1 To UBound(rngSeite) If Application.WorksheetFunction.CountA(.Range(rngSeite(Anz).Address)) 0 Then Set Druck = Nothing S...
14.04.2008 12:06:00
Thread-ID: 968604
8 Beiträge
Code druckt leere Seiten
Andreas
Hi zusammen,
hab einen Code, mit dem ich gerne entweder 1 oder 2 Seiten drucken möchte.
Die Bedingung dafür steht in Zelle FY7. Wird dort mit der Formel eine 1 ermittelt, soll nur Seite 1 gedruckt werden, bei einer 2 Seite 1 und 2.
Das funktioniert auch - nur ist das Problem, dass immer...
28.04.2022 12:14:43
Thread-ID: 1881337
9 Beiträge
Anzeige
leere blätter nicht drucken
Michael

hallo
bei folgender prozedur werden nur die zeilen einer mehrseitigen tabelle gedruckt, bei denen kein "WAHR" in Spalte I steht. Problem ist nur, dass zwar die zeilen nicht gedruckt werden aber die eventuell vorhandenen Seiten dazwischen, wenn sich dort nicht zu druckende zeilen befinden. I...
04.01.2010 12:43:59
Thread-ID: 1127017
5 Beiträge
Leere Felder nicht mitdrucken
Ringlstetter

Hallo ihr,
ich habe mehrere Arbeitsblätter in einer Arbeitsmappe und möchte am Monatsabschluss alle drucken. Die letzte Zeile ist 73 und genau diese wird auch dringend benötigt, da dies die Summenspalte ist. Allerdings stehen zwischen 1 und 73 auch leere Zeilen - welche das sind, variiert j...
16.11.2010 11:55:59
Thread-ID: 1187072
4 Beiträge
Druck nur einer Seite
chris58

Hallo !
Ich habe diesen Code von Hajo gefunden, der mir einiges an Arbeit abnimmt. Jedoch druckt der Code immer 2 Seiten aus. Ich habe jetzt schon alles mögliche umgestellt und dabei ca. 60 Seiten ausgedruckt, jedoch werden immer noch 2 Seiten ausgedruckt. Welche Veränderungen muß ich vorne...
04.07.2011 16:52:57
Thread-ID: 1220890
6 Beiträge
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 14:21:35
Thread-ID: 1244557
10 Beiträge
Excel Diagramm zeigt leere Spalte als 0 an
Maximilian

Hallo,
ich habe ein kleines Problem
Ich habe ein Excel-Diagramm, zu dem jeden Tag ein neuer Wert hinzugefügt wird:

Problem ist, dass der Wert in der Markierten Zelle als 0 angesehen wird, nicht als leer. Daher erscheint dann in dem Diagramm auch ein Strich auf die x-Achse.
...
05.11.2012 14:56:21
Thread-ID: 1285357
4 Beiträge
Nur eine Seite als PDF in Email anhängen
Robert

Schönen guten Abend zusammen!
Hab folgendes Problem:
Ich hab einen Code, mit dem ich meine Exceldatei als PDF speichere, eine Email erstelle und die PDF anhänge.
Leider wird die PDF immer 3 Seiten lang, also alle 3 Tabellenblätter. Ich möchte aber nur eine _ Seite (Tabelle1). Wie m...
19.12.2014 22:14:05
Thread-ID: 1399125
5 Beiträge
leere Seiten nicht drucken
andreas

Hallo...,mit nachfolgendem Makro drucke ich mir die gefilterten Tabellenblätter aus.------------------------------------------------------
Sub FilternNachKW()
Dim varStartKW, varEndeKW, varFilter As VariantvarStartKW = InputBox("Start KW") 'z.B. 36
varEndeKW = InputBox("Ende KW")...
23.09.2002 16:12:59
Thread-ID: 162812
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige