ich habe ein Problem bei der automatisierten Nummerierung von Zeilen.
Ich möchte in einer Spalte alle Zeilen fortlaufend nummerieren, solange die Nachbarspalte nicht leer ist. Dabei müssen auch 2 Spalten übersprungen werden, die farbig sind. Das Überspringen hab ich hinbekommen, leider klappt es noch nicht mit der Nummerierung bis zur letzten Zeilen.
Sub nummerieren()
Dim i As Long
Dim Zeilen As Integer
Range("E17").Select
Zeilen = Selection.CurrentRegion.Rows.Count
For i = 17 To Zeilen
If Cells(i, 1).Interior.ColorIndex = xlNone Then
Cells(i, 1).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
End If
Next i
End Sub
https://www.herber.de/bbs/user/111973.xlsm
Könnt ihr mir dabei helfen?
Lieben Dank
stoibech