Datensatz nach der letzten Zeile einfügen
01.02.2016 14:32:05
Andrea
ich kann mittels diesem nachfolgend Code einen Datensatz einfügen an der Position der aktiven Zelle, wenn diese Zelle innerhalb der Grenzen Anfang und Ende ist.
Wie muss man den Code anpassen, sodass immer nach der letzten beschriebenen Zelle der Datensatz eingefügt wird?
Public Sub DatensatzEinfügen()
Dim lngRow5 As Long, lngRow6 As Long
Dim ws As Worksheet, wsV As Worksheet, z%
If TypeOf Selection Is Range Then
Set ws = ActiveSheet
Set wsV = ThisWorkbook.Worksheets("Datensatz")
lngRow5 = ThisWorkbook.Names("Anfang").RefersToRange.Row
lngRow6 = ThisWorkbook.Names("Ende").RefersToRange.Row
Selection.Cells(1, 1).Select
Application.EnableEvents = False
If Selection.Row > lngRow5 And Selection.Row