ich möchte für meine Dienstplantabelle einen Resetbutton schaffen. Dieser soll sehr viele unterschiedlich positionierte Zellen auswählen und die Werte darin löschen. Ich schaffe es jedoch nicht VBA meine elend lange Liste unterzujubeln. Könnt ihr mir helfen?
Vielen Dank, Paul.
P.S.: Um einen Eindruck zu bekommen um was für eine Menge es sich handelt:
A5:BT8;BU6:DV8;BU5;DN5;M11:P12;Q12;AE11:AH12;AI12;AW11:AZ12;BA12;BO11:BR12;BS12;CG11:CJ12;CK12;CY11:DB12;DC12;DQ11:DT12;DU12;A25:DV25;D38:E42;H42;I38:I41;M42:P43;Q43;V38:W42;Z42;AA38:AA41;AE42:AH43;AI43;AN38:AO42;AR42;AS38:AS41;AW42:AZ43;BA43;BF38:BG42;BK38:BK41;BJ42;BO42:BR43;BS43;BX38:BY42;CB42;CC38:CC41;CG42:CJ43;CK43;CP38:CQ42;CU38:CU41;CT42;CY42:DB43;DC43;DH38:DI42;DM38:DM41;DL42;DQ42:DT43;DU43;A57:DV57;D70:E74;H74;I70:I73;M74:P75;Q75;V70:W74;Z74;AA70:AA73;AE74:AH75;AI75;AN70:AO74;AR74;AS70:AS73;AW74:AZ75;BA75;BF70:BG74;BJ74;BK70:BK73;BO74:BR75;BS75;BX70:BY74;CB74;CC70:CC73;CG74:CJ75;CK75;CP70:CQ74;CU70:CU73;CT74;CY74:DB75;DC75;DH70:DI74;DL74;DM70:DM73;DQ74:DT75;DU75;A89:DV89;D102:E106;H106;I102:I105;M106:P107;Q107;V102:W106;AA102:AA105;Z106;AE106:AH107;AI107;AN102:AO106;AR106;AS102:AS105;AW106:AZ107;BA107;BF102:BG106;BJ106;BK102:BK105;BO106:BR107;BS107;BX102:BY106;CC102:CC105;CB106;CG106:CJ107;CK107;CP102:CQ106;CU102:CU105;CT106;CY106:DB107;DC107;DH102:DI106;DM102:DM105;DL106;DQ106:DT107;DU107;A121:DV121;D134:E138;H138;I134:I137;M138:P139;Q139;V134:W138;AA134:AA137;Z138;AE138:AH139;AI139;AN134:AO138;AR138;AS134:AS137;AW138:AZ139;BA139;BF134:BG138;BK134:BK137;BJ138;BO138:BR139;BS139;BX134:BY138;CC134:CC137;CB138;CG138:CJ139;CK139;CP134:CQ138;CT138;CU134:CU137;CY138:DB139;DC139;DH134:DI138;DM134:DM137;DL138;DQ138:DT139;DU139;A153:DV153;D166:E170;I166:I169;H170;M170:P171;Q171;V166:W170;AA166:AA169;Z170;AE170:AH171;AI171;AN166:AO170;AS166:AS169;AR170;AW170:AZ171;BA171;BF166:BG170;BJ170;BK166:BK169;BO170:BR171;BS171;BX166:BY170;CB170;CC166:CC169;CG170:CJ171;CK171;CP166:CQ170;CT170;CU166:CU169;CY170:DB171;DC171;DH166:DI170;DL170;DM166:DM169;DQ170:DR171;DS170:DT171;DU171;A185:DV185;D198:E202;H202;I198:I201;M202:P203;Q203;V198:W202;AA198:AA201;Z202;AE202:AH203;AI203;AN198:AO202;AS198:AS201;AR202;AW202:AZ203;BA203;BF198:BG202;BK198:BK201;BJ202;BO202:BR203;BS203;BX198:BY202;CC198:CC201;CB202;CG202:CJ203;CK203;CP198:CQ202;CU198:CU201;CT202;CY202:DB203;DC203;DH198:DI202;DM198:DM201;DL202;DQ202:DT203;DU203;A217:DV217;D230:E234;H234;I230:I233;M234:P235;Q235;V230:W234;AA230:AA233;Z234;AE234:AH235;AI235;AN230:AO234;AS230:AS233;AR234;AW234:AZ235;BA235;BF230:BG234;BK230:BK233;BJ234;BO234:BR235;BS235;BX230:BY234;CC230:CC233;CB234;CG234:CJ235;CK235;CP230:CQ234;CU230:CU233;CT234;CY234:DB235;DC235;DH230:DI234;DM230:DM233;DL234;DQ234:DT235;DU235;A249:DV249;D262:E266;H266;I262:I265;M266:P267;Q267;V262:W266;AA262:AA265;Z266;AE266:AH267;AI267;AN262:AO266;AS262:AS265;AR266;AW266:AZ267;BA267;BF262:BG266;BK262:BK265;BJ266;BO266:BR267;BS267;BX262:BY266;CC262:CC265;CB266;CG266:CJ267;CK267;CP262:CQ266;CU262:CU265;CT266;CY266:DB267;DC267;DH262:DI266;DM262:DM265;DL266;DQ266:DT267;DU267;A281:DV281;D294:E298;I294:I297;H298;M298:P299;V294:W298;Z298;AA294:AA297;AE298:AH299;AI299;AN294:AO298;AS294:AS297;AR298;AW298:AZ299;BA299;BF294:BG298;BK294:BK297;BJ298;BO298:BR299;BS299;BX294:BY298;CB298;CC294:CC297;CG298:CJ299;CK299;CP294:CQ298;CT298;CU294:CU297;CY298:DB299;DC299;DH294:DI298;DL298;DM294:DM297;DQ298:DT299;DU299;A313:DV313;D326:E330;H330;I326:I329;M330:P331;Q331;V326:W330;AA326:AA329;Z330;AE330:AH331;AI331;AN326:AO330;AS326:AS329;AR330;AW330:AZ331;BA331;BF326:BG330;BK326:BK329;BJ330;BO330:BR331;BS331;BX326:BY330;CC326:CC329;CB330;CG330:CJ331;CK331;CP326:CQ330;CU326:CU329;CT330;CY330:DB331;DC331;DH326:DI330;DL330;DM326:DM329;DQ330:DT331;DU331;A345:DV345;D358:E362;H362;I358:I361;V358:W362;Z362;AA358:AA361;AN358:AO362;AR362;AS358:AS361;BF358:BG362;BJ362;BK358:BK361;BX358:BY362;CB362;CC358:CC361;CP358:CQ362;CT362;CU358:CU361;DH358:DI362;DL362;DM358:DM361