title image


Smiley noch ne schnelle Frage...
Hallo,



habe ein seltsames Phänomen. In einer Datei liegt das folgende Makro, es soll, wenn eine Eingabe in gewisse Zellen gemacht wurde eine Spalte auf einem anderen Blatt ausblenden:



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Application.CountIf(Worksheets("Eingabe").Range("A15:A26"), "" & "") > 0 Then

Worksheets("Ausdruck").Unprotect ("XXX")

Worksheets("Ausdruck").Columns("AA:AA").EntireColumn.Hidden = False

Else

Worksheets("Ausdruck").Columns("AA:AA").EntireColumn.Hidden = True

Worksheets("Ausdruck").Protect ("XXX")

End If

End Sub



Eigentlich funktioniert es super. Manchmal allerdings bekomme ich eine Fehlermeldung (Typen unverträglich bei "worksheets(".......Hidden = True" wenn irgendwo auf dem Blatt Eingaben gemacht wurde. Nur manchmal. Kennt jemand sowas?



Danke,



Martin


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: