Samle flere celler i én i Excel 2007

Er der slet ingen der kan hjælpe mig bare lidt på vej, bare med første del af opgaven, fra flere celler til én celle?

Skal prøve lidt senere

Rem VBA-kode indsættes under Ark1
rem =============================
Dim antalMax As Integer, tæller As Integer, pladsNr As Integer
Dim sidsteRæk As Integer
Dim samling As String, ræk As Integer
Public Sub samlingAfCeller()
    antalMax = InputBox("Tast antal", "Antal pr. celle", 300)
    tæller = 0
    pladsNr = 0
   
    sidsteRæk = Range("C65536").End(xlUp).Row

    For ræk = 1 To sidsteRæk
        samling = samling & Range("C" & ræk) & ";"
        tæller = tæller + 1
        If tæller = antalMax Then
            Sheets(2).Activate
       
        Rem Test hvilken kolonne
            ActiveSheet.Range("B2").Offset(pladsNr, 0).Select
            Selection = samling
           
            ActiveSheet.Range("C2").Offset(pladsNr, 0).Select
            Selection = tæller
           
            tæller = 0
            samling = ""
            pladsNr = pladsNr + 1
        End If
    Next ræk
   
Rem sidste pulje
    If tæller > 0 Then
        ActiveSheet.Range("B2").Offset(pladsNr, 0).Select
        Selection = samling
       
        ActiveSheet.Range("C2").Offset(pladsNr, 0).Select
        Selection = tæller
    End If
End Sub

Har du prøvet koden?

???

Ja sagen er klaret, undskyld det sene svar, men alvorlig sygdom gjorde jeg havde andre prioriteter

Mange tak for hjælpen til dem der bidrog med viden :-)

Ok så kan du jo blot acceptere #3

Venligst lukke denne tråd

Hvordan gør jeg det? skal jeg bare skrive lukket?

Hvis du har fået et svar, som du kan anvende så ACCEPTERER du blot dette - så får forslagsstilleren points.
Hvis det modsatte er tilfældet - lægger du selv et SVAR og ACCEPTERER dette.

Du skal ikke besvare indlæg med SVAR - men med KOMMENTAR.
SVAR er normalt kun fra forslagsstillere. Kun hvis du selv lukker tråden når der ikke er anvendelige forslag.

Tak for info.
Opgaven er løst og sagen lukket

Tråden er ikke lukket før du acceptere et Svar