Wie kann ich einen oder mehrere Zellenwerte in ein Textfeld schreiben (Jeder Wert in eine neue Zeile) ?
Vielen Dank - Peter.
Sub Textfeld_füllen()
wert = ActiveCell.Value
ActiveSheet.Shapes("Text Box 1").Select
Inhalt = Selection.Characters.Text
Selection.Characters.Text = Inhalt & wert & Chr(10)
ActiveCell.Select
End Sub
Dieses kannst Du mit einer Schaltfläche verknüpfen.
Gruß,
Ptonka
Sub Roberts_Steuerelemente_Textbox_füllen()
Dim myObj As OLEObject
Set myObj = ActiveSheet.OLEObjects("TextBox1")
With myObj
.Object.MultiLine = True
.Object.Text = ActiveCell.Value & vbNewLine & .Object.Text
End With
End Sub
Gruß Gerd