Office: Daten kopieren und diese in eine neue Zeile einfügen lassen

Hallo an alle....

Ich versuche seit Tagen an einem Excel ein Makro richtig zu erstellen!

Also ich habe ein Makro erstellt, das Werte von einem Blatt ins andere Blatt einfügt. Nur mein Problem ist, ich kriege es nicht hin, dass wenn ich neue Daten einfügen will, eine neue Zeile mit den neuen Daten eingefügt wird.

Hier der Code:

Sheets("Scoring").Range("S5:S6").Copy
Sheets("Objekt-Liste").Range("A8").PasteSpecial Paste:=xlValues
Sheets("Scoring").Range("AU8").Copy
Sheets("Objekt-Liste").Range("D8").PasteSpecial Paste:=xlValues
Sheets("Scoring").Range("AU9").Copy
Sheets("Objekt-Liste").Range("E8").PasteSpecial Paste:=xlValues
Sheets("Scoring").Range("AU10").Copy
Sheets("Objekt-Liste").Range("F8").PasteSpecial Paste:=xlValues
Sheets("Objekt-Liste").Select
Application.CutCopyMode = False
MsgBox "Die Werte wurden erfolgreich in die Objekt-Liste kopiert."

Vielen Dank im Voraus..

LG
Sahabi

:)

 

Hallo Sahabi,

ich verstehe dein Problem nicht. Der Code funktioniert doch einwandfrei. Davon dass da irgenwo eine neue Zeile eingefügt werden soll, steht nichts im Code. Könntest du vielleicht etwas genauer erklären, was passieren soll?

 

Hallo Hasso,

danke für die schnelle Antwort!

Ja er klappt, aber nicht so wie ich will. Der soll Daten aus bestimmten Zellen kopieren und in ein anderes Tabellenblatt einfügen. Dieser Vorgang passiert ja öfters, deswegen soll später in eine neue Zeile die neuen Daten gespeichert/eingefügt werden.

z.B. Die Zellen S5:S6; AU8, AU9, AU10 sind fest, von da kopier ich die Werte und füge sie in ein anderes Tabellenblatt ein A8, D8, E8, F8. Wenn in den Zellen S5:S6; AU8, AU9, AU10 neue Werte "ermittelt werden, dann möchte ich sie wieder in das Tabellenblatt einfügen. Schön wäre es einen Code zu haben, der schaut wo die letzte Zeile ist und unter der letzten Zeile die neuen Werte einfügt z.B. A9, D9, E9, F9...

Hoffe konnte mich richtig ausdrücken

LG
Sahabi

 

Hallo sahabi,

die letzte Zeile ermittelst du mit

Code:

 

Und wie mache ich das mit den neuen Werten in der neuen Zeile?
Ich krieg das einfach nicht hin...*stupid

LG
sahabi

 

Hallo sahabi,

so etwa:
Code:

Mein gerne wiederholter Tipp: Das Hochladen einer Beispieldatei erhöht die Chance auf eine befriedigende Antwort ungemein!