Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur leere Tabellen löschen

Nur leere Tabellen löschen
29.08.2004 13:39:23
Jochen
Hallo an alle,
wie kann ich alle Tabellen löschen, die leer sind. Dabei sollen nicht nur
Zellen sondern auch Grafikobjekte berücksichtigt werden. Finde da keinen
Ansatz, wie ich das abfragen kann.
Schönen Sonntag Jochen

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

Betreff
Datum
Anwender
Anzeige
AW: Nur leere Tabellen löschen
Franz
Hallo Jochen,
probier mal das:

Sub DelEmptyTabs()
Dim lngCounter    As Long
Dim wks           As Worksheet
Application.DisplayAlerts = False
For Each wks In ActiveWorkbook.Worksheets
With wks
lngCounter = 0
On Error Resume Next
lngCounter = .Cells.SpecialCells(xlCellTypeConstants).Count
lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeAllFormatConditions).Count
lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeAllValidation).Count
lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeComments).Count
lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeConstants).Count
lngCounter = lngCounter + .Cells.SpecialCells(xlCellTypeFormulas).Count
lngCounter = lngCounter + .OLEObjects.Count
lngCounter = lngCounter + .Shapes.Count
If lngCounter = 0 Then .Delete
End With
Next
Application.DisplayAlerts = True
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
AW: Nur leere Tabellen löschen
Jochen
Hallo Franz,
das ist schon ganz gut, leider werden mir auch Blätter gelöscht, wo die Zellen keine
Inhalte haben aber Rahmen. Geht das auch noch irgendwie zu machen?
Gruß Jochen

227 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
drucken-seitenränder
Wolfgang

Guten morgen
mein problem
ich habe die seitenränder auf 1.5 eingestellt, die tabelle passt dann auf eine seite
die datei wird dann per vba(dank eurer hilfe) gespeichert.
rufe ich sie dann auf sind die seitenränder wieder auf der grundeinstellung
und dann passt die tabelle...
27.09.2008 09:32:05
Thread-ID: 1012784
4 Beiträge
Diagramm über mehrere Seiten drucken
Heiko

Hallo,
ich möchte ein großes Diagramm (ca. 1.000 Säulen) über mehrere Seiten ausdrucken ohne mehrere Einzeldiagramme daraus zu machen.
Hat jemand einen Tip?
Danke
Heiko
16.10.2008 11:37:00
Thread-ID: 1016806
3 Beiträge
Anzeige
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
Schmale Spalten nebeneinander drucken
Bernhard

Hallo,
ich möchte eine lange schmale 2-spaltige Tabelle ausdrucken, so dass die Spalten nebeneinander erscheinen.
Dazu möchte ich das Makro : https://www.herber.de/cgi-bin/callsmpl.pl?Datei=053499h.htm
verwenden.
Leider werden meine schmale Spalten auf ein Standardmass verbreite...
25.05.2009 21:06:20
Thread-ID: 1077224
3 Beiträge
zwei Diagramme auf eine Seite drucken, ohne Tabell
Christian

Hallo Forum,
ich möchte zwei Diagramme auf einer A4 Seite ausdrucken, ohne die Zellen im Hintergrund mitzudrucken.
Dazu wähle ich die beiden Diagramme, klicke auf "Drucken", aber es werden immer die Zellen die neben den Diagrammen vorgucken mit ausgedruckt. Wenn ich nur ein Diagramm wäh...
14.07.2009 09:59:49
Thread-ID: 1088376
5 Beiträge
Genau 10 Seiten mit 52 Zeilen drucken
Klaus

https://www.herber.de/bbs/user/63555.xls
Hallo Forum,
bin am verzweifeln. Ich hatte die Frage schon vor ein paar Tagen gestellt und auch
eine Antwort erhalten, es will aber einfach nicht klappen:
Es geht "nur" darum, einen bestimmten Bereich auf genau 10 Seiten A4 zu drucken.
01.08.2009 11:41:31
Thread-ID: 1092776
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
2
3
3
3
2
4
8
8
3
3
4
2
1
4
5
2
1
3
4
4
1
1