I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.