VBS - Daten aus EXCEL auslesen

[rtd1978]

so, jetzt gibt es eine fehlermeldung:

For xCount = 2 To 3                      							'Spalte
    	For iCount = 1 To 50             							'Zeile
                  syn_id = oWorkbook1.Sheets("Tabelle1").Cells(iCount, 1).Value
                  If oWorkbook1.Sheets("Tabelle1").Cells(iCount, xCount).Value = "" Then
                         For yCount = 1 To 50
	         		If(oWorkbook2.Sheets("Tabelle1").Cells(yCount, 1).Value = syn_id) Then
	                 		zeiledatei = yCount
	         		End If
			Next
                         zwischen = oWorkbook2.Sheets("Tabelle1").Cells(zeiledatei, xCount).Value
                         oWorkbook1.Sheets("Tabelle1").Cells(iCount, xCount).Value = zwischen
	         End If
	Next
Next

Fehler: "Unbekannter Laufzeitfehler Zeile 29, Zeichen 26 -> also bei zwischen =..."

lasse die xCount-Schleife jetzt von 2 bis 3 zählen, weil in der ersten spalte ja nichts geändert werden muss.

 

[rtd1978]

so, habs jetzt hinbekommen.

it läuft.

kannst du mir trotzdem nochmal kurz helfen in bezug auf vbs allgemein. wie gesagt, ich kenn mich mit vb etc. net besonders aus.

gibt es eine doku o.ä. für alle objekte (zbsp: .Sheets, .cells, .workbooks,.........)?

ich bräuchte jetzt nämlich die anzahl der zeilen in der exceldatei. also die anzahl der gefüllten zeilen. (damit ich iCount dynamisch machen kann)

danke und gruß, René