Suche letzte ausgefüllte Zeile und führe aus

Sub Nummern_in_A

    If ActiveSheet.Name = "Bearbeiten" Then

        

          

            ' Hier Makro für die Suche nach der letzten ausgefüllten Zeile, wo die Zellen A ; C ; F und L  

             'befüllt sind, also nicht leer sind

             ' dann im Makro unten weiter



    With 

        Range(Cells(ber.Row, "A"), Cells(lz + i, "A"))

        .FormulaR1C1 = "=R[-1]C+1"

        .Formula = .Value 

    End With



              ' dies nur wenn falsches Tabellenblatt

     Else

         MsgBox "keine Ausführung möglich"

     End If 

End Sub