Hente første bogstav i fornavn og efternavn

Hejsa - her er en lille funktion, brug den sådan her:

strInitialer = getInitials("Hans Henrik Pedersen")

Function getInitials(strName As String) As String
  Dim varTmp As Variant, strResult As String
  Dim n As Integer 
  varTmp = Split(strName, " ", -1)
  For n = LBound(varTmp) To UBound(varTmp)
    strResult = strResult & Left$(varTmp(n), 1)
  Next n
  getInitials = strResult
End Function

- Find selv ud af at udvide den så den understøtter bindestreger i navne (f.eks. "Jens-Jørgen Hansen").

/CS

SKØNT