Office: VBA

Hallo zusammen,

ich (absoluter VBA Anfänger) bin momentan an einem Projekt beschäftigt in dem ich nun eine Exeltabelle erstellen möchte die automatisch Zeilen vergleicht und bei Übereinstimmung kopiert.

Folgendes hab ich mir vorgestellt:

(1)Ich habe eine Tabelle mit Namen und Daten, praktisch als Archiv.
(2)Eine weitere Tabelle die aus einer Zeile besteht in der man neue Einträge einfügt.
(3)Und zuletzt eine Auswertungstabelle in der die Ergebnisse angezeigt werden.

Nun hätte ich gerne das die Zeile von (2) mit allen Zeilen aus dem Archiv (1) verglichen wird, und diese aus dem Archiv in die Auswertungstabelle kopiert werden wenn eine If Bedingung eingehalten wird. Danach soll Der Inhalt aus (2) ebenfalls ins Archiv abgespeichert werden.

Was ich bisher durch eigenrecherche geschrieben habe ist folgendes:





Sub Fahrgemeinschaften()

Dim z As Integer ' Variable für Zeile
Dim s As Integer ' Variable für Spalte
Dim lz As Integer

Worksheets("Archiv").Activate
lz = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)


For z = 6 To lz

If Worksheets("Neuer Eintrag").Cells(7, 17).Value = Worksheets("Archiv").Cells(z, 17).Value And Worksheets("Neuer Eintrag").Cells(7, 18).Value = Worksheets("Archiv").Cells(z, 18).Value Then


Worksheets("Archiv").Activate
Cells(z, 1).EntireRow.Select
Selection.Copy
Sheets("Mögliche Fahrgemeinschaften").Select
Range("A1").Select
ActiveSheet.Paste



Else
z = z + 1
End If

Next z

End Sub



Ich habe die Tabellen Probeweise beschrieben und ich habe das Gefühl das er nicht die Zeilen durchgeht sondern immer bei Zeile 8 stehen bleibt. Über die Variable Z

Ich würde mich über die ein oder andere Hilfestellung freuen.

Mit freundlichen Grüßen

Benny

:)

 

Tipp des Tages: Um Codes gut lesen zu koennen, empfiehlt es sich mit den Tabs zu arbeiten. Dann sieht jeder (natuerlich auch du) genau wo du gerade bist und eine Struktur ist zu erkennen. ;-)

Hier meine Loesung:

Code: