Hallo,
Ich versuche mich gerade in mein erstes VBA und stelle mich ziemlich doof an.
ich habe folgenden Code:
Sub Schaltfläche2_Klicken()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
'Zielblatt = aktive Datei, aktives Blatt
Set wsZiel = ActiveWorkbook.ActiveSheet
'Quellblatt = Datei, Blatt 1
Set wsQuelle = Workbooks.Open(Filename:="C:\Users\bia5le\Desktop\TEST123.xlsx").Worksheets(1)
'Kopieren
wsQuelle.Cells.Copy Destination:=wsZiel.Cells
'Quelle schließen
wsQuelle.Parent.Close
Set wsQuelle = Nothing
Set wsZiel = Nothing
End Sub
ich will nun das der Inhalt der eingefügt wird durch klick auf den Button ab Zelle A10 anfängt. ich rätsel hier rum und komm nicht drauf (VBA Anfänger)
ich hätte eig gedacht ich müsste folgendes machen= Set wsZiel = ActiveWorkbook.ActiveSheet.Range("A10")
aber es funktioniert leider nicht, was mache ich falsch?
Danke vorab
|