Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur leere Tabellen löschen

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten 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
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
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
Auf eine Seite drucken
Arnold

Hallo,
ich habe folgendes Problem:
Ich habe ein Tabellenblatt erstellt und will dieses über einen button ausdrucken.
Den Druckbereich habe ich wie folge definiert:
Private Sub CommandButton1_Click() Range("F9:P31").PrintPreview End Sub
Jetzt druckt er aber auf zwei Blätte...
29.11.2008 14:11:00
Thread-ID: 1028834
4 Beiträge
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
Seite skalieren auf 1 Seite (inkl. Diagramm)
MikeM

Hallo zusammen,
Ich hoffe, ihr könnt mir bei meinem kleinen Problem weiterhelfen. ich bekomme es einfach nicht hin.
Ich habe eine Tabelle und drunter ein Diagramm. Nun möchte ich das auf 1 Seite drucken.
Seite einrichten - auf 1 Seite anpassen funktioniert zwar, allerdings wird das...
04.12.2009 08:37:35
Thread-ID: 1121745
4 Beiträge
Spalteninhalte vergleichen über zwei Tabellen
Constantin

Hallo,
ich möchte bzw. muss zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe zeilenweise und dann Spalte für Spalte vergleichen. Spalte 3 enthält jeweils einen eindeutigen Schlüssel (Nr.).
Mir wäre schon sehr geholfen, wenn ich wüsste, wie man eine größere Anzahl von Spalten...
14.01.2010 23:03:17
Thread-ID: 1130094
5 Beiträge
Tabellen zusammenführen nach zwei spalten
Reptil

hallo zusammen
Ich habe gerade folgendes Problem. ich habe zwei tabellen (dateien), in denen personendaten gespeichert sind. in tabelle 1 stehen kontaktdaten, in tabelle 2 "administrative" daten. nun möchte cih die spalte a von tabelle 2 den passenden datensätzen von tabelle 1 anfügen. einz...
29.11.2010 14:25:42
Thread-ID: 1189224
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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