Makro in Funktion
11.12.2003 11:52:00
Frank
ich habe mir ein Makro in folgende Funktion umgewandelt:
Function Dienst(zelle) As Integer
Dim z As Integer
Application.Volatile
'range(F9).select (stand vorher im Makro)
Do While ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone
If Left(ActiveCell.Value, 1) = "F" And _
ActiveCell.Offset(1, -5).Value = "Angestellter" And _
ActiveCell.Offset(4, 0).Value <> "U" And _
ActiveCell.Offset(4, 0).Value <> "K" And _
ActiveCell.Offset(4, 0).Value <> "FA" And _
ActiveCell.Offset(4, 0).Value <> "FT" Then _
z = z + 1
ActiveCell.Offset(28, 0).Select
Loop
End Function
Wenn ich die Funktion mit Dienst(F9) ausführe, wird leider nichts berechnet.
Was mache ich falsch ? Als Makro lief alles einwandfrei.
Gruß
Frank