Mit nachstehender Funktion wird in einer bestimmten Zelle immer die nächst höhere Zahl aus einer bestimmten Spalte eingetragen.
Wenn die Funktion in Zeile 1 eingetragen wird, ergibt dies 1
Wenn in Zeile 1 nichts oder keine Zahl steht, ergibt die Funktion in Zeile 2 eine 2
Wenn in Zeile 1 eine 7 steht, erigbt die Funktion eine 8, etc.
Allerdings werden auch Zahlen berücksichtigt, die in ausgeblendeten Zeilen stehen.
Frage: wie muss ich den Code erweitern, damit Zahlen, die in ausgeblendeten Zeilen stehen, ignoriert werden?
Danke und Gruss, Peter
Function pNR()
Dim zNr As Long, sNr As Long
zNr = Application.Caller.Row
sNr = Application.Caller.Column
'wenn Aufruf von Zeile 1, dann wird Wert 1 zurückgegeben
If zNr = 1 Then
pNR = 1
Exit Function
End If
Do Until WorksheetFunction.IsNumber(Cells(zNr - 1, sNr).Value)
'Variable dar nicht 1 sein, sonst wird unten Zeile 0 abgefragt
If zNr = 2 Then GoTo WEITER:
zNr = zNr - 1
Loop
WEITER:
If IsNumeric(Cells(zNr - 1, sNr).Value) Then
pNR = Cells(zNr - 1, sNr) + 1
Else
pNR = 1
End If
ENDE:
End Function