Office: Letzte Zeile kopieren und darunter einfügen

Hallo und einen schönen Abend an alle

Ich habe da leider ein Problem und hoffe ihr könnt mir helfen.
Habe schon viele Foren durchstöbert, dabei auch gute Lösungen gefunden aber leider nicht genau das was ich benötige.

Ich möchte das wenn z.B. in Zelle D6 eine Zahl eingegeben und mit der Enter Taste bestätigt wird die ganze Zeile 6 in Zeile 7 kopiert wird.
Ich habe es schon so weit geschafft, das alle Zellen mit Formeln kopiert werden aber nicht die leeren Zellen mit Rahmenlinien.
Auch wird die Zeile 6 erst kopiert, wenn ich in D7 eine neue Zahl eingebe und nicht schon wenn ich die Enter Taste in D6 betätige.

Ich habe eine kleine Tabelle angefertigt und hänge sie mit an, das ihr mein Problem vielleicht besser versteht.

Denn wenn das mit dem Kopieren der ganzen Zeile nach dem betätigen der Enter Taste funktioniert kommen weitere Fragen/Probleme bei mir auf, die ich leider nicht geschafft habe zu lösen.

Ich habe in meiner Tabelle auch nochmal meine Probleme und Fragen niedergeschrieben.

Ich würde mich sehr freuen, wenn ihr mir helfen könnt. Ich bedanke mich schon mal. :-)

:)

 

Hi,

meinst du so etwas:

Code:

 

Hallo Beverly

Ich danke dir, dein Code ist wirklich klasse und macht was ich gesucht habe.
Er ist viel viel kürzer als meiner und dazu noch besser. Ich danke dir.

Leider gibt es da noch ein Problem der Code funktioniert nicht mehr sobald ich den Blattschutz aktiviere.

Alle Zellen in denen eine Formel steht soll für den Anwender gesperrt und die Formel ausgeblendet werden.

Vielleicht gibt es dafür noch eine Lösung?!

Danke dir :-)

 

Hi,

hebe den Blattschutz zu Beginn des Kopierens auf und setze ihn am Ende wieder:

Code:

 

Ah super, danke es funktioniert.

Jetzt geht das Problem leider weiter. Ich denke aber das kann man nicht lösen.
Der Code wird nicht ausgeführt, da ich die Arbeitsmappe für mehrere Benutzer freigeben möchte.

 

Codes funktionieren auch in freigegebenen Arbeitsmappen, nur ändern kann man ihn nicht so lange die Mappe freigegeben ist.

 

Wenn ich die Arbeitsmappe freigegeben habe, und eine Zahl in D6 eingeben, erhalte ich die Fehlermeldung

Laufzeitfehler 1004
Die Unprotect-Methode des Worksheet-Objektes konnte nicht ausgeführt werde.

 

Hast du schon mal den Code mit dem Makrorekorder aufgezeichnet, wenn du in der freigegebenen Arbeitsmappe den Blattschutz aufhebst und wieder setzt?

 

Habe es eben versucht aufzuzeichnen.
Habe den Rekorder gestartet und eine Zahl D6 eingegeben, dann wieder die Aufnahme beendet.
Jetzt bekomme ich im freigegebenen Modus die Fehlermeldung 1004
Anwendungs- oder objektdefinierter Fehler

Funktioniert der Code bei dir in einer freigegebenen Arbeitsmappe?


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
If Target.Column = 4 Then
If Target.Count = 1 Then
If Target "" Then
If Target.Offset(-1, 0) "" And Target.Offset(1, 0) = "" Then
Application.EnableEvents = False
Range(Cells(Target.Row, 2), Cells(Target.Row, 31)).Copy Cells(Target.Row + 1, 2)
Range(Cells(Target.Row + 1, 3), _
Cells(Target.Row + 1, 31)).SpecialCells(xlCellTypeConstants).ClearContents
Cells(Target.Row + 1, 3) = Cells(Target.Row, 3) + 1
Application.EnableEvents = True
ActiveSheet.Protect
End If
End If
End If
End If
End Sub



Der Blattschutz kann doch nur aufgehoben werden, wenn die Mappe nicht freigegeben ist oder liege ich da gerade falsch?

 

Da ich mich mit freigegebenen Arbeitsmappen nicht auskenne, habe ich gerade etwas recherchiert: Blattschutz kann man nur aufheben wenn die Arbeitsmappe nicht freigegeben ist. Du musst also entweder auf Freigabe verzichten oder das ganze anders lösen - z.B. wäre da die Möglichkeit, im Worksheet_SelectionChange-Ereignis eine Routone einzubauen, dass bei Zellen mit Formeln der Cursor stets in die nächste Zelle gesetzt wird. Dann kannst du auf Blattschutz komplett verzichten.

 

Leider muss der Blattschutz rein und die Mappe freigegeben werden.
Sehr schade das es nicht geht aber ich danke dir für deine Hilfe.
Dein Code ist ja auch sehr gut und hilfreich. Danke nochmals

Dann versuche ich es irgendwie so zu lösen, das nur die Spalten X, Y, Z, AA, AB, AC, AD, und AE mit Formeln von der Zeile 6 in Zeile 7 kopiert werden, wenn in D7 die Eingabe mit der Entertaste bestätigt wird.

Mal schauen ob ich das hinbekomme oder hättest du dafür auch eine gute Idee? :-)

 

Warum muss der Blattschutz rein? Ich hatte doch eine andere Lösungsmöglichkeit vorgeschlagen...

 

Der Blattschutz muss rein, weil ich die Zellen mit Formeln sperren und ausblenden will. Die Anwender sollen nicht aus Versehen die Formeln löschen.

 

Wie ich schon geschrieben hatte: das geht auch ohne Blattschutz!!

 

Ach wow, super danke.
Dann hatte ich das eben nicht ganz verstanden, was du meintest.
Wusste gar nicht, dass man es auch so machen kann.
So kann man auch nicht die Zellen mit Formeln auswählen.

Tausend dank. Mir fällt ein Stein vom Herzen :-)


Kannst du mir zu Schluss noch erklären, was der neue Code genau macht.
Das ich es verstehe und nachvollziehen kann.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells(1).HasFormula Then Target.Offset(0, 1).Select
End Sub