Hallo Zusammen, xlKing hat mir gestern schon toll weiter geholfen und nun hänge ich am nächsten Problem.
Ich bekomme immer Fehler '1004. Ich habe den gleichen Code nur mit anderen Zellen als zweites Makro und das funktioniert tadellos.
Ich hier vielleicht ein Fehler drin den ich nicht finde?
Sub Makro_SheetH_TrafficLight_restart_1()
'
Application.ScreenUpdating = False
With Worksheets("H")
Union(.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"), _
.Range("P55:P56, P59:P60, P64, P68:P69, P71, P74:P80, P83:P84, P87:P105, P107:P108, R55:R56, R59:R60, R64, R68:R69, R71, R74:R80, R83:R84, R87:R97, R100:R105, R107:R108, U55:U56, U59:U60, U64, U68:U69, U71, U74:U80, U83:U84, U87:U105, U107:U108"), _
.Range("P111:P113, P116:P118, P122, P126, P128, P131:P133, P135:P137, P139, P142:P145, P147:P148, P150:P154, R111:R113, R116:R118, R122, R126, R128, R131:R133, R135:R137, R139, R142:R145, R147:R148, R150:R154, U111:U113, U116:U118, U122, U126, U128, U131:U133, U135:U137, U139, U142:U145, U147:U148, U150:U154"), _
.Range("P157:P160, P164:P167, P169:P174, P176:P178, P180:P181, P183:P184, P187:P188, P191:P194, R157, R159:R160, R164:R165, R167, R169:R174, R176:R178, R180:R181, R183:R184, R187:R188, R191:R194, U157, U159:U160, U164:U165, U166:U167, U169:U174, U176:U178, U180:U181, U183:U184, U187:U188, U191:U194"), _
.Range("P197:P200, P203:P206, P210, P214, P216, P219:P223, P225:P227, P229, P232:P235, P237:P240, R197:R200, R203:R206, R210, R214, R216, R219:R223, R225:R227, R229, R232:R235, R237:R240, U197:U200, U203:U206, U210, U214, U216, U219:U223, U225:U227, U129, U232:U235, U237:U240"), _
.Range("P243:P245, P248:P250, P253:P255, P258:P259, P261:P263, R243:R245, R248:R250, R253:R255, R258:R259, R261:R263, U243:U245, U248:U250, U253:U255, U258:U259, U261:U263"), _
.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"), _
.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"), _
.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"), _
.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"), _
.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
End With
Application.ScreenUpdating = True
End Sub |