Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren in andere Dateien

Kopieren in andere Dateien
08.06.2004 10:54:26
Danilo
Hallo Forum,
Kann mir jemand mit einem Makro dienen???
Ich will vollgendes ausführen:
Habe eine Datei (Test.xls mit Sheets: Tabelle1 & Tabelle2) in dem mehrere Daten vorhanden sind. In der Spalte M stehen Werte wie 0 oder 1 oder 2 oder 3 oder nichts (leer). Nun möchte ich das alle Daten wo in der Spalte M eine 3 steht in eine andere Datei (Test2.xls mit Sheet: Tabelle1) kopiert (aber nur Werte einfügen) werden. In der Datei Test2.xls sind schon Daten vorhanden, also die neuen Daten an das Ende des letzten Eintrags einfügen. Die Daten wo in Spalte M 0 oder 1 oder 2 oder nichts (leer) steht sollen genauso in eine Datei (Test3.xls mit Sheet: Tabelle1) kopiert (aber nur Werte einfügen) werden. In der Datei Test3.xls sind ebenfalls schon Daten vorhanden, also auch hier an das Ende des letzen Eintrags anfügen.
Ich habe keine Ahnung von Makros, also wenn möglich bitte ein fertige Lösung.
Ich danke jeden der sich die Mühe für mich macht eine Lösung zu finden, ihr rettet mir mein Leben...
MFG

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in andere Dateien
08.06.2004 19:39:57
Beni
Hallo Danilo,
füge dieses Makro in ein Modul der Mappe "Test" ein, es müssen alle drei Mappen offen sein und starte es von der Mappe Test.
Gruss Beni

Sub Kopieren_in_andere_Dateien()
Dim i As Integer
Dim WS2 As Worksheet, WS3 As Worksheet
Set WS2 = Workbooks("Test2").Worksheets("Tabelle1")
Set WS3 = Workbooks("Test3").Worksheets("Tabelle1")
For i = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(i, 13) < 3 Or Cells(i, 13) = "" Then
ls = Cells(i, 256).End(xlToLeft).Column
With WS2
lz = .Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Destination:=.Cells(lz, 1)
End With
Else
With WS3
lz = WS3.Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, ls)).Copy Destination:=.Cells(lz, 1)
End With
End If
Next i
End Sub

Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige