Zwei Bereich in einer Tabelle vergleichen? Lösung über VBA gesucht

[SarahKlein]

  Vgl-TabellenBereiche.xlsx (Größe: 18,36 KB / Downloads: 10)
hallo
mein Name ist Sarah und ich bin über das Internet auf diese Seite gekommen.
Ich benutze Excel 2010
Leider bin ich nicht in der Lage diese - für mich - schwere Aufgabe zu lösen.
Vielleicht könnte mir einer von euch helfen.
Ich habe dazu die Aufgabe in die Mappe geschrieben

Würde mich echt freuen

LG
SarahKlein

[Phi.VBA]

@Sarah

mit VBA, entweder "Range.Find" oder mit Schleifen in einem Array ist die Frage recht gut zu beantworten. Aber ohne eine Erläuterung des Sinns, jenseits der technischen Beschreibung, ist die Motivation ca 1/2 Stunde zu tüffteln nicht ausreichend hoch.

[AlterDresdner]

Hallo Sarah,
da man bei dem Wetter eh nicht draußen herumläuft:
Das Makro für die Schaltfläche 1 sollte lauten:

Code:

Sub vergleichen()
Dim zeile As Long
Dim found, firstaddress
Dim erg As Long 'Suchergebnis
Dim i, j 'Laufvariablen
 zeile = 1
 Do 'alle Suchpaare durchlaufen
   erg = 0
   Set found = Range("A:F").Find(what:=Cells(zeile, 14), lookat:=xlWhole)
   If Not (found Is Nothing) Then
     firstaddress = found.Address
     Do 'alle Treffer in A:F suchen
       If Cells(found.Row, found.Column + 6) = Abs(Cells(zeile, 15)) Then erg = erg + 1
       Set found = Range("A:F").FindNext(found)
     Loop Until found.Address = firstaddress
   End If
   Cells(zeile, 17) = erg
   zeile = zeile + 1
 Loop Until Cells(zeile, 14) = ""
End Sub

[SarahKlein]

hallo AlteDresdner

super vielen lieben dank! Ist wunderbar so! Toll mit so wenig Code das Ziel erreicht.
Lieben dank
LG
SarahKlein