In meiner Beispieldatei möchte ich in E1 beginnend alle Belegnr. aufgelistet haben, die in Spalte B den Wert "leer" haben.E2 wäre dann das nächste zu befüllende Feld.
Ich habe dies schon mit einer For next Schleife und if then probiert, aber irgendwie bekomme ich den Zähler nicht richtig hin.
Sub Fehlerauflisten()
For i = 2 To 13
If Cells(i, 2) = "leer" Then
For k = 2 To 13
ElseIf Cells(k, 4) = "" Then
Cells(k, 4) = Cells(i, 2).Value
Else
Next k
End If
Next i
End Sub
Anliegend meine Bsp.Datei. Hat jemand eine IDEE?
https://www.herber.de/bbs/user/84366.xlsx