Guten Abend,
wie das Thema bereits vermuten lässt , habe ich ein Problem das für mich im Moment unlösbar scheint ...
Das Problem welches ich nicht lösen kann ist folgendes:
Ich habe eine Liste auf der nicht alle Daten aktuell sind und eine andere auf der sie es aber sind.
Dabei gibt es insgesamt über 400 Einträge und es wäre sehr mühsehlig diese per Hand auf Vollständigkeit zu überprüfen , deshalb
hatte ich vor das ganze per VBA zu lösen. Meine VBA Kenntnisse sind dafür aber nicht wirklich ausreichend und ich konnte nur mit Mühe und viel googlen einen Code zusammenbasteln , der mir auch nicht wirklich hilft sondern eher mehr Probleme verursacht.
Ich möchte das der Name der in der Zelle1A Tabelle1 mit der gesamten Spalte A Tabelle2 verglichen wird und sollte der Name in der Spalte A Tabelle2 nicht gefunden werden, soll dieser auf einem seperaten Tabellenblatt , in dem Fall einfach Tabellenblatt3, reinkopiert werden. Das ganze soll dann natürlich so oft durchlaufen werden , bis alle Namen aus jeder beschriebenen ZelleXA mit der Spalte A Tabelle2 verglichen wurde.
Das ist der Code den ich versucht hab zusammen zu schrotten.
Sub Pruefen()
Dim loLetzte As Long
Dim loLetzte1 As Long
Dim i As Long
Dim j As Long
Dim z As Long
loLetzte = Sheets("Altdaten").Cells(Rows.Count, 1).End(xlUp).Row
loLetzte1 = Sheets("Neudaten").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To loLetzte
For j = 1 To loLetzte1
If Not Sheets("Altdaten").Cells(i, 1) = Sheets("Neudaten").Cells(j, 1) Then
With Sheets("Neudaten")
.Range(.Cells(j, 1), .Cells(j, 1)).Copy Sheets("Altdaten").Cells(z, 1)
Sheets("Fehlende").Cells(z, 2) = "Neu"
End With
z = z + 1
End If
Next j
Next i
End Sub
Ich bin mir sicher das mir da jemand helfen kann , ich bin für alles dankbar.
Mit freundlichen Grüßen
|