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, D239
248, 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("D12
21, D26
65, D68
82, D85
99, D102
116, D119
130, D135
184, D187
201, D204
218, D221
235, D250
259, D262
271, D279
281, D275
277, D284
290, D293
301" & 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, D239

Selection.ClearContents
Range("D12
















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: