vert.zoeken vba uit andere werkblad

[beer58]

Hallo Forum.

Ik heb een userform met een checkbox, die netjes de data laat zien van een benoemde tabel

Deze benoemde tabel heeft twee kolommen, in de eerste kolom staat een uitgebreide tekst en in de tweede kolom staat de afkorting die later wordt weggeschreven in een excelsheet



Ik probeer via de afvragen van de Comb_frequentie de verkorte code te vinden in de benoemde tabel frequentie en deze later op te slaan in een ander werkblad

Ik zoek dus eigenlijk deze functie binnen vba

'Begin controle frequentie

Dim hoevaak As String

If Comb_frequentie <> "" Then
hoevaak = vert.zoeken(Comb_frequentie, Frequentie, 2, 0)

'einde controle frequentie

Waarbij comb_frequentie de zoekgegeven die we selecteren bij de combobox
frequentie is een benoemde range in het tabblad stamgegevens
2 = de waarde in kolom bij de gekozen comb_frequentie
in hoevaak komt de code die vert.zoeken vind in kolom 2


Alvast bedankt voor uw medewerking

 

[HSV]

Laad alle gegevens in de Comb_frequentie.
Bij een keuze heb je gelijk de waarde van Column(1) van de combobox.

 

[beer58]

de combobox laad netjes de tabel frequentie om een keuze te maken zoals beschreven onder rowsource

in de routine
Private Sub Comb_frequentie_Change()
Dim aantal_keer As String
If Comb_frequentie <> "" Then
aantal_keer = Selection.Formula = "=vert.zoeken(Comb_frequentie, Frequentie, 2, 0)"
End If
End Sub
Ik neem aan dat comb_frequentie dan de waarde heeft die ik gekozen heb bij de combobox

ik heb als formule de formule neergezet die ik normaal in een excel sheet neerzet.

 

[HSV]

Dat heb je niet nodig als alle gegevens in de combobox staan.

Private Sub Comb_frequentie_Change()
 If Comb_frequentie.listindex > - 1 Then aantal_keer = comb_frequentie.column(1)
End Sub

 

[beer58]

ik krijg nu geen foutmelding
bedankt

werkt dit ook voor een checkbox of moet ik daar een andere functie plaatsen

 

[HSV]

Plaats het bestand eens met fictieve gegevens met wat de bedoeling is.

 

[beer58]

Goede morgen,

Ik wil ook bij een checkbox als deze true is, de waarde in kolom 2 ophalen van een benoemde tabel, net zoals bi een combobox

Alweer alvast bedankt

 

[HSV]

Met plaatjes kunnen we niets.

Het zal iets worden als: set c = find(checkbox1.caption).offset(,1) of met match(checkbox1.caption,jerange,0)

 

[beer58]

ik heb het al op een andere manier bedacht wat ook werkt.

Ik wil u in ieder geval bedanken voor de oplossingen die ik van u heb gekregen:thumb:
:thumb: