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

VBA Tabelle komplett leer?

Forumthread: VBA Tabelle komplett leer?

VBA Tabelle komplett leer?
10.12.2021 17:39:27
W
Hallo Forum,
wie kann ich feststellen, ob eine Tabelle vollkommen leer ist?
Auch bei einer leeren Tabelle liefern folgende Befehle jeweils den Wert 1,
Debug.Print ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Debug.Print ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Wenn in Zelle(1,1) etwas eingetragen ist, wird ebenfalls jeweils der Wert 1 angezeigt.
Wer kann helfen?
Gruß Werner
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Tabelle komplett leer?
10.12.2021 18:10:19
Yal
Moin Werner,
UsedRange hat manchmal seine Tücken. Man muss es "ausschüteln", um sicherzustellen, dass es aktuell ist.
Das geht u.a. durch die Erneuerung der Zeilenhöhe.
Dann kann man die Adresse von UsedRange abfragen. Bei leer ist es $A$1.
Dann prüft man, ob A1 leer ist:

Sub IstLeer()
Me.UsedRange.RowHeight = Me.Rows(1).RowHeight
If Me.UsedRange.Address = "$A$1" And IsEmpty(Range("A1")) Then MsgBox "ganz schön leer hier!"
End Sub
Residuelle Gestaltung, wie Farbe in einer Zelle, stört natürlich den UsedRange.
Dann muss man vielleicht auf die Zähhlung der Konstanten und Formeln weichen:

Sub NichtLeerezellen_zählen()
Dim hatKonstante As Boolean
Dim hatFormeln As Boolean
On Error Resume Next
hatKonstante = CBool(Me.Cells.SpecialCells(xlCellTypeConstants, 23).Count)
hatFormeln = CBool(Me.Cells.SpecialCells(xlCellTypeFormulas, 23).Count)
MsgBox "die Tabelle ist " & IIf(hatFormeln Or hatKonstante, "befüllt", "leer")
End Sub
VG
Yal
Anzeige
AW: VBA Tabelle komplett leer?
11.12.2021 07:40:45
Sulprobil
If Application.WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
AW: VBA Tabelle komplett leer?
11.12.2021 07:47:17
W
Hallo Sulprobil.
Danke. Funktioniert. Problem gelöst.
Gruß Werner
;

Forumthreads zu verwandten Themen

Pivot VBA Tabellenblatt löschen
murat

Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click() Dim letzteZelle As Long letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _ After:=[A1], SearchDirection:=...
24.01.2010 21:10:25
Thread-ID: 1132506
5 Beiträge
VBA Tabelle in Kombi-Feld
Markus

Hallo,
ich möchte eine Tabelle in einem Komifeld bearbeiten können. Es geht um eine große Datei mit vielen Tabellen. Ich möchte eine Seite mit einem "Kommandostand" erstellen in der ich die Daten der wichtigsten Einstellungen ändern kann.
Danke für Eure Hilfe
Markus
02.12.2010 10:19:43
Thread-ID: 1189682
11 Beiträge
Anzeige
VBA Tabellenblätter umbennenen
Matthias

Hallo Experten,
Gibt es einen VBA Code wo ich Tabellenblätter umbennen kann. Hab etwa 30 Tabellenblätter wo ich immer händisch umbennen muss.
Gruss
Matthias
30.06.2011 08:29:10
Thread-ID: 1220255
10 Beiträge
Anzeige
VBA Tabellenblätter
Peter

Hallo,
ich habe ein Makro erstellt, mit dem u.a. ein neues Tabellenblatt eingefügt und wieder auf ein bestehendes Tabellenblatt gewechselt wird.
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Tabelle5").Select
Sheets("Tabelle5").Name = "Differenzen"
Sheets("FF-5 55585 Schwer...
19.02.2014 13:40:08
Thread-ID: 1350366
3 Beiträge
VBA Tabellenblätter ein/ausbelnden bei Multiseiten
david.a2k

Hallo,
ich habe ein VBA Formular mit Multiseiten.
Ich hätte gerne, dass sich beim Wecheln der Multiseiten, Tabellenblätter ein bzw. ausblenden.
Wie mache ich das?
Danke und Gruß
17.07.2014 10:43:03
Thread-ID: 1370843
4 Beiträge
VBA Tabellenblatt erkennen und kopieren
Tanja
Hallo Zusammen,
für mich das erste Mal in einem Forum zu schreiben, normal lese ich immer nur und ich tue mein Bestes mein Problem richtig zu erklären ;-)
Ich habe eine Datei, deren erstes Tabellenblatt aus mehreren Hundert Zeilen besteht. Jede Zeile gehört zu einem bestimmten Teilkonzern v...
06.10.2014 18:12:30
Thread-ID: 1385152
6 Beiträge
Anzeige
VBA Tabelle definieren
Michel

Hallo zusammen
Ich hätte gerne im folgendem Excel file einen Button, wenn ich diesen drücke, sollte ich die Möglichkeit haben die Anzahl Mitarbeiter einzugeben.
Anschließend sollte es die Tabelle A2-BH12 (inkl. den Formeln ab Spalte BD),die Grafik und der Range im vorhandenen Makro erwe...
21.10.2014 09:00:01
Thread-ID: 1387690
2 Beiträge
VBA Tabelle
Annika

Hallo,
habe leider keine Ahnung von VBA (weiß nur wie ich einen Code eingebe) und mein Chef möchte ich eine Tabelle mit bestimmten Funktionen, jetzt sitz ich da...
Vielleicht kann mir hier ja jemand helfen.
Kurze Erklärung:
Ich habe eine Tabelle mit den Spalten A-F
1. In Spa...
12.02.2015 16:02:59
Thread-ID: 1409100
6 Beiträge
Anzeige
VBA Tabelle bei speichern
Traise

Wie mache ich, dass ich 13 Tabelle habe.
Und ich möchte, dass igal bei welche Tabelle ich speichere,wird bei starten nur Tabelle2 geöffnet,mit VBA code.
Danke!
29.07.2002 15:31:31
Thread-ID: 142075
2 Beiträge
VBA Tabelle filtern
Bettina

Hallo zusammen,
ich hoffe Ihr könnte mir weiterhelfen.
Zur Problemstellung:
In der Tabelle "Daten" werden per Userform unterschiedliche Daten eingegeben.
z.B. In Spalte B stehen Fabrikate, in Spalte C Modell, in Spalte D Größe usw.
Nun möchte ich, dass über ein weiteres User...
08.07.2015 12:27:07
Thread-ID: 1435253
2 Beiträge
vba Tabelle aus importierten csv file
Ralf

Guten Tag zusammen
Ich möchte gerne mit Hilfe von vba mehrere csv files in mein excel einlesen und diese dann in eine Tabelle umwandeln. Ich möchte die eingelesenen Daten in eine Tabelle umwandeln da ich da in weiteren Excelfunktionen nicht mehr Mappenname und Celle zB. Mappe1 A1 eingeben m...
13.07.2015 00:45:34
Thread-ID: 1435982
2 Beiträge
VBA Tabellenblatt Name
Roffel89

Hallo,
ich habe meine Arbeitsmappe mal hochgeladen.
https://www.herber.de/bbs/user/100211.xlsm
Ich will das der Benutzer in dem gelb markierten Feld den Name seines erstellten Tabellenblatt eingibt und mein VBA Code dann weiß welches Tabellenblatt es benutzen muss.
Mein Code be...
16.09.2015 10:45:01
Thread-ID: 1447708
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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