Fehlermeldung '9' ... Hilfe!
18.06.2005 20:07:30
00011011
Nachfolgendes Programm wird in projekt.xls gestartet und soll die Daten aus der Spalte B der Tabelle Ablaufplan in Workbook test.xls in die Spalte AH in Projektübersicht in projekt.xls kopieren. Anschließend soll die Datei test.xls wieder (ohne zu speichern) geschlossen werden.
Sub VA()
Dim Zeile As Integer
Dim Projekt As String
Workbooks.Open "C:\test.xls"
For Zeile = 3 To 300
'(A) siehe unten
Projekt = Workbooks("test.xls").Worksheets("Ablaufplan").Cells(2, Zeile).Value
Workbooks("projekt.xls").Worksheets("Projektübersicht").Cells(34,Zeile).Value = Projekt
Next Zeile
Workbooks.Close("test.xls")
End Sub
Die Datei test.xls wird ohne Probleme geöffnet, allerdings bircht Excel das Programm an der Stelle (A) ab und gibt die Fehlermeldung :
Laufzeitfehler '9': Index außerhalb des gültigen Bereichs
Ich hoffe irgendjemand kann mir da weiterhelfen.
Danke und Gruß aus Köln
Christian
Anzeige