Sub Zahlen_fortlaufend()
Application.ScreenUpdating = False
Range("A5").FormulaR1C1 = "=IF(RC[1]="""","""",1)"
Range("A6:A10000").FormulaR1C1 = "=IF(RC[1]="""","""",R[-1]C+1)"
Range("A5:A10000") = Range("A5:A10000").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
Dim lngLastRow As Long
If Target.Column = 2 Then
lngRow = Target.Row
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
If lngRow > 5 And lngRow > lngLastRow Then
Cells(lngRow, 1) = lngLastRow + 1
End If
End If
End Sub
Gruß
Sub lfd()
With Range(Cells(5, 1), Cells(Rows.Count, 2).End(xlUp).Offset(, -1))
.FormulaR1C1 = "=Row()-4"
.Value = .Value
End With
End Sub
Gruß
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
Dim lngLastRow As Long
If Target.Column = 16 Then
lngRow = Target.Row
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
If lngRow > 5 Then
If lngRow = 6 Then
Cells(lngRow, 1) = 1
Else
Cells(lngRow, 1) = Cells(lngLastRow, 1) + 1
End If
End If
End If
End Sub
Gruß
Sub lfd()
With Range(Cells(5, 1), Cells(Rows.Count, 16).End(xlUp).Offset(, -15))
.FormulaR1C1 = "=Row()-4"
.Value = .Value
End With
End Sub