Zeichenkette prüfen mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function checkString(ByVal strCheck As String, ByVal Separator As String, ByVal maxNumber As Long) As Boolean Dim varTemp As Variant, lngI As Long If InStr(1, strCheck, "x") = 0 Then Exit Function If Len(strCheck) <> 10 Then Exit Function checkString = True varTemp = Split(strCheck, Separator) For lngI = 0 To UBound(varTemp) If IsNumeric(varTemp(lngI)) Then If Clng(varTemp(lngI)) > maxNumber Then checkString = False Exit Function End If End If Next End Function Sub test() Debug.Print checkString("x10xxx11xx", "x", 16) Debug.Print checkString("9x10x11x12", "x", 16) Debug.Print checkString("10x9x768x5", "x", 16) Debug.Print checkString("123xx7x456", "x", 16) End Sub

Function checkString(ByVal strCheck As String, ByVal Separator As String, ByVal maxNumber As Long) As Boolean Dim varTemp As Variant, lngI As Long, lngTemp As Long If InStr(1, strCheck, "x") = 0 Then Exit Function If Len(strCheck) <> 10 Then Exit Function varTemp = Split(strCheck, Separator) For lngI = 0 To UBound(varTemp) If IsNumeric(varTemp(lngI)) Then If Clng(varTemp(lngI)) > maxNumber Then Exit Function If Clng(varTemp(lngI)) < lngTemp Then Exit Function lngTemp = Clng(varTemp(lngI)) End If Next checkString = True End Function Sub test() Debug.Print checkString("x10xxx11xx", "x", 16) Debug.Print checkString("9x10x11x12", "x", 16) Debug.Print checkString("9x13x11x12", "x", 16) Debug.Print checkString("10x9x768x5", "x", 16) Debug.Print checkString("123xx7x456", "x", 16) End Sub

Hallo Alifa,
na ja, eigentlich hast du damit beschrieben, wie der String aussieht, aber nicht was konkret geprüft werden soll.
"die zehnstellige Zeichenkette beinhaltet die Zahlen 1 bis 16 und den Buchstaben x, der die Zahlen trennt. Die Größe der Zahlen steigt von links nach rechts"

Function checkString(ByVal strCheck As String, ByVal Separator As String, ByVal maxNumber As Long) As Boolean
Dim varTemp As Variant, lngI As Long, lngTemp As Long

If InStr(1, strCheck, "x") = 0 Then Exit Function

If Len(strCheck) <> 10 Then Exit Function

varTemp = Split(strCheck, Separator)

For lngI = 0 To UBound(varTemp)
  If IsNumeric(varTemp(lngI)) Then
    If Clng(varTemp(lngI)) > maxNumber Then Exit Function
    If Clng(varTemp(lngI)) <= lngTemp Then Exit Function
    lngTemp = Clng(varTemp(lngI))
  End If
Next

checkString = True
End Function

Gruß Sepp

Function checkString(ByVal strCheck As String, ByVal Separator As String, ByVal maxNumber As Long) As Boolean Dim varTemp As Variant, lngI As Long, lngTemp As Long If InStr(1, strCheck, "x") = 0 Then Exit Function If Len(strCheck) <> 10 Then Exit Function varTemp = Split(strCheck, Separator) For lngI = 0 To UBound(varTemp) If IsNumeric(varTemp(lngI)) Then If Clng(varTemp(lngI)) > maxNumber Then Exit Function If Clng(varTemp(lngI)) <> lngTemp + 1 And lngTemp > 0 Then Exit Function lngTemp = Clng(varTemp(lngI)) End If Next checkString = True End Function

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread