Hi,
hier die Lösung für das Problem:
"normales" Textfeld ist in Tabellenblatt 1 und soll den Inhalt in A1 auf Tabellenblatt 2 ausgeben. Gestartet wird es mit einem Command Button:
Private Sub CommandButton1_Click()
Tabelle1.Shapes("Text Box 1").Select
Tabelle2.Cells(1, 1) = Selection.Characters.Text
End Sub
Grüße