Bräuchte mal Hilfe für Code
Jürgen
Bräuchte mal Hilfe, wie müsste der code erweitert werden damit nicht nur Sheet Spieltag1 sondern Sheets Spieltag 1 bis Spieltag 34 betroffen sind?
Sub setten(BildNr As Byte)
Dim s As Byte
For s = 1 To 22
Sheets("Spieltag1").Shapes("Bild " & s).Visible = False
Next
If BildNr = 0 Then Exit Sub
Sheets("Spieltag1").Shapes("Bild " & BildNr).Visible = True
End Sub
Danke im vorraus
Jürgen