ich benötige Unterstützung. Ich habe mir einen Code aus dem Internet rausgesucht der für mein Vorhaben richtig sein könnte und habe ihn versucht anzupassen. Bin jedoch kläglich gescheitert. Mein Ziel war es jedes Ergebnis aus der For Each Schleife in eine einzelne Stringvariable 1 bis 20 zu speichern, so dass ich diese später mit weiterem Code abrufen kann. Als Fehler wird beim Ausführen die erste Zeile mit strText Code angegeben, dass er ein Datenfeld erwartet.
Sub tabAnsprechen()
Dim doc As Document
Dim i As Integer
Dim tbl_1 As Table
Dim zelle As Cell
Dim strText As String
Set doc = Application.ActiveDocument
If doc.Bookmarks.Exists("x2") Then
'Tabelle mit der entsprechenden Textmarke wurde gefunden, die gesamte Tabelle wird daraufhin als Range definiert
Set tbl_1 = doc.Bookmarks("x2").Range.Tables(1)
'alle Zellen auslesen
i = 1
For Each zelle In tbl_1.Range.Cells
strText(i).Value = zelle.Range.Text
strText(i).Value = Left(strText(i).Value, Len(strText(i).Value) - 2)
i = i + 1
Next zelle
MsgBox strText(9)
Else
MsgBox "Tabelle wurde nicht gefunden", vbInformation
End If
End Sub
Gruß Rommi