Thema Datum  Von Nutzer Rating
Antwort
29.01.2017 14:23:32 Patrick
NotSolved
29.01.2017 15:32:01 Gast87652
NotSolved
29.01.2017 15:46:52 Gast77912
NotSolved
29.01.2017 15:46:52 Gast38545
NotSolved
Rot Makro zur Datenübertragung in neue Datei
 29.01.2017 15:46:53 Gast99178
NotSolved
29.01.2017 15:47:59 Gast52600
NotSolved
29.01.2017 15:49:35 Gast71497
NotSolved
29.01.2017 21:24:38 Patrick
NotSolved

Ansicht des Beitrags:
Von:
Gast99178		 Datum:
29.01.2017 15:46:53		 Views:
855		 Rating:
     
Antwort:
  Ja
Thema:
Makro zur Datenübertragung in neue Datei
?
1
Set wb = Workbooks.Open(strFileName)

... liefert dir eine Referenz auf die geöffnete Mappe. Über diese hast du also darauf Zugriff.

Demnach, brauchst du schon mal kein

?
1
Windows(...).Activate

Ausdrücke wie

?
1
2
Range(...).Select
Selection.Copy

und

?
1
2
Range("C12:V12").Select
ActiveSheet.Paste

entfallen aus dem selben Grund. Aus denen wird:

?
1
Range(...).Copy

bzw.

?
1
Range("C12:V12").Paste

Merk dir zu Activate und Select mal folgendes: "Activate und Select sind nur notwendig um die Aufmerksamkeit des Nutzer auf etwas zu lenken."

 

Unterm Strich heißt das also:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Dim wbSrc As Excel.Workbook
Dim wbDest As Excel.Workbook
 
Set wbSrc = Workbooks.Open(strFileName)                   'Quelle
Set wbDest = Workbooks.Open("1DP-Checkliste.xlsm") 'Ziel
 
With wbSrc
    'SO:
    .Range("A4").Copy
    wbDest.Worksheet("Tabelle1").Range("C12:V12").Paste
'    'ODER KÜRZER, SO:
'    .Range("A4").Copy wbDest.Worksheet("Tabelle1").Range("C12:V12")
    'und der nächste
    Range("C4").Copy
    wbDest.Worksheet("Tabelle1").Range("W12:AF12").Paste
    'usw.
 
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1DP-Checkliste.xlsm").Activate
    Range("AQ12:CD12").Select
    ActiveSheet.Paste
    Windows(Datei).Activate
    Range("J4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1DP-Checkliste.xlsm").Activate
    Range("CT12:DC12").Select
    ActiveSheet.Paste
    Windows(Datei).Activate
    Range("I4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1DP-Checkliste.xlsm").Activate
    Range("DD12:DM12").Select
    ActiveSheet.Paste
 
End With

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Datum  Von Nutzer Rating
Antwort
29.01.2017 14:23:32 Patrick
NotSolved
29.01.2017 15:32:01 Gast87652
NotSolved
29.01.2017 15:46:52 Gast77912
NotSolved
29.01.2017 15:46:52 Gast38545
NotSolved
Rot Makro zur Datenübertragung in neue Datei
 29.01.2017 15:46:53 Gast99178
NotSolved
29.01.2017 15:47:59 Gast52600
NotSolved
29.01.2017 15:49:35 Gast71497
NotSolved
29.01.2017 21:24:38 Patrick
NotSolved