Übertragen von Werten nach Datei per VBA

Hallo,

bei der Übertragung von Werten nach einem anderen Excel "Datei - Arbeitsblatt" funktiniert mein VBA bzw. der aufgezeichneter Makro nicht. Wo ist der Fehler?

Danke vorab für die Hilfe.


Sub JournalnachGESAMT()
' JournalnachGESAMT Makro
' Makro am 03.12.03 von * aufgezeichnet
'

Sub JournalnachGESAMT()
' JournalnachGESAMT Makro
' Makro am 03.12.03 von * aufgezeichnet
Sheets("Journal").Select
Range("A10:W65536").Select
Selection.Copy
Workbooks.Open FileName:="M:\Ismail\Gesamt Necat Systems.xls"
Application.Run "'Gesamt Necat Systems.xls'!cmdBlattAufruf_Click"
Sheets("Journal").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
'Windows("Necat Systems.xls").Activate
'Selection.Copy
'Windows("Gesamt Necat Systems.xls").Activate
'Range("A10").Select
____________________________________
Hier bleibt das Modul stehen:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
____________________________________
Windows("Necat Systems.xls").Activate
Range("A1").Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub JournalnachGESAMT() Dim wkb1 As Workbook Dim wks1 As Worksheet Dim wkb2 As Workbook Dim wks2 As Worksheet Dim lngZeil As Long Set wkb1 = ActiveWorkbook Set wks1 = wkb1.Worksheets("Journal") wks1.Range("A10:W65536").Copy Set wkb2 = Workbooks.Open(Filename:="M:\Ismail\Gesamt Necat Systems.xls") lngZeil = wks1.Range("A65536").End(xlUp).Offset(1, 0) wks1.Range(wks1.Cells(10, 1), wks1.Cells(lngZeil, 1)).Copy Set wks2 = wkb2.Worksheets(1) With wks2 .Range(.Cells(10, 1), .Cells(lngZeil, 1)).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False .Activate .Range("A1").Select End With wkb2.Close True Application.CutCopyMode = False End Sub

Hallo Nike,

ich möchte dich zwar nicht nerven aber ich glaube Du hast mein Problem nicht verstanden. So jetzt aber von Anfang an.

Also ich habe mehrere Excel Dateien Namens Tour1, Tour2, Tour3.xls usw. Alle diese Dateien sind identisch. In disen Dateien befindet sich ein Arbeitsblatt Namens "Journal". Dort werden die Rechnungsdateien übertragen Zeile für Zeile.

Mein Ziel ist es: Diese Jornaul Einträge nach Gesamt Datei= [Gesamt Necat Systems.xls] zu übertragen. Dort ist auch ein Arbeitsblatt (Journal" die genau so aufgebaut ist wie bei Tour1, Tour2 usw. Genau hierher sollen die Daten übertragen werden.

Klartext: Quelle: Datei=[tour1.xls], Arbeitsblatt(Journal), Alle Werte die ab Zeile A10:W65536 stehen sollen nach angegebenen bzw. bestimmten Datum Gefiltert werden (Datum Spalte ist C9)und dann übertragen nach Ziel: Datei [Gesamt Necat Systems.xls], Arbeitsblatt (Journal), Freie Zeile suchen und die kopierten Werte übertragen.

Anbei die Datei https://www.herber.de/bbs/user/2313.xls um Blätter einzublenden Passwort=test

Ich hoffe du hast jetzt mein Problem verstanden ;-)

Beliebteste Forumthreads (12 Monate)

Übertragen von Werten nach Datei per VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread