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

Forumthread: 600x (Inhalte 2er Zellen in eine Autoform)

600x (Inhalte 2er Zellen in eine Autoform)
01.09.2005 10:54:36
Flo
Hallo und guten Morgen an den Excel-Olymp!
Ich würde gerne rd. 600 Auto-Formen (Rechtecke) generieren, der Text ist in Zeilen angeordnet, also der Inhalt = a1 & "[Zeilenwechsel]" & a2
gibt es dafür eine elegante Möglichkeit - Die Auto-Formen will ich dann ins Visio kopieren und mit ganz, ganz vielen Pfeilen versehen...
vielen dank im vorhinein und schöne grüße aus wien
Flo
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 600x (Inhalte 2er Zellen in eine Autoform)
02.09.2005 16:50:17
RALF
Moin,
ist zwar nicht hübsch aber tut....

Sub n()
var_oeb = 50
var_hoch = 25
var_breit = 70
'Schleife für 10 Durchläufe
For i = 1 To 10
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 186#, var_oben, var_breit, var_hoch).Select
'A1 und B1, im nächsten Durchlauf dann A2, B2 usw
Selection.Characters.Text = Cells(i, 1) & Chr(10) & Cells(i, 2)
var_oben = var_oben + var_hoch
Next i
End Sub

Bisschen VBA mußt Du Dir dann doch antun
Gruß RALF
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige