Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
452to456
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
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Tabellenblatt leer ist

Prüfen ob Tabellenblatt leer ist
15.07.2004 07:18:11
Andreas01
Hallo und Guten Morgen,
kennt jemand eine schnelle Methode um zu
prüfen ob ein Tabellenblatt leer ist, also
nicht irgendwo noch Daten herumdümpeln ?
Danke schon mal
Gruss Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Tabellenblatt leer ist
15.07.2004 07:25:15
Thomas
Grüezi Andreas
Du könntest auf einem *anderen* Tabellenblatt die folgende Formel verwenden; ist das Ergebnis 0, dann ist das geprüfte Blatt leer:
=ANZAHL2(Tabelle2!1:65536)
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win XP Pro SP-1 / xl2000 SP-3]
AW: Prüfen ob Tabellenblatt leer ist
WernerB.
Hallo Andreas,
was hiältst Du hiervon?

Sub Andreas()
Dim Adr As String
Adr = "$A$1"
On Error Resume Next
Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column).Address
On Error GoTo 0
If Adr = "$A$1" And Range("A1").Value = "" Then
MsgBox "Blatt ist leer !"
Else
MsgBox "Blatt ist nicht leer !"
End If
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Prüfen ob Tabellenblatt leer ist
Andreas
Hallo Werner,
besten Dank. Das ist genau das was ich suchte.
Ich vergaß dazu zu schreiben das die sache über VB
überprüft werden soll.
Also nochmals allen besten Dank
Andreas
is immer wieder schön hier ne schnelle Antwort zu bekommen.
oder so
IngoG
Hallo Andreas,
was hälst Du von:

Sub aaa()
If IsEmpty(Sheets(1).UsedRange) Then
MsgBox "Tabelle Leer"
Else
MsgBox "Tabelle gefüllt"
End If
End Sub

Gruß Ingo

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige