VBA til at tælle blødt linie skift i en celle

Du er velkommen til at sende filen - @-adresse under min profil - så skal jeg prøve..

Prøv evt.

Sub test()
    MsgBox tael(Range("A1").Value)
End Sub


Function tael(tekst As String) As Integer
    Dim i As Integer
    Dim antal As Integer
    For i = 1 To Len(tekst)
        If Asc(Mid(tekst, i, 1)) = 10 Then antal = antal + 1
    Next
    tael = antal
End Function

Jeg får lige kigget på dit kommentar

Sriv lige en løsning til pointgivning