09. marts 2014 - 11:44Der er
12 kommentarer og 1 løsning
Samle flere celler i én i Excel 2007
Hvordan samler jeg flere celler i én celle? F.eks. jeg har disse tekster i kolonne C på Ark1 N09ND5A N0Y2ETE N0Y6C69 N00YUDP N0X4XGD N0UTNUF N005YCC N0Y7NWC N003RKF N0Y2HD8 Dem vil jeg gerne have samlet i celle B2 på Ark2, så de står efter hinanden adskilt med ; (semikolon) N09ND5A;N0Y2ETE; Jeg ved ikke hvor mange tekststrenge der er, det er forskelligt fra gang til gang. Derudover vil jeg gerne have at makroen starter med msgboks, hvor jeg skriver, hvor mange tekststrenge der skal være i hver celle på Ark2, og makroen skal tælle antallet og skrive det i C2 på Ark2, default 300, men er der flere end 300 skal den sætte de næste i B3 og skrive antallet i C3, osv.
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
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.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.