Makro, kopieren, einfügen wenn Zielzellen leer

Computer: Software & Programmierung Visual Basic
#1

Moin,
Beiträge habe ich dazu schon viele gefunden aber irgendwie passen die nie so richtig.
Ich möchte Zelle kopieren und in ein anderes Tabellenblatt einfügen. Wenn die Zielzellen schon voll sind (in diesem Fall D5 bis D9), dann eine Spalte nach rechts springen.
Das mit dem kopieren und einfügen klappt nur den Sprung nach rechts weiß ich noch nicht so recht hinzukriegen. Ich freue mich über Hilfe!
Hier der Code (ohne loop):

Sub Copy_values()

If Sheets(„Results“).Range(„A2“) = 1 Then
Sheets(„Simulation“).Select
Range(„C15,C19,C29,C37,C42“).Select
Selection.Copy
Sheets(„Summary“).Select
Range(„D5“).Select
ActiveSheet.Paste

End If

End Sub

Soweit,
Fred

#2

Hallo Fred,

Beiträge habe ich dazu schon viele gefunden aber irgendwie
passen die nie so richtig.

du meinst damit Codes? Ja das ist so. Denn minimalste Abweichung an der Aufgabenstellung kann alles bewirken.
Die Spanne ist da weit, reicht von paar Kleinigkeiten im Code anpassen bis hin das er komplett in die Tonne fliegen muß.
Denn die für den User winzige Änderung erfordert evtl. einen völlig anderen Codeansatz.

Ich freue mich über Hilfe!

Soweit ich kann gerne ABER…

Hier der Code (ohne loop):

…vorher möchte ich wissen was es da mit loop auf sich hat. Fehlt da im Code eine Loop-Schleife oder ein aufrufender Code mit dem Loop drin. Wenn schon will ich da allen Code sehen der da mitspielt. Bevor ich mich mit deinem Code befasse.

Gruß
Reinhard