Re^9: Bei Eingabe letzte Zeile per Code kopieren
Grüezi Küchenjunge
...irgendwie schaffst Du es an den gestellen Fragen vorbei zu lesen oder gar nicht auf sie einzugehen - ich hatte dir einige Fragen gestellt und auch einen Code geliefert, der hier IMO genau passt.
Doch leider bist Du mit keiner Silbe direkt darauf eingegangen - da frage ich mich schon, wieso....?
anbei der Link für meine Excel Mappe mit Formeln.
http://www.hostarea.de/server-04/April-ce77568827.xls
ZU den Fragen: Ich möchte diese Mappe an Freunde weitergeben,
die manchmal Rechner haben, die nicht mehr so ganz den
heutigen Stand entsprechen. Wenn ich die Datei mit den
Verknüpfungen versende, ist der Empfangende Rechner mit den
Verknüpfungen bis zu 30 Min. am arbeiten. Bei mir ist das
nicht so, warum weis ich auch nicht.
Jetzt dachte ich, ich verschicke die Mappe mit nur einer
GRUND-Zeile mit den Formel, und dann bei Eingabe in der Spalte
A6 kopiert sich dann die Zeile um eine Zeile weiter nach
unten.
Dieser Code würde mir auch bei anderen Mappen helfen, da ich
manchmal nicht weiss wieviel Zeilen das Arbeitsblatt haben
wird, und dann würde ich den Code abändern, wenn dann noch ein
paar Kommentare eingefügt wäre.
Also noch mal: Wenn ich eine Eingabe in Spalte A Spalte 6 mit
ENTER bestätige, soll sich die gleiche Zeile Spalten B bis M
um eine Zeile nach unten kopieren.Mit Formeln, Verknüpfungen,
usw.
Ich hoffe auf eine Lösung, oder habe ich mich wieder falsch
ausgedrückt?
Ich sag dazu mal lieber nichts mehr und poste hier den Code nochmals, der 1:1 derselbe ist wie in meinem vorherigen Beitrag und den Du ohne Anpassung ins Code.Modul deines Tabellenblattes kopieren kannst/sollst/musst:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Range("A:A"), Target)
If Not Target Is Nothing Then
Dim rngZelle As Range
For Each rngZelle In Target
With rngZelle
If .Row > 5 Then
.Offset(-1, 1).Resize(1, .EntireRow.Cells.Count - 1).Copy .Offset(0, 1)
End If
End With
Next rngZelle
End If
End Sub
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
