cellen samenvoegen - macro

[mariannevanh]

Wie kan mij helpen met het maken van een macro?
Ik wil handmatig in een Excel-sheet een of meerdere cellen selecteren en vervolgens met een bepaalde toetscombinatie de macro starten die de inhoud van de verschillende cellen, gescheiden door een CR/LF - ofwel TEKEN(10) - verplaatst naar de bovenste cel uit de selectie.
In de bijgesloten spreadsheet Bekijk bijlage teksten samenvoegen.xlsx heb ik in kolom A een voorbeeld van de originele inhoud staan en in kolom C een voorbeeld van het resultaat na het uitvoeren van de macro.

Vriendelijke groet,
Guido

 

[Cobbe]

Je deze eens testen:

Sub cobbe()
With Selection
 For i = 1 To .Count
  nz = nz & .Cells(i) & (Chr(13) & Chr(10))
 Next
Selection.ClearContents
Range("A" & .Cells(1).Row) = nz
End With
End Sub

 

[sylvester-ponte]

zonder de laatst Lf:

Sub cobbe()
With Selection
 For i = 1 To .Count
  nz = nz & .Cells(i) & (Chr(13) & Chr(10))
 Next
Selection.ClearContents
Range("A" & .Cells(1).Row) = Left(nz, Len(nz) - 2)
End With
End Sub

 

[Ginger]

En voor het "leerdoel" nog een optie...

Sub VoegSamen()

    With Selection
        Inh = Join(Application.Transpose(.Cells), Chr(10))
        .ClearContents
        .Cells(1).Value = Inh
    End With

End Sub

 

[snb]

Als exact zoals in kolom C:

Sub M_snb()
   With Selection
      .Cells(2, 1) = Join(Application.Transpose(.Offset(1).Resize(.Rows.Count - 2).Value), vbLf)
      .Offset(2).Resize(.Rows.Count - 3).ClearContents
    End With
End Sub

 

[mariannevanh]

Allereerst allen hartelijk dank!
De oplossing van cobbe plaatste het resultaat in kolom A, terwijl de door mij geselecteerde cellen in werkelijkheid (ok, zo had ik het niet aangegeven in de bijlage) ook wel uit een andere kolom kunnen komen. Ik zag echter geen mogelijkheid om de macro van cobbe aan te passen.
De macro van ginger voldoet wel.
De rest heb ik nog niet getest.

 

[Ginger]

@snb, Mooi om ook nog de variabele te skippen. :thumb:
Liep ik ook te zoeken maar vond zo ff geen oplossing.

 

[snb]

@Ginger


'Zo ff' kostte mij zo te zien '22 minuten'.