Range
05.09.2006 21:15:28
Frank
Hier der Quelltext
Public
Function TerminText(datum As Date) As String
Dim tag As String
Dim mo As String
Dim Anlass
tag = Worksheets("Tabelle1").Range("a2").Value
(mit der obigen Zeile funktioniert es)
'tag = Worksheets("Tabelle1").Range(Cells(1, 1), Cells(1, 1)).Value
(Brauche aber diesen Range, um eine Schleife einzubauen, doch leider funktioniert das nicht! Warum, ist doch eigentlich das gleiche)
mo = Worksheets("Tabelle1").Range("b2").Value
Anlass = Worksheets("Tabelle1").Range("c2").Value
If Day(datum) = tag And Month(datum) = mo Then
TerminText = Anlass
End If
' Application.ScreenUpdating = True
End Function