Vba und Arrays

[Freak4life]

Hiho,

ich habe da ein Problem mit Vba und einem Array.

Ich will Einträge die in einer Exceltabelle stehen in ein Wordformular einfügen lassen.

Ich habe bisher nur das hier:

Sub ExcelSheetToArray()

Const Blatt = "Tabelle1"

Dim xlMappe As Object

Set xlMappe = GetObject("C:\Eigene Dateien\Formular\Exceltest.xls")

MaxRows = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Row

MaxCols = xlMappe.Worksheets(Blatt).Cells.SpecialCells(11).Column

ReDim x(MaxRows, MaxCols)

For RowIndex = 1 To MaxRows

For ColIndex = 1 To MaxCols

x(RowIndex, ColIndex) = xlMappe.Worksheets(Blatt).Cells(RowIndex, ColIndex).Value

Next ColIndex

Next RowIndex

xlMappe.Parent.Quit

MsgBox "Die Zelle A1 enthält folgenden Inhalt: "

ActiveDocument.EditType Type:=x

End Sub