Guten Tag alle zusammen,
da ich noch Neuling in Sachen VBA Programmierung bin, brauche ich Eure Hilfe.
Und zwar möchte ich per CommandButton eine Makro ausführen, der aus einer Excel Datei einen Bereich kopiert und in einer anderen Datei einfügt.
So weit so gut, am Anfang habe ich immer den Fehler gemacht und mit dem Rekorder aufgenommen und es so übernommen was er mir sagte, da ich da immer auf den Fehler 1004 gestoßen bin in Bezug auf Select und Range, habe ich gesucht.
Mittlerweile habe ich jetzt gelernt wie man es ein bisschen umgehen kann :-).
Hier jetzt aber erstmal den Anfang meines Skriptes bzw Makro.
Sub CommandButton1_Click()
Workbooks.Open Filename:="Die Datei die geöffnet wird und die Quelle ist"
Range("A4:L300").Copy
Windows("Die Zieldatei in der ich das Makro aufnehme und ausgeführt werden soll").Activate
Sheets("Einlesen").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Mein jetztiges Problem ist, das das Feld in Einlesen leer bleibt.
Mfg
MPicard
Korrektur habe meinen Fehler gefunden
Und zwar musste ich nur vor dem Range noch ein Sheets setzten damit er wusste welches Blatt makiert wahr.
Ich dachte ich brauche das nicht da es nur ein Blatt gab in der Quelldatei.
Sorry für das unnötige Topic.
Aber vielen dank trotzdem
Mfg
MPicard
da ich noch Neuling in Sachen VBA Programmierung bin, brauche ich Eure Hilfe.
Und zwar möchte ich per CommandButton eine Makro ausführen, der aus einer Excel Datei einen Bereich kopiert und in einer anderen Datei einfügt.
So weit so gut, am Anfang habe ich immer den Fehler gemacht und mit dem Rekorder aufgenommen und es so übernommen was er mir sagte, da ich da immer auf den Fehler 1004 gestoßen bin in Bezug auf Select und Range, habe ich gesucht.
Mittlerweile habe ich jetzt gelernt wie man es ein bisschen umgehen kann :-).
Hier jetzt aber erstmal den Anfang meines Skriptes bzw Makro.
Sub CommandButton1_Click()
Workbooks.Open Filename:="Die Datei die geöffnet wird und die Quelle ist"
Range("A4:L300").Copy
Windows("Die Zieldatei in der ich das Makro aufnehme und ausgeführt werden soll").Activate
Sheets("Einlesen").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Mein jetztiges Problem ist, das das Feld in Einlesen leer bleibt.
Mfg
MPicard
Korrektur habe meinen Fehler gefunden
Und zwar musste ich nur vor dem Range noch ein Sheets setzten damit er wusste welches Blatt makiert wahr.
Ich dachte ich brauche das nicht da es nur ein Blatt gab in der Quelldatei.
Sorry für das unnötige Topic.
Aber vielen dank trotzdem
Mfg
MPicard
