splitte string-variabel ud i flere celler i Excel via VBA

løste det selv

strDummy = LTrim(RTrim(strDummy))
        While InStr(strDummy, "  ")
          strDummy = Replace(strDummy, "  ", " ")
        Wend
        For k = LBound(Split(strDummy, " ")) To UBound(Split(strDummy, " "))
          Sheets(strTabname).Cells(j, k + 1).Value = Split(strDummy, " ")(k)
        Next k

lukker

Lige en kommentar:

Du kan bruge Trim til både at LTrim og RTrim, og Trim$ er lidt hurtigere hvis du ved det er en string.

men trim fjerner vel også mellemrummene inde mellem ordene, ikke? Så duer det jo ikke - skal kun fjerne mellemrum før første bogstav og efter sidste bogstav

trim fjerner kun udenfor selve den string du er igang med, så ikke de mellemliggende

og Trim prøver på at konvertere dit argument til en string, hvor Trim$ springer det trin over. Ikke at det er den store optimering, alt efter hvor mange gange du skal trimme altså.

super - tak for tippene