schon gestern habe ich mit eurer Hilfe bei dieser Kalkulation, von der ich ein gleich strukturiertes Beispiel ( https://www.herber.de/bbs/user/24942.xls ) hochgeladen habe, die Bedingung, dass nur die beiden Spalten mit dem aktuellen Datum angezeigt werden, bzw. alle Spalten bei keinem zutreffenden Datum in Zeile 1, mit folgendem Code erstellen können:
Private Sub Worksheet_Activate()
Dim i As Integer, x
Application.DisplayAlerts = False
Application.ScreenUpdating = False
x = 0
Range("H1", "BA1").MergeCells = False
For i = 8 To 80
If Cells(1, i) <> Date And Cells(1, i - 1) <> Date Then
Columns(i).Hidden = True
Else
x = x + 1
Columns(i).Hidden = False
Columns(i + 1).Hidden = False
Range(Cells(1, i), Cells(1, i + 1)).MergeCells = True
End If
Next
If x = 0 Then
Range("H1", "BA1").Columns.Hidden = False
For x = 8 To 52 Step 2
Range(Cells(1, x), Cells(1, x + 1)).MergeCells = True
Next
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Nun würde ich gerne zusätzlich jeweils die zwei Spalten eines jeden Datums einblenden, bei dem in Zeile 84 ein Wert steht. Wenn dieser Wert null ist bzw. kein Wert enthalten ist, sollten sie ausgeblendet werden, es sei denn, es handelt sich um das aktuelle Datum. Zudem sollten weiterhin alle Spalten eingeblendet sein, wenn kein Datum in Zeile 1 zutrifft.
Also eine Menge Bedingungen, aber ich hoffe, ihr nehmt die Herausforderung an :)
Danke für eure Hilfe!
MfG
Philip