Makro "enter" zuweisen

[martin28]

Hallo Community,

ich bin nicht so fit in VBA und Excel. Ich habe folgenden Code:

Sub aktuelleReihe_nachUntenKopieren()
    With Selection.Cells(1, 1).EntireRow
        .Copy
        .Offset(2).Insert Shift:=xlDown
    End With
    Application.CutCopyMode = False
End Sub

Dieser soll die letzte verwendete Zeile kopieren und darunter eine neue einfügen. Das Problem hierbei ist das die Zeile samt Inhalt kopiert wird, was ich nicht möchte. Es soll nur die Zeile kopiert werden. Des Weiteren soll dieser Vorgang(zeile kopieren und drunter wieder einfügen) automatisch stattfinden, wenn ich in der zeile etwas eintippe und mit enter bestätige. Zuletzt soll eine logische Nummerierung der Zeilen automatisch stattfinden. Vielen Dank schonmal für eure Hilfe.

Gruß

[chris-ka]

Hi,

Wozu soll das nötig sein?

und

wenn ich in der zeile etwas eintippe und mit enter bestätige.

egal wo in der Zeile?, bei jeder Zelle in jeder Zeile?

 Es soll nur die Zeile kopiert werden

Was nun, nur mit dem Format oder gibt es da auch Formeln?
Reicht nicht einfach eine intelligente Tabelle?

Zuletzt soll eine logische Nummerierung der Zeilen automatisch stattfinden

Wo? in Spalte A oder....was ist die logische Nummerierung, klassisches 1,2,3 ? oder auch das wäre eine logische Nummerierung 1, 1.1, 2, 2.1, 2.2 oder 2016/01, 2016/02 usw...
Ich kann auch keine Beispielmappe von Dir erkennen!

[Rabe]

Hi Martin,

quote='martin28' pid='46426' dateline='1468340288']Das Problem hierbei ist das die Zeile samt Inhalt kopiert wird, was ich nicht möchte.[/quote]

Dann lösche halt per Makro die Inhalte der eingefügten Zeile

Code:

   Range("A15:K15").ClearContents

oder

Code:

    Selection.EntireRow.ClearContents