Willem Blaas
Gebruiker
- Lid geworden
- 30 aug 2006
- Berichten
- 253
Dan hier de 1e vraag ahum
Geacht forum:
Ik ben me ervan bewust dat ik me (zeker voor kenners) erg krom en stuntulig uitdruk met niet de juiste woorden, maar aldoende leert men en we gaan het gewoon proberen. Dat ik (zeg maar altijd) Variant gebruik is ook niet goed maar dat is ook nog een leermoment waard, en komt nog aan bod.
Het “sturen” of de gebruiker laten “kiezen” binnen een macro heb ik al aardig onder de knie, maar nu ben ik tegen iets aangelopen waar ik na echt veel proberen nog niet uit ben gekomen. Maar ook hier zal het wel het zgn “toverwoord” zijn .
Het volgende speelt:
Wanneer ik de de gebruiker via een listbox uit een jaartal laat kiezen (welke netjes zijn ingebracht met with en end with) maar klikt deze niet aan binnen het vak (heet dit misschien, ik geef hem de focus niet ?) maar drukt vervolgens op de button voer uit is de waarde waar hij mee terugkomt Null. Wanneer je doorgaat komt het foutscherm tevoorschijn met een runtime error wat ik dus niet wil maar binnen de macro moet ik de macro dus vertellen dat wanneer de waarde Null is dat hij bv een waarschuwing moet geven. Dat moet volgens mijn bescheiden mening gebeuren op de plaats (zie schema hieronder) welke gekenmerkt is met ==kreet==, hier moet ik hem vertellen dat wanneer stroms Null is dat hij moet gaan via Then Goto naar foutmelding, en dat krijg ik dus niet voorelkaar.
Hij doet dus precies wat ik wil zolang je maar loopt langs de wetten van VBA , maarja je moet erop bedacht zijn dat er mensen zijn die dat niet doen
Strjaar is tbv het selecteren van jaartal
Stroms is tbv het selecteren van een vestiging
Private Sub Cbzien_Click()
Dim strjaar As Variant
strjaar = Lbzien1
‘’ ==kreet==
Dim stroms As Variant
stroms = Lbzien
Unload frmink_zien
Sheets(strjaar).Select
Selection.AutoFilter Field:=2, Criteria1:=stroms, Operator:=xlAnd
Foutmelding:
Geacht forum:
Ik ben me ervan bewust dat ik me (zeker voor kenners) erg krom en stuntulig uitdruk met niet de juiste woorden, maar aldoende leert men en we gaan het gewoon proberen. Dat ik (zeg maar altijd) Variant gebruik is ook niet goed maar dat is ook nog een leermoment waard, en komt nog aan bod.
Het “sturen” of de gebruiker laten “kiezen” binnen een macro heb ik al aardig onder de knie, maar nu ben ik tegen iets aangelopen waar ik na echt veel proberen nog niet uit ben gekomen. Maar ook hier zal het wel het zgn “toverwoord” zijn .
Het volgende speelt:
Wanneer ik de de gebruiker via een listbox uit een jaartal laat kiezen (welke netjes zijn ingebracht met with en end with) maar klikt deze niet aan binnen het vak (heet dit misschien, ik geef hem de focus niet ?) maar drukt vervolgens op de button voer uit is de waarde waar hij mee terugkomt Null. Wanneer je doorgaat komt het foutscherm tevoorschijn met een runtime error wat ik dus niet wil maar binnen de macro moet ik de macro dus vertellen dat wanneer de waarde Null is dat hij bv een waarschuwing moet geven. Dat moet volgens mijn bescheiden mening gebeuren op de plaats (zie schema hieronder) welke gekenmerkt is met ==kreet==, hier moet ik hem vertellen dat wanneer stroms Null is dat hij moet gaan via Then Goto naar foutmelding, en dat krijg ik dus niet voorelkaar.
Hij doet dus precies wat ik wil zolang je maar loopt langs de wetten van VBA , maarja je moet erop bedacht zijn dat er mensen zijn die dat niet doen
Strjaar is tbv het selecteren van jaartal
Stroms is tbv het selecteren van een vestiging
Private Sub Cbzien_Click()
Dim strjaar As Variant
strjaar = Lbzien1
‘’ ==kreet==
Dim stroms As Variant
stroms = Lbzien
Unload frmink_zien
Sheets(strjaar).Select
Selection.AutoFilter Field:=2, Criteria1:=stroms, Operator:=xlAnd
Foutmelding:
