Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige