hulp bij maken formule

[mariannevanh]

Ik meende dat het heel gemakkelijk was, maar toch lukt het me niet. Wie helpt mij het maken van een formule om mijn tekstbestand met diverse bijbelvertalingen in de juiste lay-out te krijgen.
In de bijlage een gedeelte van de tekst (kolommen A t/m D). In de kolommen F en G wordt de tekst weergegeven zoals ik hem hebben wil. Dus als in kolom A geen getal staat (er begint dan geen nieuw bijbelvers) , moet de tekst van kolom B worden toegevoegd aan die van de cel daarboven.
Omdat de spreadsheet meer bijbelvertalingen bevat, zijn sommige vertalingen over meer regels uitgesmeerd. Daarom zijn de regels 8 t/m 11 leeg.

Ik probeerde een en ander met een ALS-formule, maar dat lukt mij niet.
Wie helpt mij een goedwerkende formule te bouwen?

Vriendelijke groet,
Guido van Harten

 

[Conseclusie]

Met een macro is het iets eenvoudiger:

Sub BijbelTekst()
Sheets("Blad1").Activate
Columns("F:G").ClearContents
With Worksheets("Blad1")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For Rij = 1 To LastRow
    If Not IsEmpty(Cells(Rij, 3)) Then
        TekstRij = Rij
        Cells(TekstRij, 6) = Cells(Rij, 3)
        Cells(TekstRij, 7) = Cells(TekstRij, 7) & Cells(Rij, 4) & vbCrLf
        Else:
            Cells(TekstRij, 7) = Cells(TekstRij, 7) & Cells(Rij, 4) & vbCrLf
    End If
Next Rij
End Sub

 

[MarcelBeug]

Bekijk bijlage helpmij-1012 MB.xlsx

Met een formule kan ook, maar dan heb je een hulpkolom nodig (i.c. kolom E).

 

[mariannevanh]

Met een formule kan ook, maar dan heb je een hulpkolom nodig (i.c. kolom E).

Omdat ik niet handig ben in macro's maken (c.q. aanpassen) heb ik allereerst het werkblad van MarcelBeug bekeken. Het idee is leuk, echter er zit toch een fout in:
de tekst uit D3 is niet terug te vinden in kolom G.
In de totale spreadsheet komen veel meer situaties voor waar meer dan 2 cellen onder elkaar staan zonder een bijbehorend cijfer in de kolom links daarvan (lees: bijbelverzen die uit meer dan 2 regels bestaan).

Overigens, tip voor MarcelBeug: de formule in hulpkolom E kun je naderhand kopiëren naar de formule in kolom G. Als er dan in kolom G geen verwijzing meer zit naar hulpkolom E kun je die kolom verwijderen.

E1:

=D1&ALS(C2<>"";"";ALS(D2<>"";TEKEN(10)&D2;""))

en
G1:

=ALS(C1<>"";E1;"")

kun je vervangen door:

=ALS(C1<>"";D1&ALS(C2<>"";"";ALS(D2<>"";TEKEN(10)&D2;""));"")

Vriendelijke groet,
Guido

 

[MarcelBeug]

Dank voor de tip en sorry voor het foutje. Maar na correctie van het foutje gaat de tip niet meer op ...
De formule in E1 had moeten zijn:

=D1&ALS(C2<>"";"";ALS(D2<>"";TEKEN(10)&E2;""))

(Die E2 aan het einde was in de vorige versie abusievelijk D2.)

Herziene bijlage:
Bekijk bijlage helpmij-1012 MB2.xlsx

 

[sylvester-ponte]

Marcel , gaaf gevonden. :thumb:

 

[MarcelBeug]

Dank je wel, Sylvester. :d

 

[Conseclusie]

Met formules beperk je wel de mogelijkheden. Indien bv. in D8 : D11 ook teksten zouden staan werkt deze aanpak niet. Vandaar mijn eerdere suggestie om dit recursief aan te pakken met een macro.

 

[MarcelBeug]

.... Indien bv. in D8 : D11 ook teksten zouden staan werkt deze aanpak niet...

Bij mij werkt het gewoon (met de herziene bijlage in #5)... Mogelijk moet nog wel even de rijhoogte aangepast worden.

 

[Conseclusie]

:thumb: Klopt helemaal!! Mijn excuses; de rijhoogte ontnam inderdaad mijn zicht.