Function.... HIIIIIILFEEEEEE
11.07.2004 17:25:24
LXus
Kann mir wer sagen wie ich diese
Function zum laufen bringe?
DANKE
LXus
Function AZT(R1 As Range, R2 As Range, R3 As Range)
Dim Dat As String, Txt As String, Zm As String
Dim Beginn As Date, Ende As Date, P As Date, Ps As Date, BgB As Date, BgE As Date, Zeit As Date
Dat = ThisCell.Offset(0, -6).Text
Beginn = ThisCell.Offset(0, -4).Value
Ende = ThisCell.Offset(0, -3).Value
P = ThisCell.Offset(0, -2).Value
Ps = ThisCell.Offset(0, -1).Value
BgB = Worksheets("A").Range("BE15").Value
BgE = Worksheets("A").Range("BE16").Value
Txt = ThisCell.Offset(0, -4).Text
Zeit = ThisCell.Offset(0, -3).Text
If Dat = "" = True Then
AZT = ""
End If
If WorksheetFunction.IsNumber(Beginn) = True Then
If Beginn < Ende Then
If P <= Ps Then
If Ende >= BgE And Beginn > BgB Then
AZT = BgE - Beginn - Ps
End If
If Ende < BgE And Beginn <= BgB Then
AZT = Ende - BgB - Ps
End If
If Ende < BgE And Beginn > BgB Then
AZT = Ende - Beginn - Ps
End If
If Ende >= BgE And Beginn <= BgB Then
AZT = BgE - BgB - Ps
End If
Else
If Ende >= BgE And Beginn > BgB Then
AZT = BgE - Beginn - P
End If
If Ende < BgE And Beginn <= BgB Then
AZT = Ende - BgB - P
End If
If Ende < BgE And Beginn > BgB Then
AZT = Ende - Beginn - P
End If
If Ende >= BgE And Beginn <= BgB Then
AZT = BgE - BgB - P
End If
End If
End If
If WorksheetFunction.IsText(Txt) = True And _
Txt = "E" Or Txt = "F" Or Txt = "K" Or Txt = "RF" Or Txt = "S" Or Txt = "SE" Or Txt = "E/RF" Or Txt = "SE/E" Then
AZT = WorksheetFunction.VLookUp(Txt, R1, WorksheetFunction.VLookUp(Zm, R3, 3, False), False)
ElseIf Txt = "R" Or Txt = "GB" Or Txt = "SE/RF" Or Txt = "E/ZT" Then
If Zeit <= 0 Or Txt = "" Then Exit Function
End If
If Zeit < WorksheetFunction.VLookUp(Txt, R2, WorksheetFunction.VLookUp(Zm, R3, 3, False), False) Then
AZT = Zeit
End If
If Zeit >= WorksheetFunction.VLookUp(Txt, R2, WorksheetFunction.VLookUp(Zm, R3, 3, False), False) Then
AZT = WorksheetFunction.VLookUp(Txt, R2, WorksheetFunction.VLookUp(Zm, R3, 3, False), False)
End If
Else: Exit Function
End If
End Function