Avatar billede smukkemn Forsker
21. november 2019 - 09:27 Der er 5 kommentarer og
2 løsninger

Opdeling af tekster

Hej
Jeg ønsker list support og evt. læsestof til opdeling af tekster. Jeg kigger og roder med følgende problemstillinger:

1. Opdel en tekst efter 40 tegn, dog ikke midt i et ord
2. Fjern X-antal tegn først i teksten
3. Fjern X-antal tegn sidst i teksten
4. Fjern alt efter et tegn – ex. /
5. Start alle varetekster med stort bogstav
6. Om 2 tekstfelter er ens og hvis ikke hvad er forskellen
7. Kopiere en kolonne over i en anden kolonne – når der er sat filter

Tak.
Avatar billede Juul Forsker
21. november 2019 - 09:30 #1
Så hvis jeg anbefale dig at læse op på SØG funktionen eller FIND, HØJRE og VENSTRE, STORT.FORBOGSTAV :-)
Avatar billede smukkemn Forsker
21. november 2019 - 09:44 #2
Enig. Jeg arbejder med de omtalte funktioner.
Mine udfordringer ligger i at fjerne dele af teksten. Jeg kan opdele efter mellemrum, tegn, opdel i kolonner osv.
Jeg søger efter eksempler. Jeg skriver, hvis jeg finder dem.
Avatar billede Jan Hansen Ekspert
21. november 2019 - 10:23 #3
denne udf kan løse punkt 1

Option Explicit
Dim MyTekst As String, NewTekst As String
Dim Arr() As String
Dim Count As Integer, tæl As Integer, LastWord As Integer
Function Split40(Tekst As Variant) As String
    Application.Volatile
    MyTekst = Tekst
    Arr = Split(MyTekst)
    tæl = 0
    For Count = LBound(Arr, 1) To UBound(Arr, 1)
        tæl = tæl + 1 + Len(Arr(Count))
        If tæl > 40 Then
            LastWord = Count - 1
            Exit For
        End If
        LastWord = Count
    Next
    For Count = LBound(Arr, 1) To LastWord
        NewTekst = NewTekst & Arr(Count) & " "
    Next
    Split40 = NewTekst
    NewTekst = ""
    Erase Arr
End Function
Avatar billede Daffodil Professor
21. november 2019 - 11:02 #4
Prøv og leg med disse to formler for dine punkter 2, 3 og 4

=VENSTRE(A3;FIND("/";A3)-1)
=HØJRE(A3;LÆNGDE(A3)-(FIND("/";A3)))

Teksten skal stå i A3
Avatar billede smukkemn Forsker
21. november 2019 - 11:41 #5
Hej Jan Hansen

Tusind tak.
Den sad lige i skabet. Fornemt og hurtigt!
Mogens
Avatar billede smukkemn Forsker
21. november 2019 - 11:45 #6
Hej Daffodil

2 fine formler, der bruger / som udgangspunkt. Jeg leger videre med dem.

Tak.
Avatar billede Jan Hansen Ekspert
21. november 2019 - 12:10 #7
Velbekomme
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