Unternummerierung per VBA
05.01.2021 14:05:16
Dani
Ich brauche einen Denkanstoss bezüglich folgendem Problem:
Ich habe eine Tabelle welche ich eine Nummerierung eingefügt habe bestehend aus "O 20-001" Nut möchte ich das per Comandbutton bei Bedarf eine "unternumerierung" eingfügt wird. Dabei soll wie im Beispiel unten ersichtlich die nummerierung mit 002.x fortgeführt werden. (x weil die nummer fortlaufen sein soll, sprich es soll gleichzeitig geprüft werden ob eine "unternummerierung" dazu bereits vorhanden ist und dort fortfahren.)
O 20-001
O 20-002
O 20-002.1
O 20-002.2
O 20-002.x
O 20-003
So viel dazu was ich machen möchte. Folgend mein bisheriger Code:
Private Sub CommandButton3_Click() 'Unternummer einfügen
Dim Was, c, fA, b
Was = ComboBox1
With ActiveSheet.Cells
Set c = .Find(Was, LookIn:=xlValues)
Set b = c
If Not c Is Nothing Then
fA = c.Address
Rows(c.Row + 1).Insert
c.Offset(1, 0) = c
End If
End With
Unload UserForm1
End Sub
Mit meinem Code erreiche ich das der Inhalt einer Combobox gesucht wird und darunter eine neue Zeile eingefügt wird sowie der gefundene Ihnalt darunter. (Bsp. Gesucht O 20-001, gefunden und darunter O 20-001 eingefügt) Mein Ziel ist es jetzt jedoch darunter die neue Nummerierung einzufügen. Ich weiss jedoch nicht wie ich die "unternumerierung" hinkriege.
Ich denke da in die Richtung, dass ich mittels meinem definierten "b" arbeiten muss. (Verinfacht gesagt c (20-001) +0.1 wobei die 0.1 natürlich variabel sein müssete.
Für einen Tipp oder eine alternative Möglichkeit wäre ich sehr erfreut.
Vielen Dank im voraus
Gruss Dani