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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen