Microsoft Excel

Herbers Excel/VBA-Archiv

"IF" funktioniert nur bei <> xlVeryHidde

Betrifft: "IF" funktioniert nur bei <> xlVeryHidde von: Petr
Geschrieben am: 16.09.2020 14:34:38

Hallo!

Warum funktioniert folgendes VBA zur Inhaltsverzeichniserstellung mit Hyperlinks nur, wenn die "If" Formel wie folgt anfängt:

"If Worksheets(intSheetsZaehler).Visible <> xlVeryHidden" und nicht wenn: "If Worksheets(intSheetsZaehler).Visible = xlVisible Then"

Ich möchte, dass mein Index auch die xlHidden ignoriert und nicht nur xlVeryHidden

Danke!!

Sub HyperIndex() 'Inhaltsverzeichnis mit Hyperlink -->  Fertig

    Dim intSheetsZaehler As Integer

    Inhalt.Range("A6:Z100").Clear

    For intSheetsZaehler = 2 To Worksheets.Count
    If Worksheets(intSheetsZaehler).Visible = xlVisible Then
        'Abfrage Name
        Inhalt.Cells(intSheetsZaehler + 6, 2) = Worksheets(intSheetsZaehler).Name
        'Hyperlinks Name
        Inhalt.Cells(intSheetsZaehler + 6, 2).Hyperlinks.Add Anchor:=Cells(intSheetsZaehler + 6, _
 2), Address:="", SubAddress:="'" & Worksheets(intSheetsZaehler).Name & "'!A1", TextToDisplay:=Worksheets(intSheetsZaehler).Name
        'Formatierung Name
        With Cells(intSheetsZaehler + 6, 2)
            .Font.Color = vbBlack
            .Font.Underline = xlUnderlineStyleNone
            .Font.Size = 10
        End With
        
        'Abfrage Bearbeitungsstand
        Inhalt.Cells(intSheetsZaehler + 6, 3) = Worksheets(intSheetsZaehler).Range("E5")
        'Formatierung Bearbeitungsstand
        If Cells(intSheetsZaehler + 6, 3) = "Offen" Then
            With Cells(intSheetsZaehler + 6, 3)
                .Font.Color = vbWhite
                .Font.Bold = True
                .Font.Size = 9
                .Interior.ThemeColor = xlThemeColorAccent6
                .HorizontalAlignment = xlCenter
            End With
        ElseIf Cells(intSheetsZaehler + 6, 3) = "Erledigt" Then
            With Cells(intSheetsZaehler + 6, 3)
                .Font.Bold = True
                .Font.Size = 9
                .Interior.Color = 5296274
                .HorizontalAlignment = xlCenter
            End With
        Else
            Cells(intSheetsZaehler + 6, 3).Clear
        End If
        'Formatierung Nummerierung
        Cells(intSheetsZaehler + 6, 1) = intSheetsZaehler - 1
        Cells(intSheetsZaehler + 6, 1).Font.Bold = True
    End If
    Next intSheetsZaehler
   
        Range("B7").Value = "Arbeitsblatt"
        Range("C7").Value = "Stand"
        Range("C7").HorizontalAlignment = xlCenter
        Range("B7:C7").Font.Bold = True
        Columns("B:C").EntireColumn.AutoFit

End Sub

Betrifft: AW: "IF" funktioniert nur bei <> xlVeryHidde
von: peterk
Geschrieben am: 16.09.2020 14:52:19

Hallo

xlSheetVisible ist die richtige Konstante

Betrifft: AW: "IF" funktioniert nur bei <> xlVeryHidde
von: Petr
Geschrieben am: 16.09.2020 15:20:18

Manchmal sieht man den Wald...naja, vielen Dank! :)

Beiträge aus dem Excel-Forum zum Thema ""IF" funktioniert nur bei <> xlVeryHidde"