Nachfolgender Codeschnipsel sucht in der Spalte b die letzte Zahl und addiert eins dazu. Somit hat jeder Textblock in Spalte c jeweils die richtige Positionsnummer. funktioniert einwandfrei
Für Unterpositionen wird der selbe Code mit + 0.1 am Schluss verwendet.
Wie aber finde ich in der Spalte die letzte Ganzzahl? Nachdem die letzte Unterposition z.B 3.2 war, geht die Nummerierung für die nächste Postion mit 4.2 weiter anstelle der gewünschten 4.Ich sollte aber von der letzten vorhandenen Ganzzahl addieren können
'Nummerierung
wksOfferte.Cells(iRowT, 2).Value = WorksheetFunction.Max(wksOfferte.Columns(2)) + 1
'Unterposition
wksOfferte.Cells(iRowT, 2).Value = WorksheetFunction.Max(wksOfferte.Columns(2)) + 0.1
Vielen Dank für eure Hilfe
Grüsse und schöne Feiertage Benedikt