Hoi,
ik ben bezig met een opdracht om te leren programmeren in VBA in Excel.
De opdracht luidt als volgt:
Waar komt de letterx als eerste voor?
woord: Testen
letterx: e
positie:
Je weet niet vooraf welk woord ingegeven wordt
Indien de letter meerdere keren voorkomt, dien je je enkel te concentreren op de eerste plaats.
De opgegeven letter kan ook helemaal niet voorkomen en dan moet er bij de positie "0" weergegeven worden
Ik heb nu als code:
Function plaats(strWoord As String, strLetterx As String) As Integer
Dim intteller As Integer
strLetterx = ""
intteller = 0
If strLetterx = "" Then
intteller = intteller + 1
strLetterx = Mid(strWoord, intteller, 1)
plaats = intteller
Else
plaats = 0
End If
End Function
Maar dit werkt helemaal niet. Ik weet dat ik eerst moet checken of de letter in het woord voor komt en zo ja dan moet de teller gaan tellen.
Wie kan mij helpen? Alvast bedankt!! Groetjes, Maud
ik ben bezig met een opdracht om te leren programmeren in VBA in Excel.
De opdracht luidt als volgt:
Waar komt de letterx als eerste voor?
woord: Testen
letterx: e
positie:
Je weet niet vooraf welk woord ingegeven wordt
Indien de letter meerdere keren voorkomt, dien je je enkel te concentreren op de eerste plaats.
De opgegeven letter kan ook helemaal niet voorkomen en dan moet er bij de positie "0" weergegeven worden
Ik heb nu als code:
Function plaats(strWoord As String, strLetterx As String) As Integer
Dim intteller As Integer
strLetterx = ""
intteller = 0
If strLetterx = "" Then
intteller = intteller + 1
strLetterx = Mid(strWoord, intteller, 1)
plaats = intteller
Else
plaats = 0
End If
End Function
Maar dit werkt helemaal niet. Ik weet dat ik eerst moet checken of de letter in het woord voor komt en zo ja dan moet de teller gaan tellen.
Wie kan mij helpen? Alvast bedankt!! Groetjes, Maud