Hy,
ich öffne aus Notes heraus ein Excel und versuche nun ein datum zu finden.
Der Code funktioniert in Excel, aber ich bringe ihn nicht im Notes zum laufen.
Es handelt sich um folgende Zeile, da bekomme ich immer die Fehlermeldung dass die Find Eigenschft des Range Objektes nicht zugeordnet werden kann
Die Excel Konstanten sind deklariert ich habe es auch schon mit den IntegerWerten probiert.
Hat da jemand einen Tip für mich ?
Set xlRange = xlSheet.Cells.Find("10/11/04" , xlValues , xlPart , xlByRows , xlNext , False )Sub Click(Source As Button)
Dim xlApp As Variant
Dim xlBook As Variant
Dim xlSheet As Variant
Dim xlRange As Variant
Dim xlRow As Long
Dim s As New NotesSession
Dim db As NotesDatabase
Dim ndb As NotesDatabase
Set db = s.CurrentDatabase
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\Lotus\Notes\Data65\Test.xls")
Set xlSheet = xlBook.Worksheets("Leistungsnachweis")
xlApp.Visible = True
'xlSheet.Activate
xlSheet.Select
Set xlRange = xlSheet.Cells.Find("10/11/04" , xlValues , xlPart , xlByRows , xlNext , False )
'With xlSheet
' .range("D12").Value = "01.12.2004"
'End With
'Msgbox Cstr(xlSheet.range("D12").Value)
'Code aus Excel
'set xlRange = xlSheet.Cells.Find(What:="10/11/04" , LookIn:=xlValues , LookAt:=xlPart , SearchOrder:=xlByRows , SearchDirection:=xlNext , MatchCase:=False )
'If Not xlRange Is Nothing Then
xlRow = xlRange.Row
xlRange.Activate
xlRange("F" & LoErsteZeile).Value = "Test"
'Else
' Exit Sub
'End If
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub
