makro programmering

Læg følgende i f.eks. en knap (Command1):

Sub Command1_Click()
    Dim OrgNavn, NytNavn, a

    OrgNavn = TextBox1.Text
    a = InStr(1, OrgNavn, " ", vbTextCompare)
    NytNavn = Left(OrgNavn,1) & ". " & Right(OrgNavn, Len(OrgNavn)-b)
    MsgBox NytNavn
End Sub

Her er antaget at navnet ligger i TextBox1

Hov: en lille fejl -b  skal være: -a

strNavn=InputBox("Indtast Navn")
arSplit=Split(strNavn," ")

strForkortet=""
for i=lbound(arSplit) To Ubound(arSplit)-1
strForkortet = strForkortet & left(arSplit,1) & ". "
Next i
strForkortet = strForkortet & arSplit(ubound(arSplit))

Noget i den stil...

/Jennemaan

Øv - nu havde jeg lige skrevet følgende, og så kom der en masse i forkøbet.

Nå - du får den alligevel som en kommentar (kræver en form med en knap Command1)

Private Sub Command1_Click()
  Dim Tekst As String
  Dim Efternavn As String
  Dim FornavnBogstav As String
  Dim i As Integer
 
  Tekst = InputBox("Navn?")
 
  Efternavn = Mid(Tekst, InStr(Tekst, " "))
  FornavnBogstav = Left(Tekst, 1) & "."
  MsgBox "Navn er " & FornavnBogstav & " " & Efternavn
End Sub

Og Dim i As Integer - linien skal slettes :o)

Sådan her for at være eksakt:

Sub forkort()

Dim strNavn As String
Dim arSplit
Dim strForkortet As String
Dim i As Integer


strNavn = InputBox("Indtast Navn")
arSplit = Split(strNavn, " ")

strForkortet = ""
For i = LBound(arSplit) To UBound(arSplit) - 1
strForkortet = strForkortet & Left(arSplit(i), 1) & ". "
Next i
strForkortet = strForkortet & arSplit(UBound(arSplit))

MsgBox strForkortet

End Sub

/Jennemaan

Jens Peter Martin Hansen bliver således til J. P. M. Hansen ;o)

/Jennemaan

Jenneman.... tusind tak... det var lige det svar jeg ledte efter... du er en gud