Code verbessern
10.08.2006 14:50:21
achim
nun bekomme ich den fehler methode range falsch?
weiss nicht mehr weiter.
es sollte so funzen( prüfe ob der wert in range 0 oder leer dann die nächste range usw.
With Sheets("Prüfungsbogen1")
If Range("I7") = 0 Or ("") And _
.Range("I11") = 0 Or ("") And _
.Range("I17") = 0 Or ("") And _
.Range("I22") = 0 Or ("") And _
.Range("I26") = 0 Or ("") And _
.Range("I30") = 0 Or ("") And _
.Range("I34") = 0 Or ("") And _
.Range("I39") = 0 Or ("") And _
.Range("I43") = 0 Or ("") And _
.Range("I47") = 0 Or ("") And _
.Range("I51") = 0 Or ("") And _
.Range("I55") = 0 Or ("") And _
.Range("I59") = 0 Or ("") And _
.Range("I63") = 0 Or ("") And _
.Range("I67") = 0 Or ("") And _
.Range("I71") = 0 Or ("") And _
.Range("I75") = 0 Or ("") And _
.Range("I79") = 0 Or ("") And _
.Range("I83") = 0 Or ("") And _
.Range("I89") = 0 Or ("") Then
Üben.Visible = False
End If
End With
danke achim h.