Variabel Name Box

[Noord2011]

Beste mensen,

Wie kan me helpen,, zie omschrijving.


Het lengte van de name box Variabel wordt bepaald door de cijfer in A1.
Bijv. als A1 "5" is, name box variabel is Sheet1A10:E10
In het kort: het cijfer in A1 omzetten in letter

Alvast bedankt

 

[Roncancio]

Omzetten van een getal (t/m 26) uit de cel A1 naar een hoofdletter:

Chr(64 + [A1])

Met vriendelijke groet,


Roncancio

 

[winelover]

Bij een dynamisch benoemd bereik maak je gebruik van de functie verschuiving:

=VERSCHUIVING($A$10;0;0;1;$A$1)

Met vriendelijke groet,

Winelover

 

[Warme bakkertje]

In de bladmodule van Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        With ThisWorkbook
            .Names("Variabel").Delete
            .Names.Add Name:="Variabel", _
                RefersTo:=Worksheets("Sheet1").Range("A10:" & Chr(64 + [A1]) & "10")
        End With
    End If
End Sub