"IF" funktioniert nur bei <> xlVeryHidde
16.09.2020 14:34:38
Petr
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