Celinhoud

[RuudB]

beste mensen,

Kan iemand me vertellen hoe ik in 1 cel verschillende gegevens uit eveneens verschillende cellen onderelkaar kan laten plaatsen?
bijvoorbeeld:
ik heb een activiteit, tanken.
om te kunnen tanken dien ik 3 stappen te nemen,
1. uitstappen,
2. tankdop openen
3. slurf in de tankmond steken

de 3 activiteiten staan ieder in een afzonderlijke cel. en dienen in chronologische volgorde onder elkaar in 1 cel komen te staan.

Hoe krijg ik dit voor elkaar?

alvast dank!

 

[puppie]

Welkom bij Helpmij.nl

In welk studie wordt deze vraag gesteld??

 

[RuudB]

Studie? ik be serieus bezig met een kalender.
er dienen meerdere activiteiten in 1 cel te komen...

 

[puppie]

Kijk nu wordt de vraag alweer een stukje anders.
je kunt beter iets te veel informatie geven dan te weinig.
Maar wacht even op het avond gloren dan zijn er een paar van de experts aanwezig in dit forum die je misschien wel kunnen helpen.

 

[RuudB]

Laat ik het hopen, ik zit om een oplossing verlegen..
alvast dank

 

[HierEnNu]

Ik had de volgende formule bedacht:

=(A1&HERHALING(" ";CEL("breedte";B1)*2-LENGTE(A1)))&(A2&HERHALING(" ";CEL("breedte";B1)*2-LENGTE(A1)))&A3

waarbij de verschillende acties in de cellen A1 t/m A3 staan.

Groeten,

M.

 

[Wigi]

Maar wacht even op het avond gloren dan zijn er een paar van de experts aanwezig in dit forum die je misschien wel kunnen helpen.

Zet je 5 cellen onder elkaar in B1:B5.

Voer dan deze macro uit.

Option Explicit
Option Base 1

Public Sub Voegsamen()
    Dim arrSubParts() As String
    Dim l As Long
    
    Application.ScreenUpdating = False
    
    ReDim arrSubParts(Range("B1:B5").Rows.Count)
    
    For l = 1 To Range("B1:B5").Rows.Count
        
        arrSubParts(l) = Range("B1:B5").Cells(l)
    
    Next
    
    Range("A5").Value = Join(arrSubParts, Chr(10))
    
    Application.ScreenUpdating = True

End Sub

Wigi

 

[RuudB]

Dank voor jullie reacties, al komt deze wat laat! excuus.
ik heb er direct geen gebruik van gemaakt, maar inmiddels wel voor andere activiteiten.

hartelijk dank

 

[Wigi]

Zet de vraag nog op opgelost aub.