Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

76 Forumthreads zu ähnlichen 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
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
VBA Tabellenblatt, (Registerblatt) öffnen
Sonja

Hallo
Ich möchte mit einem VBA Code ein Tabellenblatt (Registerblatt) öffnen (Select, activate?)
Das Tabellenblatt welches ich öffnen möchte steht in "Hilfstabelle" Spalte "B4"
Wie kann ich das per VBA Code umsetzen?
Habe schon hier im Forum gestöbert, die Suche brachte nicht da...
15.09.2011 09:48:07
Thread-ID: 1229951
5 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
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

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
4
10
9
4
2
2
3
5
1
5
1
2
1
1
8
1
3
3
3
2
9
4
1
5
3