Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Makro zur Datenübertragung in neue Datei |
29.01.2017 14:23:32 |
Patrick |
|
|
|
29.01.2017 15:32:01 |
Gast87652 |
|
|
|
29.01.2017 15:46:52 |
Gast77912 |
|
|
|
29.01.2017 15:46:52 |
Gast38545 |
|
|
|
29.01.2017 15:46:53 |
Gast99178 |
|
|
|
29.01.2017 15:47:59 |
Gast52600 |
|
|
|
29.01.2017 15:49:35 |
Gast71497 |
|
|
|
29.01.2017 21:24:38 |
Patrick |
|
|
Von:
Patrick |
Datum:
29.01.2017 14:23:32 |
Views:
1207 |
Rating:
|
Antwort:
|
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 :
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(Datei).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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Makro zur Datenübertragung in neue Datei |
29.01.2017 14:23:32 |
Patrick |
|
|
|
29.01.2017 15:32:01 |
Gast87652 |
|
|
|
29.01.2017 15:46:52 |
Gast77912 |
|
|
|
29.01.2017 15:46:52 |
Gast38545 |
|
|
|
29.01.2017 15:46:53 |
Gast99178 |
|
|
|
29.01.2017 15:47:59 |
Gast52600 |
|
|
|
29.01.2017 15:49:35 |
Gast71497 |
|
|
|
29.01.2017 21:24:38 |
Patrick |
|
|