Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob alle Zellen in Tabellenblatt 2 leer sind

Prüfen ob alle Zellen in Tabellenblatt 2 leer sind
15.06.2007 13:28:38
Susanne
Hallo,
ich würde gerne mit vba prüfen lassen ob alle Zellen in Tabellenblatt 2 leer sind!
Da ich nicht gerade fit in vba bin hoffe ich dass mir hier jemand helfen kann
Lieben Gruß
Susanne

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob alle Zellen in Tabellenblatt 2 leer sind
15.06.2007 13:39:05
Hajo_Zi
Hallo Susanne,

Option Explicit
Sub Susanne()
If Worksheets("Tabelle2").UsedRange.SpecialCells(xlCellTypeLastCell).Address = "$A$1" _
And Worksheets("Tabelle2").Range("A1") = "" Then
MsgBox "Tabelle2 ist leer"
End If
End Sub



AW: Danke
15.06.2007 13:44:00
Susanne
Hallo Hajo,
vielen Dank für die schnelle Hilfe!
Gruß
Susanne

@Hajo
15.06.2007 14:20:28
Rudi
Hallo,
geht auch kürzer:

Sub tt()
If WorksheetFunction.CountA(Sheets(2).Cells) = 0 Then
MsgBox "Leer"
Else
MsgBox "nicht leer"
End If
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: @Rudi
15.06.2007 16:10:00
Renee
Hello,
Noch kürzer wäre:

Sub xx()
MsgBox IIf(WorksheetFunction.CountA(Sheets(2).Cells) = 0, "Leer", "nicht leer")
End Sub


Greetz Renee

AW: @Rudi
16.06.2007 20:39:01
Rudi
Hallo,
stimmt!
Wobei ich, warum auch immer, mit iif schon Probleme hatte.
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige