VBA Excel, Kopieren per Button

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen :smile:

Ich möchte folgendes im Excel per Button erstellen.
Leider ist es eine Weile her seitdem ich meine VBA Kenntnise das
letzte Mal eingesetzt habe.

Ich habe zwei Tabellenblätter. Im ersten stehen in den Zellen C1-C3 div. Daten. Nun habe ich im Tabellenblatt 2 einen Button erstellt.
Wenn ich diesen anklicke, sollten ausgewählte Daten aus dem ersten Tabellenblatt in die dafür vorgesehenen Zellen im Tabellenblatt zwei kopiert werden. Da die Zellen im Tabellenblatt 1 noch markiert bleiben nach dem kopieren und einfügen, sollten diese dann zum Schluss noch „demarkiert“ werden.

Jetzt zur Frage die sich jeder Stellt wenn er das durch liest…
wieso arbeitet er nicht mit einfachen Zellbezügen „=…“.
Das Problem ist, das die Daten nicht immer erst im Tabellenblatt 1 eingefügt werden, sondern evtl. auch gleich im Tabellenblatt 2, dann
überschreibe ich ständig die Formeln (ist zwar nicht so schlimm, aber
die Lösung mit dem Button gefällt mir besser :wink:

Ich habe ein Testfile hochgeladen, wie ich das mir etwa vorstelle. Hab schon selber ein bisschen rumprobiert, hat aber nie
richtig geklappt…

Hoffe ihr könnt mir weiter helfen, bin gespannt auf eure Lösungen.

Liebe Grüsse
Yanick

File: www.yns.ch/Transfer/Mappe1.zip

#2

Ich habe zwei Tabellenblätter. Im ersten stehen in den Zellen
C1-C3 div. Daten. Nun habe ich im Tabellenblatt 2 einen Button
erstellt.
Wenn ich diesen anklicke, sollten ausgewählte Daten aus dem
ersten Tabellenblatt in die dafür vorgesehenen Zellen im
Tabellenblatt zwei kopiert werden. Da die Zellen im

Hi Yanick,

Sub Kopier()
Worksheets("Tabelle1").Range("C1:C3").Copy Destination:=Worksheets("Tabelle2").Range("C1")
Worksheets("Tabelle2").Columns(3).AutoFit
End Sub

Gruß
Reinhard

#3

Toll, genau das was ich machen wollte… :smile: vielen Dank und noch einen schönen Abend!

Gruss
Yanick

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]