Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

If-Schleife

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige