ich möchte in einer Tabelle mittels Schaltfläche eine neue Zeile eintragen lassen. Nun muss ich in der langen Liste aber immer in einer Spalte (D bzw. 4) an eine bestimmte Zahlenfolge anknüpfen.
Ich habe folgende Zahlenketten:
2.120.1.00.00
2.120.2.00.01
2.120.2.00.02
2.120.2.00.03
2.120.2.11 'die könnte man rausnehmen
2.120.2.11.21
2.120.2.11.22
2.120.2.11.24
2.120.2.11.23
2.120.2.11.25
2.120.2.11.26
2.120.2.19 'die könnte man rausnehmen
2.120.2.19.30
2.120.2.19.31
2.120.2.19.32
2.120.2.00 'die könnte man rausnehmen
2.120.1.20.40
2.120.2.22 'die könnte man rausnehmen
2.120.2.22.41
2.120.2.22.42
2.120.2.22.43
2.120.2.22.44
2.120.2.22.45
2.120.2.22.46
2.120.2.22.47
2.120.2.22.48
Das wiederholt sich dann
z.B. 2.220.2.11.20-28 usw.
Ich möchte nun, dass das Programm erkennt, wenn ich in die Eingabemaske im Textfeld z.B. 2.120.2.11.27 eintrage, dass die Zeile unter 2.120.2.11.26 kommt.
Der aktuelle Stand meines Versuches sieht folgendermaßen aus:
'Ich habe zunächst versucht zum Test nur eine Zeile in die Tabelle zu bekommen
Private Sub CommandButton1_Click()
Dim last As Long
With ActiveSheet
x = 1
For x = 2 To lastrow
If Cells(x, 4) > "2.120.2.11.26" Then
.Cells(last, 1).Value = Me.txtName.Value
.Cells(last, 2).Value = Me.cboGruppe.Value
.Cells(last, 3).Value = Me.cboTeam.Value
.Cells(last, 4).Value = Me.txtKennung.Value
.Cells(last, 5).Value = Me.txtLogin.Value
.Cells(last, 6).Value = Me.cboBemerkungen.Value
End If
Next x
End With
Unload UserForm3
End Sub