Kann mir jemand sagen warum dieses Macro nicht funktioniert?
Sub TextBoxInZelle()
Dim txtBox572 As TextBox
Dim Bereich As Range
Set txtBox572 = ActiveSheet.DrawingObjects(1)
Set Bereich = ActiveSheet.Range("AL6")
Bereich = txtBox752.Text
End Sub
Danke für eure Hilfe!
LG
Björn