AW: Umwandeln von Zellinhalt in Textfeld
07.07.2006 13:50:44
Zellinhalt
Hi,
versuchs mal so. Zur Befüllung der textbox benötigst Du keine Zwischenablage
Sub Makro1()
Dim i As Integer, Lrow As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Lrow 'Startzeile 1 bis letzte gefüllte Zelle in Spalte A
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 123#, 33.75 + i * 10, _
114.75, 24#).Select '33.75 + i * 10 bewirkt den leichten Versatz nach unten
Selection.Characters.Text = CStr(Range("A" & i)) 'statt kopieren
With Selection.Characters(Start:=1, Length:=4).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Next i
End Sub
Gruss Harald