VBA: Kopieren und Einfügen
22.12.2014 01:12:29
AdoJ
ich hab folgendes Problem, bei dem ich nicht weiter kommen und auch sonst nicht wirklich Hilfe gefunden habe:
Ich möchte Daten in Blatt X eingeben und die sollen dann per Klick in eine Tabelle in Y übertragen werden.
Dabei sollen die Daten Fortlaufend eingefügt werden - wenn sich schon Daten in der Zeile _
Befinden, dann werden die neuen Daten in die nächste Zeile eingefügt -.
Sub Schaltfläche15_BeiKlick()
Sheets("X").Range("C10").Copy
Sheets("Y").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Nun, mein Problem ist, dass ich es nicht hinbekomme, mehrere Daten gleichzeitig zu Kopieren.
Die Daten - die gleichzeitig kopiert werden sollen - befinden sich im Blatt X in den Spalten C10, F10, H10, J10,..., R10
Und sollen in Blatt Y in die Spalten A15,B15,...,H15 eingefügt werden.
Ich hab's schon mit dem folgenden probiert, das ist jedoch daran gescheitert, dass er pro Spalte eine neue Zeile erstellt hat:
Sheets("X").Range("C10").Copy
Sheets("X").Range("F10").Copy
Sheets("Y").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Bitte um Hilfe!
Und wenn es möglich wäre, würde ich gerne mehrere Daten - nicht nur C 10, ..., R10 , sondern auch andere Zeilen-Reihen - mit einem Klick übertragen