Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bräuchte mal Hilfe für Code

Bräuchte mal Hilfe für Code
Jürgen
Hallo Forum
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bräuchte mal Hilfe für Code
Moe
So in etwa kann es nicht Testen kein Excel zu hand
Gruss
Moe

Sub setten(BildNr As Byte)
Dim s As Byte
for i = 1 to 34
For s = 1 To 22
Sheets("Spieltag" & i).Shapes("Bild " & s).Visible = False
Next s
next i
If BildNr = 0 Then Exit Sub
Sheets("Spieltag1").Shapes("Bild " & BildNr).Visible = True
End Sub

AW: Danke o.T
02.04.2004 14:40:20
Jürgen
.
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige