Daten aus Dateien kopieren und abgleiche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo!
Vielen Dank fürs Antworten.
Kurze Antwort zu deinen Fragen:
Die "Master-Datei" (schlechter Name) soll die ToDo Listen aller Mitarbeiter beinhalten. Alles auf einem Tabellenblatt, einfach untereinander weg.
Diese Datei ist im gleichen Ordner wie alle anderen ToDo Listen. Diese Datei soll allerdings schreibzugriff haben.
Die ToDo Listen der MA haben 2 Tabellenblätter: 1 Blatt "ToDo Liste" und zweites Blatt "Stammdaten"
Genau diese Tabellenblatt- Bezeichnung hat auch die Masterdatei.
Bezogen auf das "x" hatte ich mich folgendes gefragt.
Heute werden meine To dos in die Masterliste übertragen. Morgen auch wieder. Aber vielleicht sind die to dos von heute noch nicht abgearbeitet oder verändert, welche möglichkeit habe ich also zu sagen, kopiere nur die zeilen ohne x und alle zeilen mit einem x die gleiche nur miteinander ab.
Was ich jetzt allerdings versucht habe ist folgendes:
Ich hole in die Master- Datei die einzelnen Tabellenblätter der MA über "Externe Daten abrufen" in ein Tabellenblatt in der Master- DAtei und dann kopiere ich die Zeilen in eine allgemeine Datei über:

Sub test()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("zs")
Set tarWks = Worksheets("To-Do Liste")
With srcWks
For i = 1 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(i, 10).Value = "x" Then
tLR = tarWks.Cells(Rows.Count, 10).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 10)).Value = srcWks.Range(srcWks.Cells(i, 1), _
_
srcWks.Cells(i, 10)).Value
End With
End If
Next i
End With
End Sub

Nicht die schönste Lösung aber ich versuche ja auch mich schrittweise zu nähern.
Was ich noch nicht schaffe ist eine Schleife in dem Code durch die ich alle Tabellenblätter durchlaufe...

Guten Morgen,
also ich versuche gerade alles zu verstehen. Hatte die neue Datei gerade erst gesehen. Du hast dort die Zeilenüberprüfung eingetragen oder? Das heißt prüfen ob die Zeilen beschrieben wurden. Und mir fällt auf:

iLastRowMaster+1

Ein unglaublicher Code. Darf ich dazu Fragen stellen?
Ich habe beim Deklarieren noch nie das "%" oder "$" gesehen. Wofür hast du die eingesetzt?
icolQuelle und icolZiel stehen jeweils für die Hilfsspalten oder?
Warum steht einmal bei "icolZiel=Range("1:10")? also Zeilen 1 bis 10? Das konnte ich noch nicht nachvollziehen.
unter


sToDoString=Cells (iRow,iColQuelle).Value

--> dort vergleichst du die Werte oder? mit s als Befehl zum vergleichen?
Jetzt verstehe ich auch die Hilfsspalte richtig. Es ist leichter den einen kombinierten Wert der Spalte zu vergleichen, als viele einzelne. PErfekt, darauf wäre ich nicht gekommen.
ich schaue weiter, aber es fällt mir wieder leichter alles nachzuvollziehen und ich merke wieviel spaß das macht. :)

Beliebteste Forumthreads (12 Monate)

Daten aus Dateien kopieren und abgleiche

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Dateien kopieren und abgleiche

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread