Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If-Schleife

If-Schleife
26.01.2007 15:52:41
Torsten
Hallo beisammen,
wo ist mein Fehler hier:

Sub VisibleTrue()
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ActiveWorkbook
For Each wks In Worksheets
If wks.Visible = xlHidden or
If wks.Visible = xlVeryHidden Then
wks.Visible = True
Else
End If
Next wks
End Sub

Excel steigt mit der Meldung "Fehler beim Kompilieren - Erwartet: Ausdruck" aus und bleibt hinter "or" hängen. Vielen Dank für Eure Tips im voraus.
Gruß
Torsten

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If-Schleife
26.01.2007 15:57:46
praetorius
Hallo Torsten,
nimm mal das zweite if raus.
If wks.Visible = xlHidden or wks.Visible = xlVeryHidden Then
Sollte so klappen
good luck
AW: If-Schleife
26.01.2007 16:02:25
Torsten
Hallo praetorius,
vielen Dank für Deine Rückmeldung. Hatte ich schon ausprobiert - half aber nicht.
Gruß
Torsten
AW: If-Schleife
26.01.2007 15:58:46
Kurt

Sub VisibleTrue()
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ActiveWorkbook
For Each wks In wbk.Worksheets
wks.Visible = True
End If
Next wks
End Sub

mfg Kurt
erledigt - mT
26.01.2007 16:07:27
Torsten
Hallo Kurt,
manchmal sieht man den Wald vor lauter Bäumen nicht.... :-((
Dein Code passte zwar noch nicht ganz, so läuft er aber:
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ActiveWorkbook
For Each wks In Worksheets
wks.Visible = True
Next wks
Vielen Dank für Deinen Denkanstoss!
Gruß
Torsten
Anzeige
AW: erledigt - mT
26.01.2007 18:25:03
Erich
Hallo Torsten,
bei deinem Code kannst du die beiden Zeilen
Dim wkb As Workbook
und
Set wkb = ActiveWorkbook
auch gleich weglassen - wkb wird doch gar nicht verwendet.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige