Makro BeforeClose funktioniert nicht
09.04.2004 22:10:57
Clausi
ich hab ein Makro geschrieben, dass zwei Spalten beim Schließen des Tabellenblattes ausblenden soll.
Als normales Makro (manuell) funktioniert es, aber so ins Klassenmodul eingetragen funktioniert es nicht. Hab bestimmt einen Fehler gemacht - Aber welchen? Wer kann mir helfen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim iCol As Integer
For iCol = 1 To 256
If Cells(1, iCol) = "Bearbeitungsnummer" Then
Columns(iCol).Hidden = True
End If
Next
For iCol = 1 To 256
If Cells(1, iCol) = "Bearbeiter" Then
Columns(iCol).Hidden = True
End If
Next
End Sub
Danke im Voraus Clausi