Hallo allemaal,
In een excel macro heb ik de volgende code die invoergegevens doorvoert naar een database mits ze aan bepaalde eisen voldoen.
Bijvoorbeeld: de invoerbalk moet helemaal ingevuld zijn, dan pas mogen de gegevens door gevoerd worden
ook controleert de macro of het id nummer aanwezig is, zoja, dan moeten de gegevens overschreven worden, zo nee, dan kunnen de gegevens gewoon ingevoerd worden.
Nu krijg ik de error fout 2023 / fout 13: typen komen niet overeen en de 3e regel in de code hieronder "Dim Controleren4ID As Long" kleurt geel.
Ik heb hierbij een id nummer ingevoerd dat nog niet aanwezig is dus zou hij deze moeten invoeren.
CODE:
Sheets("Database Weging,Voeding").Select
Range("C3").Select
Dim Controleren4ID As Long
Do Until Selection = Empty Or Selection = ID
Wat gaat er fout? Als ik een id nummer invoer dat wel bekend is, dan gaat hij overschrijven en dat gaat gewoon goed.
Nog een vraag die hiermee te maken heeft
Ik heb ook eens een id nummer ingevoerd dat eveneens niet bekend is. Ik heb dan een if/else structuur gemaakt waarbij het zo gemaakt is dat als het id nummer bekend is: --> GoTo overschrijven
als het id nummer niet bekend is: --> GoTo invoeren
Het id nummer is niet bekend en er komt dan vervolgens een error in onderstaande code, hetgeen begrijpelijk is want dit is de code "overschrijven"
Hoe kan dit? De error is ditmaal fout 1004, Methode Range van object_Global mislukt
CODE:
overschrijven: 'Dus het toom id met weegstadium bestond al en daarom nu overschrijven
Sheets("Invoer Weging").Select
Range("G6:G6").Copy
Sheets("Database Weging").Select
Range("I" & Rij).Select
ActiveSheet.Paste
Ik hoop dat er iemand mij vooruit kan helpen. Alvast vriendelijk bedankt!
Groeten Rick
In een excel macro heb ik de volgende code die invoergegevens doorvoert naar een database mits ze aan bepaalde eisen voldoen.
Bijvoorbeeld: de invoerbalk moet helemaal ingevuld zijn, dan pas mogen de gegevens door gevoerd worden
ook controleert de macro of het id nummer aanwezig is, zoja, dan moeten de gegevens overschreven worden, zo nee, dan kunnen de gegevens gewoon ingevoerd worden.
Nu krijg ik de error fout 2023 / fout 13: typen komen niet overeen en de 3e regel in de code hieronder "Dim Controleren4ID As Long" kleurt geel.
Ik heb hierbij een id nummer ingevoerd dat nog niet aanwezig is dus zou hij deze moeten invoeren.
CODE:
Sheets("Database Weging,Voeding").Select
Range("C3").Select
Dim Controleren4ID As Long
Do Until Selection = Empty Or Selection = ID
Wat gaat er fout? Als ik een id nummer invoer dat wel bekend is, dan gaat hij overschrijven en dat gaat gewoon goed.
Nog een vraag die hiermee te maken heeft
Ik heb ook eens een id nummer ingevoerd dat eveneens niet bekend is. Ik heb dan een if/else structuur gemaakt waarbij het zo gemaakt is dat als het id nummer bekend is: --> GoTo overschrijven
als het id nummer niet bekend is: --> GoTo invoeren
Het id nummer is niet bekend en er komt dan vervolgens een error in onderstaande code, hetgeen begrijpelijk is want dit is de code "overschrijven"
Hoe kan dit? De error is ditmaal fout 1004, Methode Range van object_Global mislukt
CODE:
overschrijven: 'Dus het toom id met weegstadium bestond al en daarom nu overschrijven
Sheets("Invoer Weging").Select
Range("G6:G6").Copy
Sheets("Database Weging").Select
Range("I" & Rij).Select
ActiveSheet.Paste
Ik hoop dat er iemand mij vooruit kan helpen. Alvast vriendelijk bedankt!
Groeten Rick
