ich hatte die Frage schonmal gestellt, allerdings mit anderen kombiniert, da ich in der Foren FAQ nochmal gelesen habe das es nicht erwünscht ist, hier nochmal:
Makro1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A21")) Is Nothing Then Exit Sub
intG = Cells(22, 7)
Set wksS = Sheets("Torschützen Spielt.")
Set wksT = Sheets("Spieltagausw.")
With Sheets("Torschützen gesamt")
If intG = 0 Then
.Rows("1:41").Hidden = True
wksT.Rows("3:16").Hidden = True
wksT.Rows("21:34").Hidden = True
wksT.Rows("39:52").Hidden = True
wksT.Rows("57:70").Hidden = True
wksT.Rows("75:88").Hidden = True
wksT.Rows("93:106").Hidden = True
wksT.Rows("111:124").Hidden = True
wksT.Rows("129:142").Hidden = True
wksT.Rows("147:160").Hidden = True
wksT.Rows("165:178").Hidden = True
wksT.Rows("183:196").Hidden = True
wksT.Rows("201:214").Hidden = True
wksT.Rows("219:232").Hidden = True
wksT.Rows("237:250").Hidden = True
wksT.Rows("255:268").Hidden = True
wksT.Rows("273:286").Hidden = True
wksT.Rows("291:304").Hidden = True
wksT.Rows("309:322").Hidden = True
wksT.Rows("327:340").Hidden = True
wksT.Rows("345:358").Hidden = True
wksT.Rows("363:376").Hidden = True
wksT.Rows("381:394").Hidden = True
wksT.Rows("399:412").Hidden = True
wksT.Rows("417:430").Hidden = True
wksT.Rows("435:448").Hidden = True
wksT.Rows("453:466").Hidden = True
wksT.Rows("471:484").Hidden = True
wksT.Rows("489:502").Hidden = True
wksT.Rows("507:520").Hidden = True
wksT.Rows("525:538").Hidden = True
wksT.Rows("545:556").Hidden = True
wksT.Rows("561:574").Hidden = True
wksT.Rows("579:592").Hidden = True
wksT.Rows("597:610").Hidden = True
wksT.Rows("615:628").Hidden = True
wksT.Rows("633:646").Hidden = True
wksT.Rows("651:664").Hidden = True
wksT.Rows("669:682").Hidden = True
wksS.Columns(1).Resize(, 22).Hidden = True
Else
.Rows("1:" & 2 * intG + 1).Hidden = False
wksT.Rows("3:" & 2 * intG + 1).Hidden = False
wksT.Rows("21:" & 2 * intG + 19).Hidden = False
wksT.Rows("39:" & 2 * intG + 37).Hidden = False
wksT.Rows("57:" & 2 * intG + 55).Hidden = False
wksT.Rows("75:" & 2 * intG + 73).Hidden = False
wksT.Rows("93:" & 2 * intG + 91).Hidden = False
wksT.Rows("111:" & 2 * intG + 109).Hidden = False
wksT.Rows("129:" & 2 * intG + 127).Hidden = False
wksT.Rows("147:" & 2 * intG + 145).Hidden = False
wksT.Rows("165:" & 2 * intG + 163).Hidden = False
wksT.Rows("183:" & 2 * intG + 181).Hidden = False
wksT.Rows("201:" & 2 * intG + 199).Hidden = False
wksT.Rows("219:" & 2 * intG + 217).Hidden = False
wksT.Rows("237:" & 2 * intG + 235).Hidden = False
wksT.Rows("255:" & 2 * intG + 253).Hidden = False
wksT.Rows("273:" & 2 * intG + 271).Hidden = False
wksT.Rows("291:" & 2 * intG + 289).Hidden = False
wksT.Rows("309:" & 2 * intG + 307).Hidden = False
wksT.Rows("327:" & 2 * intG + 325).Hidden = False
wksT.Rows("345:" & 2 * intG + 343).Hidden = False
wksT.Rows("363:" & 2 * intG + 361).Hidden = False
wksT.Rows("381:" & 2 * intG + 379).Hidden = False
wksT.Rows("399:" & 2 * intG + 397).Hidden = False
wksT.Rows("417:" & 2 * intG + 415).Hidden = False
wksT.Rows("435:" & 2 * intG + 433).Hidden = False
wksT.Rows("453:" & 2 * intG + 451).Hidden = False
wksT.Rows("471:" & 2 * intG + 469).Hidden = False
wksT.Rows("489:" & 2 * intG + 487).Hidden = False
wksT.Rows("507:" & 2 * intG + 505).Hidden = False
wksT.Rows("525:" & 2 * intG + 523).Hidden = False
wksT.Rows("545:" & 2 * intG + 543).Hidden = False
wksT.Rows("561:" & 2 * intG + 559).Hidden = False
wksT.Rows("579:" & 2 * intG + 577).Hidden = False
wksT.Rows("597:" & 2 * intG + 595).Hidden = False
wksT.Rows("615:" & 2 * intG + 613).Hidden = False
wksT.Rows("633:" & 2 * intG + 631).Hidden = False
wksT.Rows("651:" & 2 * intG + 649).Hidden = False
wksT.Rows("669:" & 2 * intG + 667).Hidden = False
wksS.Columns(1).Resize(, 2 * intG + 1).Hidden = False
If intG
Makro2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A23:A26")) Is Nothing Then Exit Sub
intD = Cells(23, 3)
With Sheets("Torspieltagausw.")
If intD = 0 Then
.Rows("4:6").Hidden = True
.Rows("12:14").Hidden = True
.Rows("20:22").Hidden = True
.Rows("28:30").Hidden = True
.Rows("36:38").Hidden = True
.Rows("44:46").Hidden = True
.Rows("52:54").Hidden = True
.Rows("60:62").Hidden = True
.Rows("68:70").Hidden = True
.Rows("76:78").Hidden = True
.Rows("84:86").Hidden = True
.Rows("92:94").Hidden = True
.Rows("100:102").Hidden = True
.Rows("108:110").Hidden = True
.Rows("116:118").Hidden = True
.Rows("124:126").Hidden = True
.Rows("132:134").Hidden = True
.Rows("140:142").Hidden = True
.Rows("148:150").Hidden = True
.Rows("156:158").Hidden = True
.Rows("164:166").Hidden = True
.Rows("172:174").Hidden = True
.Rows("180:182").Hidden = True
.Rows("188:190").Hidden = True
.Rows("196:198").Hidden = True
.Rows("204:206").Hidden = True
.Rows("212:214").Hidden = True
.Rows("220:222").Hidden = True
.Rows("228:230").Hidden = True
.Rows("236:238").Hidden = True
.Rows("244:246").Hidden = True
.Rows("252:254").Hidden = True
.Rows("260:262").Hidden = True
.Rows("268:270").Hidden = True
.Rows("276:278").Hidden = True
.Rows("284:286").Hidden = True
.Rows("292:294").Hidden = True
.Rows("300:302").Hidden = True
Else
.Rows("4:" & 2 * intD + 1).Hidden = False
.Rows("12:" & 2 * intD + 9).Hidden = False
.Rows("20:" & 2 * intD + 17).Hidden = False
.Rows("28:" & 2 * intD + 25).Hidden = False
.Rows("36:" & 2 * intD + 33).Hidden = False
.Rows("44:" & 2 * intD + 41).Hidden = False
.Rows("52:" & 2 * intD + 49).Hidden = False
.Rows("60:" & 2 * intD + 57).Hidden = False
.Rows("68:" & 2 * intD + 65).Hidden = False
.Rows("76:" & 2 * intD + 73).Hidden = False
.Rows("84:" & 2 * intD + 81).Hidden = False
.Rows("92:" & 2 * intD + 89).Hidden = False
.Rows("100:" & 2 * intD + 97).Hidden = False
.Rows("108:" & 2 * intD + 105).Hidden = False
.Rows("116:" & 2 * intD + 113).Hidden = False
.Rows("124:" & 2 * intD + 121).Hidden = False
.Rows("132:" & 2 * intD + 129).Hidden = False
.Rows("140:" & 2 * intD + 137).Hidden = False
.Rows("148:" & 2 * intD + 145).Hidden = False
.Rows("156:" & 2 * intD + 153).Hidden = False
.Rows("164:" & 2 * intD + 161).Hidden = False
.Rows("172:" & 2 * intD + 169).Hidden = False
.Rows("180:" & 2 * intD + 177).Hidden = False
.Rows("188:" & 2 * intD + 185).Hidden = False
.Rows("196:" & 2 * intD + 193).Hidden = False
.Rows("204:" & 2 * intD + 201).Hidden = False
.Rows("212:" & 2 * intD + 209).Hidden = False
.Rows("220:" & 2 * intD + 217).Hidden = False
.Rows("228:" & 2 * intD + 225).Hidden = False
.Rows("236:" & 2 * intD + 233).Hidden = False
.Rows("244:" & 2 * intD + 241).Hidden = False
.Rows("252:" & 2 * intD + 249).Hidden = False
.Rows("260:" & 2 * intD + 257).Hidden = False
.Rows("268:" & 2 * intD + 265).Hidden = False
.Rows("276:" & 2 * intD + 273).Hidden = False
.Rows("284:" & 2 * intD + 281).Hidden = False
.Rows("292:" & 2 * intD + 289).Hidden = False
.Rows("300:" & 2 * intD + 297).Hidden = False
If intD
Diese beiden Makros funktionieren einzeln super zusammen allerdings nicht zusammen, was mache ich falsch?
Viele Grüße Kai