Office: neue Zeile automatisch einfügen

Ich habe eine Tabelle und möchte wenn ich die Zelle "D8" etwas einschreibe das die gesamte Zeile 8 kopiert, ohne Zelle "D8" und als Zeile 9 eingefügt wird. Wenn jetzt in Zelle "D9" etwas geschrieben wird dann soll die gesamte Zeile als Zeile 10 eingefügt werden usw.

Danke schonmal

 

Rückfragen zum Ablauf:
1. ich nehme an, der Rest der Zeile wird erst ausgefüllt nachdem du etwas in Spalte D eingetragen hast? Weshalb also eine leere Zeile kopieren?
2. soll tatsächlich eine neue Zeile eingefügt werden oder einfach nur die komplette Zeile (ohne Spalte D) in die nächste kopiert werden?

---

 

es soll eine komplette Zeile ohne den Eintrag in Spalte D, die Funktion wenn dann dort in Spalte D etwas eingetragen wird soll aber gleich sein das dann wiederum die nächste Zeile generiert wird

 

Du wiederholst deinen 1. Beitrag nur mit anderen Worden aber beantwortest weder meine erste noch meine zweite Frage - deshalb kann ich nur raten, was du tatsächlich willst. Also gehe ich davon aus, dass in Spalte D als letztes etwas eingetragen wird und dass dann die gesamte Zeile außer D nach unten kopiert werden soll. Das kannst du mit folgendem Code im Codemodul des Tabellenblattes realisieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 4 And Target.Row > 7 Then
            If Target <> "" Then
                Application.EnableEvents = False
                Cells(Target.Row, 1).EntireRow.Copy Cells(Target.Row + 1, 1)
                Target.Offset(1, 0).Clear
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

---

 

Ich habe jetzt mal etwas hochgeladen, wie es aussehen soll. Oberer Teil Tabelle ist leer, im 2.Teil ist in D8 etwas eingetragen, automatisch ist dann Zeile9 eingefügt, im 3.Teil ist auch in D9 etwas eingetragen und automatisch ist dann Zeile10 eingefügt, usw.

 

Der Code gehört nicht in ein Standardmodul sondern ins Codemodul des Tabellenblattes (s. meinen vorherigen Beitrag):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 4 And Target.Row > 7 Then
            If Target <> "" Then
                Application.EnableEvents = False
                Cells(Target.Row + 1, 1).EntireRow.Insert
                Cells(Target.Row, 1).EntireRow.Copy Cells(Target.Row + 1, 1)
                Target.Offset(1, 0).Clear
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

---

 

Danke, dies funktioniert wie gewünscht. Was muss ich tun wenn ich die gleiche Funktion noch 2 Zeilen tiefer haben möchte?

 

Oh, sorry funktioniert doch nicht ganz so, denn es wird immer eine Zeile tiefer "überschrieben" aber keine neue Zeile eingefügt. Somit verschwinden die Werte die eventuell weiter unten schon stehen.

 

Dann hast du nicht den richtigen Code übernommen - der Code aus Beitrag #6 fügt zuerst eine neue Zeile ein, und zwar mit dieser Codezeile:

Code:

Cells(Target.Row + 1, 1).EntireRow.Insert

kopiert dann:

Code:

Cells(Target.Row, 1).EntireRow.Copy Cells(Target.Row + 1, 1)

und löscht die Zelle in Spalte D:

Code:

Target.Offset(1, 0).Clear

---

 

Danke, ja so passt es :-) Jetzt kann ich noch etwas weiter an "meiner Tabelle" bauen :-)

 

Hätte eventuell noch eine Bitte - wie kann man es anstellen das die Werte zwar gelöscht werden, aber die Formatierung erhalten bleibt.

 

Ändere die Zeile

Code:

Target.Offset(1, 0).Clear

wie folgt:

Code:

Target.Offset(1, 0).ClearContents

---

 

Danke

 

Jetzt bin ich am verzweifeln, es hat alles funktioniert und... plötzlich geht nichts mehr :-(

 

Hast du den Code zwischendurch mal abgebrochen? Schließe Excel mal komplett.

---