Public Function StrengDeling(Streng As String, Delimeter As String, Søg As String, Forskydning As Integer) Dim Dat As Variant, I As Integer Dat = Split(Streng, Delimeter) For I = 0 To UBound(Dat) If Dat(I) = Søg Then StrengDeling = Dat(I + Forskydning) Exit Function End If Next StrengDeling = "Fejl" End Function
Function xFind(Sel) c = Left(Sel, WorksheetFunction.Find("st", Sel) - 2) Application.Volatile For t = 1 To Len(c) If Mid(c, t, 1) = " " Then sp = t - 1 Next xFind = Right(c, Len(c) - sp) * 1 End Function
Sorry har ikke nået andet at arbejde arbejde arbejde. Og ikke haft det mindste tid til at kigge herinde. Nu er jeg på en svar og porint runde;O) Det er svært at give svaret fra min side ide jeg har splittet formlen op - så kan jeg bedre selv holde styr på havd der sker. Dvs små bidder hen over flere kolonner, som jeg så bare skjuler - idet arket kun er/var til eget brug. Tak for hjælpen LN
Synes godt om
Ny brugerNybegynder
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.