Imort von Zellbereichen.
14.12.2018 14:06:25
Zellbereichen.
ich möchte ab einer aktiven Zelle ein Textfeld mit einer vordefinierten Größe erstellen.
Bisher habe ich:
Sub Textfeld()
Dim Text As String
Startzelle = ActiveCell.Address
Text = InputBox("Welcher Text soll in das Textfeld eingetragen werden?")
If Text = "" Then Exit Sub
Ab hier war der Rekorder dran, weiß aber nicht wie ich die Zellposition, die Größe und den Text _
hinein bekomme:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 675#, 474.75, _
225#, 22.5).Select
Selection.Characters.Text = Text
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Gruß
Bernd