• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Cellen samenvoegen maar waarden behouden

Status
Niet open voor verdere reacties.

deadbeauty

Gebruiker
Lid geworden
5 jan 2007
Berichten
202
Hoi,


Als ik 2 cellen samenvoeg met verschillende waardes, houdt ik altijd alleen de waarde van de linkse cel over.

kan ik beide waardes overhouden, en toch samenvoegen?


groetjes
 
Er is wel een mogelijkheid, maar de vraag is: staan er formules in of zijn het handmatig ingevoerde waardes. Dus kom maar op met je voorbeeldje
 
Een startertje
Voor een reeks cellen in twee kolommen
Code:
Sub Samenvoegen()
   Dim nRow As Integer
   nRow = 1
   Do Until IsEmpty(Cells(nRow, 1))
    Cells(nRow, 1) = Cells(nRow, 1) & " " & Cells(nRow, 2)
      Cells(nRow, 2).ClearContents
      Range(Cells(nRow, 1), Cells(nRow, 2)).Merge
      nRow = nRow + 1
   Loop
   Columns(1).AutoFit
End Sub

Voor een enkele cel
Code:
Sub Samenvoegen1()
    ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value
    ActiveCell.Offset(0, 1).ClearContents
    Range(ActiveCell, ActiveCell.Offset(0, 1)).Merge
End Sub

Mvg

Rudi
 
Sorry voor de late reactie :)

maar het was inderdaad alleen voor tekst :)

BEDANKT
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan