Moin Leute,
ich versuche eine beliebig lange Zahl aufzusplitten und in verschiedene Zellen zu schreiben.
Meine Idee bei dem Quellcode war:
Private Sub TextBox1_Change()
Dim Zahl As String
Dim Zahllänge As String
Zahl = TextBox1
Zahllänge = Len(Zahl)
Tabelle2.Range("G5") = TextBox1
Tabelle2.Range("B4") = Mid(Zahl, Zahllänge)
Tabelle2.Range("B5") = Mid(Zahl, Zahllänge - 1, 1)
Tabelle2.Range("B6") = Mid(Zahl, Zahllänge - 2, 1)
Tabelle2.Range("B7") = Mid(Zahl, Zahllänge - 3, 1)
Tabelle2.Range("B8") = Mid(Zahl, Zahllänge - 4, 1)
End Sub
Leider klappt es nur nicht! Jemand eine Idee??
|