Code verbessern
10.08.2006 13:15:34
achim
bekomme immer den fehler tyenunverträglichkeit
With Sheets("Prüfungsbogen1")
If Range("I7") = 0 And _
.Range("I11") = 0 And _
.Range("I17") = 0 And _
.Range("I22") = 0 And _
.Range("I26") = 0 And _
.Range("I30") = 0 And _
.Range("I34") = 0 And _
.Range("I40") = 0 And _
.Range("I43") = 0 And _
.Range("I47") = 0 And _
.Range("I51") = 0 And _
.Range("I55") = 0 And _
.Range("I59") = 0 And _
.Range("I63") = 0 And _
.Range("I67") = 0 And _
.Range("I71") = 0 And _
.Range("I75") = 0 And _
.Range("I79") = 0 And _
.Range("I83") = 0 And _
.Range("I89") = 0 Then
Üben.Visible = False
End If
End With
danke achim h.