fortlaufende Positionsnummern
16.08.2018 10:25:51
Alba
ich habe den folgenden Code zur Automatischen Nummerierung.
Jetzt kommt es aber vor, dass ich eine Position überspringen muss trage ich diese Manuell ein sollte es nicht überschrieben werden sobald ich in der nächsten TextBox was eintrage.
Hoffe ich habe mich verständlich ausgedrückt.
Public Sub Posnummer_fortlaufend(ST_name As String)
Dim Nr As Integer, i As Integer, Von As Integer, Bis As Integer, Ab As Integer
Select Case Me.MultiPage1.Value
Case 0 ' Tab 0 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 893
Von = 113: Bis = 162
Case 1 ' Tab 1 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 943
Von = 163: Bis = 212
Case 2 ' Tab 2 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 993
Von = 213: Bis = 218
Case 3 ' Tab 3 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 999
Von = 219: Bis = 224
Case 4 ' Tab 4 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 1005
Von = 225: Bis = 230
Case 5 ' Tab 5 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 1011
Von = 231: Bis = 236
Case 6 ' Tab 6 der Multipage
Nr = Replace(ST_name, "TextBox", "") - 1017
Von = 237: Bis = 242
End Select
If Trim(Me.Controls("TextBox" & Von).Text) "" Then
Ab = Int(Me.Controls("TextBox" & Von))
Else
Me.Controls("TextBox" & Von) = "1"
Ab = 1
End If
If Nr = 0 Then Exit Sub
For i = Von To Von + Nr
Me.Controls("TextBox" & i) = Ab
Ab = Ab + 1
Next i
End Sub