Neu eingefügte Zeilen erkennen
09.05.2017 10:34:21
Andreas
ich bin auf der Suche nach einer Lösung...
Folgendes Coding habe ich von UweD erhalten, danke schon einmal dafür!
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
Kennt jemand eine Lösung für dieses Problem?
Grüße
Andreas