Hallo zusammen
Ich habe eine Taskliste in der mittels Button eine neue Zeile mit Übernahme der Formatierung, fortlaufender Numerierung und Erstelldatum, erstellt wird.
Leider springt der Cursor nicht in die erste Zelle (Spalte A) der neu generierten Zeile.
Hat jemand eine Idee wie ich den Code ausbauen kann?
Code Neue Zeile generieren:
Sub Neue_Zeile()
With ThisWorkbook.ActiveSheet.ListObjects(1).ListRows.Add
.Range(2).NumberFormat = "0000"
.Range(2).Value = .Index
.Range(14).FormulaArray = "=[@Nr]"
.Range(14).FormulaR1C1 = "=RC[-12]"
.Range(16).Value = Date
End With
End Sub
Besten Dank für eure Unterstützung und einen schönen Sonntag.
Gruss, Taba