Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-2, 0) + 1 Or ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-2, 0) - 1 Then
MsgBox "Abstand ""1"" von Zeile " & ActiveCell.Offset(-2, 0).Row & " zu " & ActiveCell.Offset(-1, 0).Row
End If
End Sub
angezeigt werden.
Gruß, Heinz
makro "automatischer_eintrag" in modul (so wie dein vielleicht bestehendes makro)
Sub automatischer_eintrag()
Dim i As Integer
For i = 1 To 20
Cells(i, 1).Activate
ActiveCell = i
Next i
End Sub
sowie "hinter" der entsprechenden tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row > 2 Then
If ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-2, 0) + 1 Or ActiveCell.Offset(-1, 0).Value = ActiveCell.Offset(-2, 0) - 1 Then
MsgBox "Abstand ""1"" von Zeile " & ActiveCell.Offset(-2, 0).Row & " zu " & ActiveCell.Offset(-1, 0).Row
End If
End If
End Sub