Automation object member not found

[Barbara]

Hallo zusammen,

stehe mal wieder auf dem Schlauch und die Tipps, die ich hier gefunden habe bringen mich nicht wirklich weiter.

Ich öffne eine Excel-Tabelle und suche mir dort Ersatzwerte, die ich in ein Notesdokument eintrage. Das habe ich in mehreren Anwendungen in beide Richtungen schon praktiziert, lief immer problemlos. Um so mehr verblüfft mich die og. Fehlermeldung.
Hier ein Auszug aus dem Script:

filename="C:\temp\IQDE-Projekte.xls"
   
   Set xlapp = CreateObject("Excel.Application")
   xlapp.Visible = True   '=> damit ich zu Testzwecken sehe, was geöffnet ist
   Call xlapp.Workbooks.Open (filename)
   Set xlSheet = xlApp.Workbooks(1).Worksheets(1)

...
For i=1 To 36
         If xlSheet(i,1)=Projektnummer Then => hier kommt die Fehlermeldung
         Nummerneu=Strright(xlSheet(i,2),"S")
         End If
      Next

Es wird die richtige Datei geöffnet, sie ist nicht schreibgeschützt oder sonstwas.
Hat Jemand eine Idee, was hier quer liegt?

Schon mal Danke

Barbara

[Driri]

Was ist denn Projektnummer ?

[Barbara]

ich verpasse den Dokumenten eine neue Projektnummer.
In der Excel-Tabelle sind unter Anderem alte und neue Projektnummer geführt. Weiter oben im script passe ich die Projektnummer des Notesdokumentes der Nomenklatur in der Excel-Tabelle an.

Barbara

[Driri]

Also ist Projektnummer eine String-Variable ?

Ist denn so der Vergleich überhaupt möglich ? Ich kenne mit mit der Excel-Anbindung nicht aus, aber ich würde da irgendwie noch so etwas wie ".value" oder so dahinter erwarten.

So in etwa :

...
If xlSheet(i,1).value=Projektnummer Then
...

[Barbara]

Yepp, das war der Ansatz. Das kommt davon wenn man mit der heißen Nadel strickt, nach dem Motto -ich mach mal schnell, das haben wir gleich.....

also es heißt richtig:  xl.sheet.cells(i,1).value

oh Mann, das ist jetzt echt peinlich.

Danke für die richtigen Fragen 

Gruß

Barbara

[Driri]

Gerne