Prüfen ob Zellen leer...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sigrid,
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Gruß Hajo

Public Sub alle_Monate_prüfen() Dim i As Variant Dim MappNam As String Dim a% a = Application.WorksheetFunction.CountA([D14:G44]) MappNam = ActiveSheet.Name For i = 1 To 12 Sheets(i).Select If a > 0 Then MsgBox "nicht Leer" Else MsgBox "Leer" Next i Worksheets(MappNam).Select End Sub

Hallo Sigrid
In DieseArbeitsmappe

Private Sub Workbook_Open()
StartRoutine
End Sub

In ein Modul

Sub StartRoutine()
Dim X&, a&
For X = 1 To Worksheets.Count
a = Application.WorksheetFunction.CountA(Worksheets(X).Range("D14:G44"))
If a = 0 Then
With Worksheets(X)
.Activate
.Range("D14").Select
End With
Exit For
Exit Sub
Else
End If
Next
If a > 0 Then MsgBox "alle Tabellen gefüllt"
End Sub

Hier wird über den Index referenziert.
Da spielt der Name des Registerblattes keine Rolle.
Ich ging davon aus das es nur solche Register wie Jan 19, Feb 19, Mrz 19 us.w. gibt.
Ansonsten müsste man etwas modifizieren und bestimmt Register bei der Prüfung ausschließen.
Gruß Matthias

Private Sub Workbook_Open() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If sh.Name Like "? ##" Then If WorksheetFunction.CountA(sh.Range("D14:G44")) = 0 Then sh.Select Exit For End If End If Next End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen ob Zellen leer...

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread