AW: Wert aus Formal als Bedingung für If Abfrage in VBA
26.09.2023 20:09:28
Beverly
Ganz so funktioniert dein Konzept nicht, denn die Formel steht nicht immer in Zelle T35, je nachdem wieviele Tage der Monat hat - das muss berücksichtigt werden. Versuche es mal so:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim intStart As Integer
Dim intZaehler As Integer
Dim lngLetzte As Long
Select Case Sh.Name
Case "Funktionen", "Erklärung und Grunddaten"
Case Else
If Target.Row > 4 Then
lngLetzte = Sh.Cells(Rows.Count, 1).End(xlUp).Row
Select Case Target.Column
Case 4, 7, 10
If Cells(Target.Row, 1) > "" Then
If Sh.Cells(lngLetzte, 20) = 1 Then
Select Case Sh.Name
Case "Januar", "Februar"
intStart = 1
Case "März"
intStart = 2
Case "April"
intStart = 3
Case "Mai"
intStart = 4
Case "Juni"
intStart = 5
Case "Juli"
intStart = 6
Case "August"
intStart = 7
Case "September"
intStart = 8
Case "Oktober"
intStart = 9
Case "November", "Dezember"
intStart = 10
End Select
For intZaehler = 1 To 12
If Worksheets(intZaehler).Index intStart + 1 Or Worksheets(intZaehler).Index > intStart + 3 Then
Worksheets(intZaehler).Visible = False
Else
Worksheets(intZaehler).Visible = True
End If
Next intZaehler
End If
End If
End Select
End If
End Select
End Sub
Bis später
Karin
Link zur Homepage: https://excel-inn.de/