Hey..
I'm having troubles to get info from my function, and back again to my sub.. whats wrong?
Code:
Public Sub Member()
Dim MemberID As Integer
Dim Member As Integer
Do
MemberID = InputBox("write membernumber", "which member du you want?")
TFMember= TjeckMember(MemberID)
If TFMember= False Then
MsgBox ("member not valid. try again.")
End If
Loop Until Member = 1
End Sub
Public Function TjeckMember(MemberID As Integer) As Integer
Dim IDRange As Range
Dim ID As Variant
With ThisWorkbook.Worksheets("Members")
Set IDRange = Range(Range("A2"), Range("A2").End(xlDown))
For Each ID In IDRange
If ID = MemberID Then
TFMember= True
Exit For
Else
TFMember = False
End If
Next ID
End With
End Function
Really hope you can help...
Bjede