1 celler til flere og tilbage igen

Det andet link virker ikke rigtig brug denne i stedet
http://www.filedropper.com/eksempel

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.

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

Og den skal jeg smide ind i makro?

Har smidt den i en Makro og trykker afspil, så kommer denne fejl frem
Compile Error:
Expected End Sub

Kunne det tænkes at den sidste End Sub ikke var kommet med?

der står 2 End Sub i bunden

således

End Sub
End Sub

Det er en for meget :-)

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

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

#9
Du er velkommen til at sende din fil. @-adresse under min profil - så er det lettere at finde problemet.

#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?

#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 :-)

Et svar..