Worksheet Function
02.11.2018 09:48:47
emil
ich hab zwar schon viel mit VBA gemacht, aber eine Worksheet Function habe ich noch nie geschrieben. Daher ist das Problem wahrscheinlich recht banal.
In der Function soll eine Aufgabe mit einem Ergebnis verglichen werden. Am Ende soll dann _ einfach die Anzahl der positiven Vergleiche ausgegeben werden. Folgender Code:
Function Verknuepfung(Aufgabe As Range, Ergebnis As Range, rRange As Range)
Dim rCell As Range
Dim strAufgabe As String
Dim strErgebnis As String
Dim intZaehler As Integer
strAufgabe = Aufgabe.Value
strErgebnis = Ergebnis.Value
For Each rCell In rRange
If rCell.Value = strAufgabe And Cells(rCell.Row, Ergebnis.Column).Value = _
strErgebnis Then
intZaehler = intZaehler + 1
End If
Next rCell
Verknuepfung = intZaehler
End Function
Vielen Dank schonmal für die Hilfe.
Viele Grüße
Emil