Label toekennen aan een specifieke cel met inhoud

[RobBlok]

Beste mensen,

Uit de help van Excel word ik niet veel wijzer.

In een Macro heb ik een cel met een specifieke waarde.
Afhankelijk van het aantal regels staat deze cel altijd onderaan het werkblad.

Bijv. op Regel 214 in kolom 2
een andere keer staat deze op regel 107 in kolom 2
Het aantal regels is dus variabel en daarin staat een formule voor de berekening van die waarde

Nu zou ik graag die specifieke cel een label mee willen geven zoals "Aantal" zodat ik in de adressering wanner ik die inhoud wil raadplegen alleen maar de absolute cel "Aantal" kan opvragen.
Iemand met een suggestie??

Bijvoorbaat dank,

Rob

 

[Gijsbert1]

In een Macro heb ik een cel met een specifieke waarde.

Welke Macro? welke cel? welke specifieke waarde?

Rob, misschien is het handig om op zijn minst een voorbeeld van de code te posten. maar beter nog een voorbeeld-bestand!

 

[RobBlok]

Dag Gij,

Bedankt voor je reactie

hier het stukje code waar het om gaat

For Tellingkolom = 2 To LaatsteKolom
        If Tellingkolom = 2 Then
            Cells(RegelAantallen, Tellingkolom).Select
            strFormula = "=SUBTOTAL(103,R[-" & LaatsteRegelTijdwensen & "]C[-1]:R[-7]C[-1])"
            ActiveCell.FormulaR1C1 = strFormula
        End If
        If Tellingkolom = 3 Then
            Cells(RegelAantallen, Tellingkolom).Select
            strFormule = "=COUNTA(R[-" & LaatsteRegelTijdwensen & "]C[-2]:R[-7]C[-2])"
            ActiveCell.FormulaR1C1 = strFormule
        End If
        
        If Tellingkolom = 4 Then
            Cells(RegelAantallen, Tellingkolom).Select
            Selection.NumberFormat = "0%"
            ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-1]"
            Cells(1, 1) = Cells(RegelAantallen, Tellingkolom)
        End If
        
    
        If Tellingkolom > TellenVan Then
            Cells(RegelAantallen, Tellingkolom).Select
            strFormule = "=COUNTA(R[-" & LaatsteRegelTijdwensen & "]C:R[-7]C)"
            ActiveCell.FormulaR1C1 = strFormule
            Cells(RegelProcenten, Tellingkolom).Select
            Selection.NumberFormat = "0%"
            [COLOR="#FF0000"]ActiveCell.FormulaR1C1 = "=R[-1]C/R114C2"[/COLOR]
            Selection.Style = "Percent"
            Columns(Tellingkolom).ColumnWidth = 4.9
        End If
    Next

Dit is een absolute adressering NAAR DEZE CELL
Die cell zou ik het liefst een label willen meegeven zodat ik daar in één keer in alle berekeningen naar toe kan springen zonder steeds een relatief adres te moeten aanmaken.

Weet jij hiervoor een oplossing wellicht?

 

[RobBlok]

Inmiddels een oplossing gevonden met de code

ActiveWorkbook.Names.Add Name:="Aantal", RefersToR1C1:= _
        "='Tijdwensen docenten'!R114C2"
    ActiveWorkbook.Names("Aantal").Comment = ""

Hier ga ik maar eens mee stoeien.

Alsnog bedankt,

Rob