Hi @ all
Folgendes ist an diesem Code auszusetzen:
Dim i As Integer
*****
For i = 0 To 5
If Sheets(1).Cells(17 + i, 2) = "" Then
Sheets(1).Cells(17 + i, 2).Formula = i + 1
Exit For
ElseIf Not Sheets(1).Cells(17 + i, 2) = "" Then
Sheets(1).Cells(17 + (i + 1), 2).Formula = i + 2
Exit For
End If
Next i
******
Mit einem command Button wird dieses Sub aufgerufen und es soll in der B Spalte in Zeile 17 die Nummerierung mit 1 begonnen werden, wenn nichts in dieser Zeile steht.
Steht jedoch etwas in dieser Zeile soll erst in der nächsten freien Zeile mit der nächsten Nummer weiternummeriert werden.
Und zwar schritt für schritt
könnt ihr mir bitte helfen wie ich die Schleife richtig unterbreche, bzw wie ihr das Lösen würdet?
Vielen Dank!!!
|