Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

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