Új hozzászólás Aktív témák

• #34660 0P1 aktív tag 0P1 #34650

  Új Válasz 2017-03-26 08:54:07 #34660

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  0P1

  aktív tag

  válasz 0P1 #34650 üzenetére

  Na akkor Delila javaslata alapján módosítva :

  Function SzámKivesz(strSearch As String) As String



Dim i As Integer, tempVal As String
For i = 1 To Len(strSearch)
If IsNumeric(Mid(strSearch, i, 1)) Or Mid(strSearch, i, 1) = Application.International(xlDecimalSeparator) Then
tempVal = tempVal + Mid(strSearch, i, 1)
End If
Next

SzámKivesz = tempVal
End Function

Új hozzászólás Aktív témák