Overførsel fra celle til tekstboks

Prøv med

ActiveSheet.Shapes("Text Box 2").TextFrame.Characters.Text = Names("navn").RefersToRange.Value

Hvor "navn" erstattes med navnet på din navngivne celle.

Og Text Box 2 skal selvfølgelig i dit tilfælde være Text Box 1.

Takker.

Jeg havde det problem, at hvis der var mere end 200 tegn så ville den ikke overføre mere end de første 200 tegn.

Jeg fik dog løst det alligevel.

jkrons, smid et svar så du kan få dine point.

Jeg brugte lidt af din teknik.

OK.

Men tilglæde for andre, skulle du måske lige forklare, hvordan du løste problemet.

Lukker du lige?

Her er hvordan jeg løste mit problem (Jeg skulle opsamle delkonklusioner fra en del underark til en tekstboks afhængig af nogle svar på de enkelte ark).

Sub Dankonklusioner()
Dim c As Integer
Sheets("konklnotat").Select
c = 0

For rens = 1 To 25 ' Loop 25 gange da RensKonklusion kun fjerner de første 200 tegn
Call Renskonklusion
Next rens

If [omskonkl1] = "Ja" Or [omskonkl2] = "Ja" Then
c = Selection.Characters.Count
Selection.Characters(c).Insert String:="Omsætning: " & [omskonklarea]
Else
End If

If [vfkonkl1] = "Ja" Or [vfkonkl2] = "Ja" Then
c = Selection.Characters.Count
Selection.Characters(c + 1).Insert String:=Chr(10) & "Vareforbrug/Produktionsomk.: " & [vfkonklarea]
Else
'
End If

...Osv.

Gibber