UDF funktionieren nicht
16.01.2013 19:03:20
Rolf
ich habe hier eine Funktion geschrieben, die aber nicht immer funktioniert. Sie funktioniert, wenn ich die Funktion in der Funktionszelle (über der Tabelle) ausführe, aber nicht, wenn ich z.b. die Zelle markiert und mit enter wieder verlasse, und auch nicht, wenn ich eine der Bezüge (Prüfling z.B.) ändere.
Kann mir jemand sagen, was ich hier ändern muss?
Rolf
Function WerteÜbertragen(Prüfling, Fach, Bewertungspunkt)
With Worksheets("Eingaben der Teilleistungen").Range("Prüfung_Teilleistungen")
'Zeile Prüfling suchen
nPrüflinge = .Rows.Count
nFächer = .Columns.Count
For n = 1 To nPrüflinge
If .Cells(n, 1) = Prüfling Then ZPrüfling = Cells(n, 1).Row
Next n
'Spalte Fach suchen
For n = 1 To nFächer
If .Cells(1, n) = Fach Then SFach = Cells(1, n).Column
Next n
S = SFach + Bewertungspunkt - 1
'Wert auslesen
Ausgabe = .Cells(ZPrüfling, S)
End With
WerteÜbertragen = Ausgabe
End Function