title image


Smiley Re: wert = excelsheet1.cells(10,2).Value (cells anstelle cell)! o.T.
das dachte ich auch!



Ich habe mittlerweile auch ein Beispiel gefunden, wo das auch so gehen soll.



Auszug meines Beispiels:



Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet13 As Excel.Worksheet

Dim xlZelle As Excel.Range



'Excel-Typen erstellen

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)



xlBook = CType(xlApp.Workbooks.Open(LoaderXLSPath & "\" & LoaderXLSVorlage), Excel.Workbook)



xlSheet13 = CType(xlBook.Worksheets("13 Overall Peaks"), Excel.Worksheet)





xlZelle = xlSheet13.Range("B10")

MsgBox(xlZelle.Value)



xlZelle = xlSheet13.Cells(10, 2)

MsgBox(xlZelle.Value)





Das mit xlsheet13.range("B10") geht

und mit .cells ... geht nicht.







Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !

Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !Achtung !



Das hängt aber an Option strict on



bei Option strict off klappt das auch mit Cells(10,2).value



da muss man aber drauf kommen!



gruss hupsi


Es ist nie zu spät, es gibt immer eine Lösung!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: