Mit der Funktion PNR habe ich bezogen auf eine bestimmte Spalte eine fortlaufende Zählung.
Optional kann ich die ausgeblendeten Zeilen ignorieren.
Nun habe ich versucht, die Funktion umzubauen, dass nicht eine Zahl hochgezählt wird (1,2,3, ...), sondern die Buchstaben - analog der Spaltenbezeichnungen.
Leider bin ich gescheitert.
Wer kann mir weiterhelfen?
Gruss, Peter
https://www.herber.de/bbs/user/76623.xls
Function pNR(dummy As Date, Optional xNull As Long)
'ohne optinales Argument 1 werden ausgeblendete Zellen ignoriert
Dim zNr As Long, sNr As Long, TabName As Worksheet
Set TabName = Application.Caller.Worksheet
With TabName
zNr = Application.Caller.Row
sNr = Application.Caller.Column
Do
zNr = zNr - 1
If zNr = 0 Then Exit Do
If .Rows(zNr).Hidden = False Or xNull = 1 Then
If WorksheetFunction.IsNumber(.Cells(zNr, sNr)) Then Exit Do
End If
Loop
If zNr = 0 Then pNR = 1 Else pNR = .Cells(zNr, sNr) + 1
End With
End Function