Hallo zusammen,
der untere VBA-Code gibt bei Eingabe einer 7 stelligen Zahl die ersten 5 Stellen von links einer wieder. ( Bsp. Eingabe 1234509, Betrachtung 12345)
Bisher wurden immer 7 stellige Zahlen eingetragen, die ersten 5 waren nur von Bedeutung. Jetzt sollen aber auch 8 stellige Zahlen eingetragen werden können, von denen dann jeweils die ersten 6 Stellen von links relevant sind.
Der Code soll jetzt so angepasst werden, dass bei Eingabe einer 7 stelligen Zahl die ersten 5 Zahlen relevant sind, bei Eingabe einer 8 stelligen Zahl entsprechend die ersten 6 Ziffern.
Leider bekomme ich die entsprechende if-Anweisung nicht hin.
Vielen Dank!
Sub ladeKnopf_Click()
Dim aufStr As String
Dim aufFeld() As String
Dim text As String
Dim datensatz As OracleInProcServer.OraDynaset
text = Replace(aufträgeTextBox.text, "&", ",")
aufFeld = Split(Replace(text, " ", ""), ",")
aufStr = aufStr + "(" + Left(aufFeld(0), 5)
Dim i As Integer
For i = 1 To UBound(aufFeld)
aufStr = aufStr + "," + Left(aufFeld(i), 5)
Next i
aufStr = aufStr + ")"