Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1556to1560
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
Inhaltsverzeichnis

Neu eingefügte Zeilen erkennen

Neu eingefügte Zeilen erkennen
04.05.2017 15:34:48
Andreas
Hallo zusammen,
wie ist es möglich neu eingefügte Zeilen zu erkennen und zu markieren?
Ich kann eine neue Zeile erkennen und markieren (s. Coding), aber was ist beim Einfügen eines Blocks von Zeilen? Geht das?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Target.EntireRow.Address Then
If WorksheetFunction.CountA(Target) = 0 Then
Cells(Target.Row, "H").Value = "X"
End If
End If
End Sub
Bin für jede Hilfe dankbar.
Grüße
Andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neu eingefügte Zeilen erkennen
04.05.2017 16:56:18
UweD
HAllo
so?
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Z
    On Error GoTo Fehler
    If Target.Address = Target.EntireRow.Address Then
        For Each Z In Target.Rows
            If WorksheetFunction.CountA(Z.EntireRow) = 0 Then
                Application.EnableEvents = False
                Cells(Z.Row, "H").Value = "X"
                Application.EnableEvents = True
            End If
        Next
    End If
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige