Værdier der står lodret skal laves vandret med et tegn imellem

Hvis kolonnen A

=A1&;&A2&;&

Osv

som makro

Public Sub Omdan()
    Dim Data As Variant, Udstring As String, Antal As Integer, I As Integer, Celle As Variant
    Data = Selection
   
   
    Set Data = Application.InputBox( _
            prompt:="Vælg data", Type:=8)
  Set Celle = Application.InputBox( _
            prompt:="Vælg output celle", Type:=8)
  Antal = Data.Cells.Count
  I = 1
        For Each C In Data.Cells
            Udstring = Udstring & Data(I, 1)
            If I < Antal Then Udstring = Udstring & ";"
            I = I + 1
            Next
   
  Range(Celle.Address) = Udstring
End Sub

der var lige lidt ændringer

Public Sub Omdan()
    Dim Data As Range, Udstring As String, Antal As Integer, I As Integer, Celle As Variant, C As Range

    Set Data = Application.InputBox( _
              prompt:="Vælg data", Type:=8)
    Set Celle = Application.InputBox( _
                prompt:="Vælg output celle", Type:=8)
    Antal = Data.Cells.Count
    I = 1
    For Each C In Data.Cells
        Udstring = Udstring & Data(I, 1)
        If I < Antal Then Udstring = Udstring & ";"
        I = I + 1
    Next
    Range(Celle.Address) = Udstring
End Sub