Domino 9 und frühere Versionen > Entwicklung

Excel / Cells.Find ?

(1/1)

meichhorner:
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 )


--- Code: ---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

--- Ende Code ---

Semeaphoros:
Hm, vielleicht gibts da ein Syntax-Problem ..... aber genau sagen kann ichs auch nicht.

Könntest Du die Lösung allenfals "anderherum" machen, da es in Excel ja funktioniert, das Makro im Excel schreiben und dort ausführen lassen?

Navigation

[0] Themen-Index