|
Ich habe ein Makro in dem die unten stehenden Ranges drin stehen. Mit welcher Code-Ergänzung wird denn das Makro so ausgeführt wie es unten steht?
Ich habe es mit "With" und "End With" probiert, aber alles ohne Erflog.
Ich möchte nicht alle Bereiche in einen Range schreiben sondern es genau so haben.
Kann mir bitte jemand auf die Sprünge helfen!
Worksheets("1").Range("P19:P38, P41:P50, P52, R19:R21, R27:R30, R32:R35, R37, R41:R50, R52, U19:U21, U23:U24, U29:U30, U35, U41:U48").Value = 15001
Worksheets("1").Range("P266:P268, P271:P273, P276:P278, P281:P286, P288:P291, P292:P293, R266:R268, R271:R273, R276:R278, R281:R286, R288:R291, U266:U268, U271:U273, U276:U278, U281:U286, U288:U291").Value = 15001
Worksheets("1").Range("P296:P298, P301:P303, P306:P308, P311:P316, P318:P321, P322:P323, R296:R298, R301:R303, R306:R308, R311:R316, R318:R321, U296:U298, U301:U303, U306:U308, U311:U316, U318:U321").Value = 15001
Worksheets("1").Range("P326:P328, P331:P333, P336:P338, P341:P346, P348:P351, P352:P353, R326:R328, R331:R333, R336:R338, R341:R346, R348:R351, U326:U328, U331:U333, U336:U338, U341:U346, U348:U351").Value = 15001
Worksheets("1").Range("P356:P358, P361:P363, P366:P368, P371:P376, P378:P381, P382:P383, R356:R358, R361:R363, R366:R368, R371:R376, R378:R381, U356:U358, U361:U363, U366:U368, U371:U376, U378:U381").Value = 15001
Worksheets("1").Range("P386:P388, P391:P393, P396:P398, P401:P406, P408:P411, P412:P413, R386:R388, R391:R393, R396:R398, R401:R406, R408:R411, U386:U388, U391:U393, U396:U398, U401:U406, U408:U411").Value = 15001 |