Spalten ausblenden
18.06.2004 07:46:00
Hans-Joachim
wer kann mir bei nachstehendem Problem helfen?
Ich habe eine Excel-Tabelle mit Spalten in denen Jahreszahlen (C5=1992, D5=1993.... V5=2011) stehen. Abhängig vom aktuellen Jahr sollen die nachfolgenden Jahre ausgeblendet werden. Wie kann ich dass mit VBA erledigen? Mein Code
Sub test()
Sheets("Ausgabe").Visible = True
Sheets("Ausgabe").Select
AnzJahre = Year(Now) - 1 - 1991
Aus = 22 + 1 - 3 - AnzJahre
For i = AnzJahre + 3 To AnzJahre + 3 + Aus
ActiveSheet.Column(i, i).Hidden = True
Next
End Sub
verursacht einen Fehler 'Laufzeitfehler '438' Objekt unterstützt diese Eigenschaft oder Methode nicht.
MfG
Hans-Joachim
Anzeige