Goedemiddag,
Werkelijk geen idee of dit überhaupt mogelijk is maar daarom extra benieuwd of iemand een suggestie heeft.
Ik heb een Excel met meerdere VBA's die toegespitst zijn op specifieke cellen, rijen en/of kolommen. Het enige vervelende is dat als ik dan een kolom of rij toevoeg, alle ranges binnen deze VBA's handmatig aangepast moeten worden om het weer kloppend te krijgen. Een concreet voorbeeld:
Private Sub RESETBUTTON()
If MsgBox("Weet je zeker dat je het document wilt resetten?", vbYesNo) = vbNo Then Exit Sub
Range("J12:J21, Q12:Q21, R12:R21, J26:J65, Q26:Q65, R26:R65, J68:J82, Q68:Q82, R68:Q82, J85:J99, Q85:Q99, R85:Q99, J102:J116, Q102:Q116, R102:R116, J119:J130, Q119:Q130, R119:R130, J135:J184, Q135:Q184, R135:R184, J187:J201, Q187:Q201, R187:R201, J204:J218, Q204:Q218, R204:R218, J221:J235, Q221:Q235, R221:R235, D239248, J239:J248, Q239:Q248, R239:R248, J250:J259, Q250:Q259, R250:R259, J262:J271, Q262:Q271, R262:R271, J275:J277, Q275:Q277, R275:R277, J279:J281, Q279:Q281, R279:R281, J284:J290, Q284:Q290, R284:R290, J293:J301, Q293:Q301, R293:R301").Select
Selection.ClearContents
Range("D1221, D2665, D6882, D8599, D102116, D119130, D135184, D187201, D204218, D221235, D250259, D262271, D279281, D275277, D284290, D293301" & LastRow) = "Test"
End Sub
Bottom line; als ik nu ergens een extra rij invoeg dan klopt bijna geen enkele van de bovenstaande ranges meer en moet ik ze handmatig weer aanpassen. Het mooiste zou natuurlijk zijn als het zou kunnen anticiperen op deze actie.
Iemand een briljant idee en mij daarmee uit de brand zou willen helpen?
Alvast super bedankt voor de hulp!
Hartelijke groet
Werkelijk geen idee of dit überhaupt mogelijk is maar daarom extra benieuwd of iemand een suggestie heeft.
Ik heb een Excel met meerdere VBA's die toegespitst zijn op specifieke cellen, rijen en/of kolommen. Het enige vervelende is dat als ik dan een kolom of rij toevoeg, alle ranges binnen deze VBA's handmatig aangepast moeten worden om het weer kloppend te krijgen. Een concreet voorbeeld:
Private Sub RESETBUTTON()
If MsgBox("Weet je zeker dat je het document wilt resetten?", vbYesNo) = vbNo Then Exit Sub
Range("J12:J21, Q12:Q21, R12:R21, J26:J65, Q26:Q65, R26:R65, J68:J82, Q68:Q82, R68:Q82, J85:J99, Q85:Q99, R85:Q99, J102:J116, Q102:Q116, R102:R116, J119:J130, Q119:Q130, R119:R130, J135:J184, Q135:Q184, R135:R184, J187:J201, Q187:Q201, R187:R201, J204:J218, Q204:Q218, R204:R218, J221:J235, Q221:Q235, R221:R235, D239248, J239:J248, Q239:Q248, R239:R248, J250:J259, Q250:Q259, R250:R259, J262:J271, Q262:Q271, R262:R271, J275:J277, Q275:Q277, R275:R277, J279:J281, Q279:Q281, R279:R281, J284:J290, Q284:Q290, R284:R290, J293:J301, Q293:Q301, R293:R301").Select
Selection.ClearContents
Range("D1221, D2665, D6882, D8599, D102116, D119130, D135184, D187201, D204218, D221235, D250259, D262271, D279281, D275277, D284290, D293301" & LastRow) = "Test"
End Sub
Bottom line; als ik nu ergens een extra rij invoeg dan klopt bijna geen enkele van de bovenstaande ranges meer en moet ik ze handmatig weer aanpassen. Het mooiste zou natuurlijk zijn als het zou kunnen anticiperen op deze actie.
Iemand een briljant idee en mij daarmee uit de brand zou willen helpen?
Alvast super bedankt voor de hulp!
Hartelijke groet
Laatst bewerkt: