Avatar billede redfan Juniormester
14. marts 2016 - 08:42 Der er 13 kommentarer og
1 løsning

1 celler til flere og tilbage igen

Hej

Jeg har dette ark
http://s000.tinyupload.com/?file_id=02058451394036623434

Jeg har behov for at dele en kommasepareret celle ud i flere celler, hvorefter jeg skal kunne tilføje ekstra tekst, som så igen skal kunne samles i en celle igen komma separeret.
håber det giver mening.
Avatar billede redfan Juniormester
14. marts 2016 - 08:45 #1
Det andet link virker ikke rigtig brug denne i stedet
http://www.filedropper.com/eksempel
Avatar billede xl-Enthusiast Ekspert
14. marts 2016 - 10:58 #2
Hvis du er interesseret i en fil, hvor jeg viser, hvordan det kan løses, så send mig (eventuelt i en personlig besked) en mailadresse jeg kan sende filen til.
Avatar billede supertekst Ekspert
14. marts 2016 - 11:22 #3
Const StartRække = 3
Dim ræk As Integer, antalRækker As Integer, antalKolonner As Integer
Dim tekst As String, tabel As Variant, i As Integer, h As Integer
Public Sub navneOpdeling_1()
    antalRækker = Cells(Rows.Count, "E").End(xlUp).Row
   
    For ræk = StartRække To antalRækker
        tekst = Range("E" & ræk)
        tabel = Split(tekst, ",")
       
        For i = 0 To UBound(tabel)
            Range("I" & ræk).Offset(0, i) = tabel(i)
        Next i
    Next ræk
End Sub
Rem xxxxxxxxxxxxxxxxxx
Rem Manuel indtastning
Rem xxxxxxxxxxxxxxxxxx
Public Sub navneOpdeling_2()
    antalRækker = Cells(Rows.Count, "E").End(xlUp).Row
    antalKolonner = ActiveCell.SpecialCells(xlLastCell).Column
       
    For ræk = StartRække To antalRækker
        tekst = ""
        For h = 9 To antalKolonner
            If Range("I" & ræk).Offset(0, h - 9) <> "" Then
                Range("H" & ræk) = Range("H" & ræk) & Range("I" & ræk).Offset(0, h - 9) & ","
            End If
        Next h
       
        tekst = Range("H" & ræk)
        tekst = Left(tekst, Len(tekst) - 1)
        Range("E" & ræk) = tekst
    Next ræk
End Sub
Avatar billede redfan Juniormester
14. marts 2016 - 11:43 #4
Og den skal jeg smide ind i makro?
Avatar billede redfan Juniormester
14. marts 2016 - 11:45 #5
Har smidt den i en Makro og trykker afspil, så kommer denne fejl frem
Compile Error:
Expected End Sub
Avatar billede supertekst Ekspert
14. marts 2016 - 11:56 #6
Kunne det tænkes at den sidste End Sub ikke var kommet med?
Avatar billede redfan Juniormester
14. marts 2016 - 12:05 #7
der står 2 End Sub i bunden

således

End Sub
End Sub
Avatar billede supertekst Ekspert
14. marts 2016 - 12:18 #8
Det er en for meget :-)
Avatar billede redfan Juniormester
14. marts 2016 - 12:38 #9
Nu skriver den
Run-Time Error ´1004!:
Method ´range´of object´_Global´ failed

og så kan jeg end eller debug

trykker jeg debug markerer den denne linje
If Range("I" & ræk).Offset(0, h - 9) <> "" Then
Avatar billede redfan Juniormester
14. marts 2016 - 12:48 #10
xl-Enthusiast Fungerer i og for sig rigtig fint, men der kan komme mange linier derned af, med forskellige antal søgeord i hver, tænker jeg det hurtigt bliver meget der skal ændres hver gang
Avatar billede supertekst Ekspert
14. marts 2016 - 12:51 #11
#9
Du er velkommen til at sende din fil. @-adresse under min profil - så er det lettere at finde problemet.
Avatar billede xl-Enthusiast Ekspert
14. marts 2016 - 13:07 #12
#10

Det er selvfølgelig helt op til dig, men jeg har svært ved at se problemet. Du kan da bare udvide området for formlerne så du er sikker på at være dækket ind.

Men det er måske noget helt andet du mener?
Avatar billede redfan Juniormester
14. marts 2016 - 13:26 #13
#11
Er sendt

#12
Det er jeg med på, venter lige og ser hvad Supertekst finder ud af, men ellers kan det bruges, ville dog gerne lidt mere automatik, hvis den skal udvides og at jeg skal kunne taste ord ind manuelt som skal komme med ind i... men kan bruges :-)
Avatar billede supertekst Ekspert
15. marts 2016 - 11:07 #14
Et svar..
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester