Tabelle mit Eingabe-Maske

[RPP63]

Moin!
Ins Modul der Tabelle (Rechtsklick auf Tabellenreiter, Code anzeigen)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Address = "$A$1" And .CountLarge = 1 And Len(.Value) Then
    .Rows(1).Insert
    .Offset(-1).Select
  End If
End With
End Sub

Die Eingabezelle A1 musst Du evtl. anpassen.

Gruß Ralf