VBA en naam definitie

[Atwist]

Hallo

Is het mogelijk om de "naam" definitie te maken in VBA.
Mijn naamlijsten worden telkens door elkaar gegooit en kan er niet achter komen waardoor.
Vandaar dat ik zit te denken om deze indien mogelijk in VBA te zetten

 

[robdgr]

Bedoel je dit?:

ActiveWorkbook.Names.Add Name:="feest", RefersToR1C1:= _
        "=Feestdagen!R1C7:R40C8"

 

[Niels28]

zo?

Sub Macro1()
    ActiveWorkbook.Names.Add Name:="Test", RefersTo:=Range("A1:A27")
End Sub

Niels

 

[Atwist]

Ik zat zelf te denken aan de naamlijst in VBA

Zoals
Name="test"
en dan heeft "test"de inhoud:
rood
wit
Blauw
groen
geel

Als dit mogelijk is dan kan er via het werkblad niets meer worden gewijzig en alleen in VBA.

Maar nogmaals ik weet niet of het mogelijk is

 

[Niels28]

zo iets?

Sub Macro2()
 lijst = Array("rood", "blauw", "groen", "geel")
    ActiveWorkbook.Names.Add Name:="test", RefersTo:=lijst
End Sub

Niels

 

[Atwist]

Hallo Niels,

Ik denk wel dat dit de oplossing is, heb het in mijn userform gebouwd.
Maar de listbox laat niets zien, volgens mij staat alles goed.

Private Sub ListBox1_Click()
ListBox1.RowSource = ("=test")
If ListBox1.ListIndex >= 0 Then ListBox2.Enabled = True
End Sub

Sub lijst_test()
 lijst = Array("rood", "blauw", "groen", "geel")
    ActiveWorkbook.Names.Add Name:="test", RefersTo:=lijst
End Sub

 

[Roncancio]

Het is gebruikelijk om de listbox te vullen bij het openen (dus bij Initialize)

Private Sub UserForm_Initialize()
Lijst = Array("rood", "blauw", "groen", "geel")
ListBox1.List = Lijst

End Sub

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Dank voor je oplossing.

Ik had dit gedaan

Private Sub UserForm_Initialize()
ListBox1.RowSource = ("=test")

Maar dat werkte niet, zag later dat ik bij ("=test") geen () moest gebruiken.

 

[Roncancio]

Bij .Rowsource verwacht VBA een cellenbereik.

Met vriendelijke groet,


Roncancio

 

[Atwist]

Oke duidelijk

Heb nog een kleine vraag over jou oplossing, deze werkt heel mooi.:thumb:
Maar als ik nu het zelfde wil doen met 2 kolommen.

GZ Gruppenzeichnung

Zoals je het ook kan instellen bij eigenschappen van de listbox

 

[Atwist]

Ik dacht dat van het probleem af was dat is ook zo, maar krijg er nu en andere bij.
Heb namelijk 2 listboxen die weer naar een andere listbox kijken.

Private Sub ListBox1_Click()
ListBox7.rowsource = ListBox1.Value
ListBox8.rowsource = ListBox1.Value

Maar die werkt nu niet meer, omdat de rowsource functie is weggevallen.

Kan dit ook nog op een andere manier.

Dit heb ik al geprobeerd

ListBox7.list = ListBox1.Value

Maar dit werkt niet.

 

[Roncancio]

Niet helemaal duidelijk wat de bedoeling is maar met onderstaande code wordt listbox7 gevuld met de lijst van listbox1. Bovendien krijgt listbox7 de waarde van listbox1.

ListBox7.List = ListBox1.List
ListBox7.Value = ListBox1.Value

Met vriendelijke groet,


Roncancio

 

[Atwist]

In mijn tool heeft listbox1 4 land codes "D, NL, ENG, FRA" aan de hand hiervan wordt bepaald in welke taal de teksten moeten komen.
Listbox1 kijkt naar "land" hier staat dus de land codes.
Heb nu 4 naamlijst "D, NL, ENG, FRA" met daarin de betreffende teksten.
Met

Private Sub ListBox1_Click()
ListBox7.rowsource = ListBox1.Value
ListBox8.rowsource = ListBox1.Value

Werkte dat goed.
Maar nu met

Private Sub UserForm_Initialize()
Lijst = Array("rood", "blauw", "groen", "geel")
ListBox1.List = Lijst

Niet meer

Zo heb ik het nu

D = Array("Arbeitszeichnung", "Endgültig", "Endwurf", "Interne Kontrolle", "Vorläufig")
NL = Array("Definitief", "Interne controle", "Ontwerp", "Voorlopig", "Werktekening")

Land = Array("D", "NL", "ENG", "FRA")
ListBox1.List = Land

 

[Roncancio]

Bij het maken van een keuze in Listbox1 verschijnt in Listbox7 de items die bij de keuze van Listbox1 horen.

ListBox7.List = Range(ListBox1.Value).Value

Met vriendelijke groet,


Roncancio

 

[Atwist]

Als ik deze code gebruik krijg ik geen foutmelding, maar listbox 7 & 8 blijven leeg de listboxen reageren wel.



Heb het grote bestand erbij gedaan, zo zou het eruit moeten gaan zien en werken.

 

[Roncancio]

Als ik voor ENG of Fr kies, zie ik wel gegevens in zowel Listbox7 als Listbox8.

Met vriendelijke groet,


Roncancio

 

[Atwist]

AI verkeerde bestand

hier is het juiste.

Bekijk bijlage Tekenlijsten maken.zip

 

[Roncancio]

Volgens mij is dit juist het verkeerde bestand aangezien de bereiken niet benoemd zijn en er in de code niet verwezen wordt naar de bereiken.

Met vriendelijke groet,


Roncancio

 

[Atwist]

??????:shocked:

D = Array("Arbeitszeichnung", "Endgültig", "Endwurf", "Interne Kontrolle", "Vorläufig")
NL = Array("Definitief", "Interne controle", "Ontwerp", "Voorlopig", "Werktekening")

Land = Array("D", "NL", "ENG", "FRA")
ListBox1.List = Land

Hier heb ik deze benoemd in het

Private Sub UserForm_Initialize()

gedeelte

 

[Roncancio]

Waar staan de gegevens van D, FR, etc?
In je vorige bestand verwezen ze naar een benoemd cellenbereik.

Met vriendelijke groet,


Roncancio