Excelarete

VBAProject

Forms

TextboxEinfüg

Info: Click the code lines to check out for further explanations

  Sub TextboxEinfügen()

      Dim Tabelle As Worksheet

      Dim box As Shape

      Set Tabelle = Worksheets("Automatisiere dein Office mit Excelarete")

      Set box = Tabelle.Shapes.AddTextbox _

      (msoTextOrientationHorizontal, 100, 100, 100, 50)

      box.TextFrame.Characters.Text = _

      Tabelle.Range("A1").Value

  End Sub