title image


Smiley weiß wo das Problem liegt...
...nur wie löse ich es?



Also es ist doch folgendermassen:

Hierdurch:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

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



wird bei Änderung des Blattes (worksheet_change) überprüft, ob ein wert in den zellen a15:a26 steht. wenn ja, dann das hier:



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

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



also Blattschutz aufheben und die Spalte AA einblenden.



ansonsten das hgier:



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

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



also die Spalte AA ausblenden.



Jetzt steht aber vor und nach der Änderung nix in den Zellen, also versucht er doch eine ausgeblendete Zelle auszublenden...



hhhmm...mir kommt grad ne Idee...ist noch anders!!!



Ich hab nur im ersten Fall den Blattschutz aufheben lasse und im zweiten Fall setzen lassen. Also versucht er im zweiten Fall ohne den Blattschutz aufzuheben eine Aktion durchzuführen....kann ja nicht klappen!!!



Ich glaub ich habs :)



Liebe Grüße,



Martin


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: