Thema Datum  Von Nutzer Rating
Antwort
Rot Makro zur Datenübertragung in neue Datei
 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
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:
Patrick		 Datum:
29.01.2017 14:23:32		 Views:
1455		 Rating:
     
Antwort:
  Ja
Thema:
Makro zur Datenübertragung in neue Datei

Hallo Zusammen,

ich versuche vergebens Daten via Makro in eine neue Liste zu kopieren.

Passieren soll folgendes:

 

via Auswahlfenster Datei auswählen welche geöffnet werden soll ( Funktioniert schon )

Dann immer gleichbleibende Zeilen/Spalten vom gerade geöffneten File in das Dokufile kopieren.

Folgendes habe ich dabei schon versucht :

 

?
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Sub OeffnenDialog_mit_Pfadvorgabe()
 
'** Anzeige des Öffnen-Dialogfensters mit voreingestelltem Pfad
 
  
 
'** Dimensionierung der Variablen
 
Dim wb As Workbook
 
'Dim ws As Worksheet
 
Dim lngZ As Long
 
Dim strFileName
 
Dim strFilter As String
 
 
  
 
'** Dateifilter definieren
 
strFilter = "Excel-Dateien(*.xl*), *.xl*"
 
  
 
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
 
ChDrive "H"
 
ChDir "H:\Arbeit\Projekte\"
 
  
 
'** Den im Dialogfeld gewählten Namen auslesen
 
strFileName = Application.GetOpenFilename(strFilter)
 
  
 
'** Prüfen, ob eine gültige Datei ausgewählt wurde
 
If strFileName = False Then Exit Sub
 
  
 
'** Gewählte Datei öffnen
 
Set wb = Workbooks.Open(strFileName)
 
'
'** Daten übertragen
'
 
    Windows(<strong><em>Datei</em></strong>).Activate                                           ------ hier Datei durch den Dateinamen der ausgewählten Datei ersetzten?
    Range("A4").Select
    Selection.Copy
    Windows("1DP-Checkliste.xlsm").Activate
    Range("C12:V12").Select
    ActiveSheet.Paste
    Windows(Datei).Activate
    Range("C4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("1DP-Checkliste.xlsm").Activate
    Range("W12:AF12").Select
    ActiveSheet.Paste
    Windows(Datei).Activate
    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 Sub

 

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
Rot Makro zur Datenübertragung in neue Datei
 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
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