title image


Smiley Re: Wo hast du denn den Code eingefügt?
Leider war es das nicht. Weder im Modul, noch in Tabellenblatt1 oder 2 funktioniert das...versteh ich net.



Also:



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

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

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

End If

End Sub



Soll heißen: zähle die anzahl der zellen im Bereich Tabelle1!A15:A26 in der ein wert größer "" steht. ist die anzahl größer 0 dann setze die hidden eigenschaft der Spalte AA in Tabelle2 auf falsch (also sichtbar)



oder? warum geht das dann nicht?





sehr sehr seltsam


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: