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
If Worksheetfunction.CountA(Sheets("Tabelle1").Range("A4:Q4")) = 0 Then
msgbox "Achtung, Leerzeilen vorhanden"
Else
hier der weiter Code
End if
Gruß Daniel 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 UweDDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen