Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zellen Inhalt - Automatisch Text Feld

Forumthread: Zellen Inhalt - Automatisch Text Feld

Zellen Inhalt - Automatisch Text Feld
30.06.2022 08:25:09
Arthur
Guten Morgen
Ich habe relativ viele Zelleninhalte, welche ich kopieren müsste, ein Textfeld zeichnen und dann den kopierten Inhalt ins Textfeld einfügen.
Gibt es eine Möglichkeit alle Zellen zu markieren und dann generiert es mir Anzahl X Texffelder mit entsprechenden Inhalt?
Viele Grüsse
Arthur
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Inhalt - Automatisch Text Feld
30.06.2022 16:55:07
ChrisL
Hi Arthur
Ist mir zwar schleierhaft, wieso man einen Textfeld-Salat veranstalten sollte, aber wenn du unbedingt willst... :)
Zur Positionierung hast du nichts gesagt, darum habe ich die Labels mal irgendwo hingepflanzt.
cu
Chris

Sub t()
Dim sh As Shape
Dim c As Range, x As Integer
For Each c In Selection
Set sh = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 50, x, 100, 100)
sh.TextFrame2.TextRange.Characters.Text = c.Text
x = x + 50
Next c
End Sub

Anzeige
AW: Zellen Inhalt - Automatisch Text Feld
01.07.2022 05:41:45
Arthur
Vielen Dank Chris!
Funktioniert hervorragend.
Gruss
Arthur

Forumthreads zu verwandten Themen

Anzeige