VBA Fortlaufende Zahl Unterpunkte
20.02.2020 11:40:27
Nico264
ich habe eine kleines Problem mit VBA, da ich nicht wirklich Erfahrungen mit VBA habe suche ich hier im Forum nach Hilfe.
Ich habe eine Tabelle mit offenen Punkten die beim Einfügen automatisch fortlaufend nummeriert werden. (Spalte A) Nun gibt es aber einen Knopf der einen Unterpunkt zu einem bestehenden Punkt generieren kann. Dieser wird dann als neue Zeile eingefügt und erhält die gleiche Zahl in Spalte A und Überschrift in Spalte G.
Nun wollte ich Fragen ob bzw wie es möglich ist das auch die unterpunkte fortlaufend nummeriert werden. Ich stelle mir das ganze ungefähr so vor:
1. Rasen mähen
2. Haushalt
2.1 Haushalt
saugen
2.2 Haushalt
abstauben
Ich hoffe das ist einigermaßen zu verstehen. Kann mir jemand auf die Sprünge helfen wie soetwas möglich ist?
Hier der bestehende Code:
Sub T_LOP_Unterpunkt_click(Optional uhu As Boolean)
'-- keine Sprache
Dim z_nummer, z_titel As Range, r_zeile, ii, i As Integer, zellwert As String
r_zeile = ActiveCell.Row
' Pr?fen zeile ob unter Filterzeile
If r_zeile > T_versteck.Range("K29").Value Then
ActiveCell.Offset(1, 0).EntireRow.Insert
'-----------Nummer schreiben ----------
Set z_nummer = Cells(r_zeile, T_versteck.Range("C2").Value)
z_nummer.Offset(1, 0).Value = z_nummer.Value
'-----------?berschrift schreiben ----------
Set z_titel = Cells(r_zeile, T_versteck.Range("C4").Value)
zellwert = z_titel.Value
ii = Len(zellwert)
For i = 1 To ii
'xxx 31.07.2008
If Mid(zellwert, i, 1) = Chr(10) Or i = ii Then
z_titel.Offset(1, 0).Value = Left(zellwert, i) ' & DateValue(Now)
Exit For
End If
Next
ActiveCell.Offset(1, 0).Select
End If
End Sub
Vielen Dank und Gruß
Nico