Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren in andere Dateien

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige