VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast82623	Datum: 18.07.2018 15:40:33	Views: 805	Rating:	Antwort:
Thema: junger
Ich benutze zwei mal "Workbooks.Open" und das Arbeitsblatt zu öffnen und darauf die werte zu kopieren. Geht es auch einfacher, so dass ich das Arbeitsblatt nur einmal öffnen muss so dass die Werte aus den zwei Sheets kopiert werden und eingefügt werden? 2.) wie ändere ich den namen des tabellenblattes vn "tabelle1" auf "xxx" währned des kopiervorgangen oder danach zum Beispiel. Mein Code: Sub CopyAndPaste() Dim wb As Workbook Dim ws As Worksheet Set wb = Workbooks.Add Set ws = wb.Worksheets("Tabelle1") datDatum = Now Workbooks.Open Filename:="C:\Users\........xls" Sheets("YYYYY").Range("A11:P57").Copy ws.Range("A2").PasteSpecial Workbooks.Open Filename:="C:\Users\........xls" Sheets("XXXXX").Range("A11:P41").Copy ws.Range("R2").PasteSpecial

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