Cellen samenvoegen!!!

[ytr]

Ik heb een bestand in Excel: (vereenvoudigd)

A B C D
1 hal ho ga h
2 lo e at et?
3 wat g e a
4 is e g s
5 e v d d
6 en a g f


En ik wil bv. A1 en A2 samenvoegen, zodat ik 'hallo' krijg.
Of A3 en A4, zodat ik "wat is" krijg.
Dit hoeft niet bij een hele kolom/rij maar bij een paar cellen.
Nu doe ik:
selectie(A4) -> formulebalk -> selecteren -> CTRL+X -> selectie(A3) ->
formulebalk -> cursor aan het eind -> SPACE -> CTRL+V
om A3 en A4 samen te voegen
Dit is erg onhandig
Weet iemand hoe het sneller gaat?
=A3&" "&A4 ofzo werkt niet omdat ik samen wil voegen IN cel A3, niet in een andere cel,
dan krijg ik kringverwijzing-error

KAN IEMAND MIJ (SNEL!!) HELPEN,
dan zou ik diegene zeer dankbaar zijn!!!
Alvast bedankt voor reacties

YTR

 

[ElandeR]

De formule =A1&A2 zou toch gewoon moeten werken? Of begrijp ik je punt niet helemaal...?

 

[Thankyou]

Elander,
Je zou gelijk hebben als het in een andere cel geplaatst zou worden, echter de TS wil dit in A1 tesamen. Conculusie: Dit gaat niet met een formule, als er een mogelijkheid is gaat het via VBA.

 

[ytr]

Inderdaad, goed idee.
Misschien kan ik het met een macro (VBA dus) doen?

Maar hoe dan??

 

[danny147]

Beste ytr

Moet A3 & A4 in cel A3 ??

Met een macro dat gaat maar al die macro's aanmaken lijkt mij tijdslopend.

Een code voor A3&A4 is de volgende.

Sub samenvoegen()
[A3]  = [A3]  &" " & [A4]
End Sub

Groetjes danny. :thumb:

 

[ytr]

misschien kan het dan met:


Sub samenvoegen()
[selected.cel] = [selected.cel] &" " & [cel.under.selected.cel]
End Sub

Or something like that.

 

[Wigi]

Je mag ook eerder gestelde vragen doornemen op zoek naar een antwoord, dit is zeker in de lijn van andere vragen.

With Activecell
    .Value = .Value & .Offset(1).Value
End With

Wigi

 

[oeldere]

waarom de cellen niet met een hulpkolom samengevoegd, om deze vervolgens in de gewenste kolom in te lezen.

waarom moet alles in 1 cel worden weergegeven?
wat is het voordeel daarvan?

Met vriendelijke groeten,

Oeldere

 

[danny147]

Beste ytr

De code van Wigi wordt dan met de spatie ertussen de volgende:

Sub samenvoegen()
With ActiveCell
    .Value = .Value & " " & .Offset(1).Value
End With
End Sub

Groetjes Danny. :thumb:

 

[ytr]

@oeldere

Ik heb een woordenlijst gescand en met een OCR programa omgezet naar Excel,
maar sommige woorden worden in de woordenlijst op meerdere regels weergegeven. In Excel dus in meerdere cellen. Voor het overzetten naar een overhoorprogramma gaat dit fout dus moet ik alle meerderregelige woorden in één cel krijgen. Dit is veel werk dus vroeg ik me af hoe ik dat kan versnellen. Een macro met een sneltoets in denk in inderdaad dus de beste oplossing. Bij jou oplossing raakt alles door de war dus dat doe ik niet.
Iniedergeval bedankt en ik zal de code uittesten:thumb:

 

[Wigi]

En als de "cel eronder" leeg gemaakt moet worden:

Sub samenvoegen()
With ActiveCell
    .Value = .Value & " " & .Offset(1).Value
[b]    .Offset(1).ClearContents[/b]
End With
End Sub

 

[ytr]

bijna perfect....

(srry vor dublpost)

Het werkt!!:thumb:
Maar... een vraagje nog... hoe kan ik ervoor zorgen dat de cel eronder (waar je dus uit kopieert) leeg gemaakt wordt?

En als aller beste dat die cel gewoon helemaal verwijdert wordt waardoor de hele onderliggende kolom naar boven doorschuift...(verwijderen knop met rood kruis in start-tabblad)

Al heel erg bedankt voor het gedane, maar door dit laatste op te lossen zou het helemaal perfect zijn!:thumb:

 

[Wigi]

Maar... een vraagje nog... hoe kan ik ervoor zorgen dat de cel eronder (waar je dus uit kopieert) leeg gemaakt wordt?

Kijk je topic na, dit is reeds beantwoord geworden.

 

[ytr]

Ja, maar ik bedoel dat de cel eronder geWIST, VERWIJDERD wordt, niet leeg gemaakt

 

[Warme bakkertje]

Sub samenvoegen()
With ActiveCell
    .Value = .Value & " " & .Offset(1).Value
    .Offset(1).[COLOR="Red"]Delete[/COLOR]
End With
End Sub

 

[ytr]

:thumb: OK!
Dat werkt, PERFECT!
maar..... als ik een macro opsla, is deze alleen geldig voor dat document. En niet voor alle. Hoe kan ik dit goedkrijgen?

 

[Warme bakkertje]

Sla hem op in je persoonlijke macromap. Hierdoor wordt hij bruikbaar in al je documenten

 

[ytr]

hoe moet dat dan??
ik maakte een lege macro, in pers. werkm. , en toen ik op bewerken klikte kwam er iets met zichtbaar maken.