Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeilen erkennen und msg als HInweis

Leerzeilen erkennen und msg als HInweis
17.06.2019 11:20:27
Alexander

Hallo ich möchte gerne leere Zeilen erkennen zwischen Kopfzeile und dem ersten Eintrag.
Es sollte dann eine Messagebox auslösen mit dem Hinweis.
https://www.herber.de/bbs/user/130436.xlsm
Anbei die Beispieldatei mit Info
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen erkennen und msg als HInweis
17.06.2019 11:27:16
Daniel
Hi
du musst doch nur abfragen, ob die Zeile direkt unter der Überschriftenzeile leer ist:
If Worksheetfunction.CountA(Sheets("Tabelle1").Range("A4:Q4")) = 0 Then
msgbox "Achtung, Leerzeilen vorhanden"
Else
hier der weiter Code
End if
Gruß Daniel
Anzeige
AW: Leerzeilen erkennen und msg als HInweis
17.06.2019 12:07:53
UweD
Hallo
bau das an der entsprechenden Stelle ein
    Dim Üb, RNG
    
    '****Leerzeilen prüfen 
    Set wksZ = Worksheets("Tabelle1")
    Üb = 3
    With wksZ
        ZeiZ = .Cells(.Rows.Count, 1).End(xlUp).Row 'Letzte Zeile 
        If ZeiZ <> Üb + 1 Then
            'nur wenn letzte Spalte NICHT direkt unter Überschrift liegt 
            SpaZ = .Cells(Üb, .Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
            
            'Formel in temporäre Spalte 
            Set RNG = .Cells(Üb + 1, SpaZ + 1).Resize(ZeiZ - Üb - 1, 1)
            RNG.FormulaR1C1 = "=COUNTA(RC1:RC17)"
            
            If WorksheetFunction.CountIf(RNG, "<>0") <> RNG.Count Then
                MsgBox "LeerZeilen vorhanden"
            End If
            'Formeln wieder löschen 
            .Columns(SpaZ + 1).Clear
        End If
    End With
    '**** 
LG UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige