VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast31722	Datum: 12.05.2015 16:23:14	Views: 1152	Rating:	Antwort:
Thema: Kopieren & einfügen
Hallo, da ich gerade in meinem Praxissemester bin und deshalb neu im Umgang mit Excel VBA bin, habe ich folgendes Problem, welches ich einfach nicht gelöst bekomme: Ich befinde mich in einer Datei 1, von dort aus soll eine andere Datei 2 geöffnet werden. In dieser Datei 2 sollen Werte dessen Sheets Tabelle1 von A2 bis zum Ende der Tabelle (Im Normalfall Spalte AA, dynamisch wäre mir aber lieber) kopiert werden. Diese kopierten Daten sollen dann, ohne die Formatierung zu übernehmen, in die Datei 1 in ein bestimmtes Sheet ("Aktuell") ab Zelle A2 eingefügt werden. Danach soll sich Datei 2 wieder von selbst schließen. Folgendermaßen sieht mein Code bisher aus: Sub DatenderDatei2() ' Ich befinde mich in Datei 1. Per Button öffnet sich Datei 2 (an einem bestimmtem Speicherort) Workbooks.Open "Datei2.xlsx" ' Aktiviert erstes Sheet der Datei 2 Worksheets(1).Activate ' Ab Zelle A3 bis zur letzten belegten Zelle wird markiert und kopiert Range("A3" & ActiveSheet.Cells. _ SpecialCells(xlCellTypeLastCell).Address).Select.Copy ' Wählt wieder Datei 1 an und fügt ein in Sheet "Aktuell" in A3 Workbooks("Datei1.xlsm").Worksheets("Aktuell").Range("A3").PasteSpecial Paste:=xlPasteValues End Sub Kann mir jemand helfen? :)

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen