Probleme beim ausblenden von sehr vielen Spalten
23.09.2005 21:33:26
sehr
weiß jemand warum bei diesem Makro immer ein fehler kommt?
der fehler kommt in:
Range(Columns(100), Columns(150)).Hidden = True
Sub a()
aktuelle_Programm_Spalte = interger
aktuelle_Programm_Spalte = 19
If aktuelle_Programm_Spalte = 18 Then
Range(Columns(20), Columns(256)).Hidden = True
Else
Range(Columns(18), Columns(aktuelle_Programm_Spalte - 1)).Hidden = True
'Range(Columns(aktuelle_Programm_Spalte + 2), Columns(256)).Hidden = True
Range(Columns(19), Columns(100)).Hidden = True
Range(Columns(100), Columns(150)).Hidden = True
End If
End Sub
'
Gruß und Danke Tanja
Anzeige