Hallo,

ich habe eine Userform mit der ich neue Daten in die Tabelle einpflege. Dies prüft selbstständig über

LR = Sheets("Vorlage_M").Range("A" & Rows.Count).End(xlUp).Row

die letzte Zeile und beschreibt diese genau wie ich möchte 

jetzt würde ich gerne in der Spalte P  ab P20 (P20 = erster Eintrag über Userform) sobald ich über die Useroform einen neuen Eintrag mache eine laufende Nummer mit generiert.

Also bei der ersten Eingabe:

Müller Max 

> nach dem klick auf Speichern in der Userform legt er in A20 bis  O20 alle Daten an die ich in der UF eingegeben habe. zusätzlich soll er jetzt noch in P20 die laufende Nummer 1 generieren.

Wenn ich jetzt den nächsten Datensatz anlege und auf speichern gehe speichert er logischerweise bei A21 bis O21 alle Daten ab soll jetzt aber in P21 die lfd Nummer 2 generieren gibt es da eine Lösung die einfach funktioniert und mit meinm LR funktioniert in dem er immer die letzte Reihe auszählt?

Ich habe es schon einmal mit Range zusammen mit Offset versucht aber das bringt nichts 

LG