Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Prüfen ob alle Zellen in Tabellenblatt 2 leer sind

Forumthread: Prüfen ob alle Zellen in Tabellenblatt 2 leer sind

Prüfen ob alle Zellen in Tabellenblatt 2 leer sind
15.06.2007 15: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

Anzeige

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 15: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



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

@Hajo
15.06.2007 16: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 18: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 22: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.
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige