kennt einer eine Möglichkeit eine Text Box (Textfeld), das irgentwo in einer
Tabelle steht per Makro zu einer bestimmten Zelle z.B. H16 zu verschieben ?
Jürgen
Sub verschieben()
Dim tf As Shape
Set tf = ActiveSheet.Shapes("Text Box 1")
tf.Left = [h6].Left
tf.Top = [h6].Top
End Sub