HERBERS Excel-Forum - das Archiv

Thema: Spalten ausblenden wenn älter als heute

Spalten ausblenden wenn älter als heute
Vladi9695
Hallo zusammen,
ich brauche Hilfe da ich leider in VBA noch zu wenig Erfahrung habe. In den Feldern N9-NT9 ist jeweils das Datum für das ganze Jahr vorgegeben, besteht die Möglichkeit über ein Makro jedes Datum was älter als Heute ist, die komplette Spalte auszublenden?

Über Hilfe wäre ich dankbar
Danke
AW: Spalten ausblenden wenn älter als heute
ralf_b
ein Makro nach deiner Beschreibung aus der Hüfte geschossen.

Sub ausblenden()


Dim result

result = Application.Match(CDbl(Date), Range("N9:NT9"), 0)
If IsNumeric(result) Then
Range("N9").Resize(1, result - 1).EntireColumn.Hidden = True
End If

End Sub
AW: Spalten ausblenden wenn älter als heute
Vladi9695
Danke Ralf, klappt wunderbar, somit geschlossen :)