[
attachment=16411]
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
@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.
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
hallo AlteDresdner
super vielen lieben dank! Ist wunderbar so! Toll mit so wenig Code das Ziel erreicht.
Lieben dank
LG
SarahKlein