Spalten vergleichen
03.02.2005 09:56:52
Lars
ich habe leider bisher keine Erfahrungen mit makros, aber andere Programmiersprachen gelernt und hatte daher die einbildung, dass es gar nicht so schwer sein kann! ;)
Ich möchte vom Arbeitsblatt 1 die erste Spalte mit dem Arbeitsblatt 2 erste spalte vergleichen und die raussuchen, die NICHT in arbeitsblatt 2 sind.
Die daten sind dabei wild durcheinander gewürfelt und sollten nach möglichkeit nicht umsortiert werden.
mein Versuch bisher:
dim Vorhanden as long
Sub VergleichListen()
'AnzahlEingang = Worksheets("Sortierte Liste").Cells(3, 7)
'AnzahlAusgang = Worksheets("Sortierte Liste").Cells(4, 7)
k = 2
l = 2
Vorhanden = 2
Set r = Worksheets("Eingangsliste").Columns(3)
Set s = Worksheets("Ausgangsliste").Columns(3)
For Each c In r
'For i = 2 To AnzahlEingang + 1
'Worksheets("Übergabe nächster Tag").Cells(l, 4) = Vorhanden
'l = l + 1
For Each d In s
'Eintritt in die Eingangsliste
'For j = 2 To AnzahlAusgang + 1
'Eintritt in die Ausgangsliste
If c.Value = d.Value Then
'If Worksheets("Eingangsliste").Cells(i, 1) = Worksheets("Ausgangsliste").Cells(j, 1) Then
Vorhanden = 1
End If
Worksheets("Übergabe nächster Tag").Cells(m, 3) = Vorhanden
m = m + 1
Next
'Next j
If Vorhanden = 2 Then
Worksheets("Übergabe nächster Tag").Cells(k, 2) = Worksheets("Eingangsliste").Cells(i, 1)
k = k + 1
End If
'Next i
Next
End Sub
Wie man sieht, hab ichs über 2 verschiedene Möglichkeiten versucht, aber bin immer gescheitert, warum?!?
Wäre nett, wenn jemand weiterhelfen könnte. Danke.