copy/paste in Caption van label (userform)

[joske13]

Hoi.

Ik heb een hele reeks getallen, die ik wil copieeren en plakken in een label op een userform.

Ik kan de gehele reeks copieeren, en via VBA kan ik dan alle getallen in 1 keer in het label plakken, maar automatich wil me dit niet lukken.

Hooguit krijg ik de waarde van 1 cel in het label, maar geen hele reeks.

UserForm1.Label1.Caption = Sheets("sheet1").Range("B3")

geeft geen problemen, maar

UserForm1.Label1.Caption = Sheets("sheet1").Range("[B]B3:C4[/B]")

, geeft wel problemen.

Heeft er iemand een idee hoe dit op te lossen is?

Jos

 

[Hoornvan]

14joske13,

Probeer deze eens.

Private Sub UserForm_Initialize()
 Label1.Caption = Sheets("Sheets1").[B3] & [B4] & [C3] & [C4]
End Sub

 

[joske13]

helaas

Hoornvan

Ik heb de "oplossing" geprobeerd, maar helaas
www.helaas.tk

Jos

 

[Hoornvan]

Hier is mijn test file.

Zet er anders .Value achter

 

[Warme bakkertje]

Controleer eerst of de bladnaam correct is

Private Sub UserForm_Initialize()
With Sheets("Blad1")
    Label1.Caption = .[B3] & .[B4] & .[C3] & .[C4]
End With
End Sub

 

[joske13]

Ik ben bang dat ik niet geheel duidelijk ben geweest.

Op deze (jouw) manier komen alle getallen naast elkaar te staan. Maar dat is niet de bedoeling.

Ik heb een lijst met:
Kolom A datums (data?)
Kolom B namen
Kolom C gegevens
Deze rij gegevens selecteer ik, "hang" ik een filter aan, en filter ik op "naam"
De gegevens zoals ik ze dan zie, zo wil ik ze ook in mijn userform.label plakken.

Handmatig werkt dit wel (in VBA een label maken, dan "Crtl V", en alles wordt er prima in weergegeven).
Hoe ik dit echter in een VBA-code moet zien te realiseren, dat weet ik niet.

Vandaar mijn vraag.

Jos

 

[Warme bakkertje]

Dan is een voorbeeldbestandje hier op z'n plaats, want ik heb hoegenaamd geen idee waar jij heen wil.

 

[Hoornvan]

Bedoel je het dan zo?

Private Sub UserForm_Initialize()
 With Sheets("Blad1")
    Label1.Caption = .[B3] & " " & .[C3] & vbCr & .[B4] & " " & .[C4]
End With

 

[joske13]

Wat ik bedoel

Ik heb een voorbeeldje gemaakt, waarin je kan zien wat ik bedoel, wat ik wil.

Ik neem aan, en hoop dat het nu duidelijk is.


Bij voorbaad dank voor de genome moeite

Jos

 

[Hoornvan]

joske13 ,

Lijkt dit er een beetje op?

Kijk anders even naar het bestandje van Jack Nouws

 

[joske13]

joske13 ,

Lijkt dit er een beetje op?

Hoornvan, Dit lijkt erop te lijken

Maar het lijkt er ook op dat jij "alleen" het label hebt vervangen door een textbox???
Is dit dan niet mogelijk met een label?

Simpel doch doeltreffende oplossing.



Hartelijk dank
Jos

 

[Hoornvan]

joske13,

Hoornvan, Dit lijkt erop.

Maar het lijkt er ook op dat jij "alleen" het label hebt vervangen door een textbox???
Is dit dan niet mogelijk met een label?

Om het in een label te krijgen wil me niet lukken, misschien dat het bij Warme bakkertje wel lukt.

Hier is nog een file gebaseerd op de file van Jack Nouws.

 

[joske13]

joske13,

Om het in een label te krijgen wil me niet lukken, misschien dat het bij Warme bakkertje wel lukt.

Ik wil jullie samen, de warme bakker en Haarnvan harelijk danken.
Ik dacht dat het beter was om het in een label te plaatsen,maar nu blijkt het beter te zijn als het in een "listbox"staat, omdat ik dan een schuifbalk heb, zodat het niet uitmaakt hoeveel data er weg wordt geschreven.

Ik zet dit item dus op "opgelost"

Nogmaals dank, en ik zal nog eens vaker gebruik maken van dit forum.

Jos
www.joske.tk

 

[HSV]

Waarom indirect.

Private Sub UserForm_Initialize()
sq = Sheets("gegevens").[G1:I20]
ListBox1.List = sq
End Sub

i.p.v.

Private Sub UserForm_Initialize()
ListBox1.List = Sheets("gegevens").[G1:I20]
End Sub