Hallo, ich hab hier eine Denk- oder Sehschwäche:
If varEinSchalterLux.Value = "x" And varEinblendLux.Hidden = True Then [3. Vertreter einblenden]
If varAusblendLux1.Hidden = False Then
varAusblendLux1.Hidden = True
End If
If varAusblendLux2.Hidden = False Then
varAusblendLux2.Hidden = True
End If
If varAusblendLux3.Hidden = False Then
varAusblendLux3.Hidden = True
End If
If varAusblendLux4.Hidden = False Then
varAusblendLux4.Hidden = True
End If
If varAusblendLux5.Hidden = False Then
varAusblendLux5.Hidden = True
End If
If varAusblendLux6.Hidden = False Then
varAusblendLux6.Hidden = True
End If
If varAusblendLux7.Hidden = False Then
varAusblendLux7.Hidden = True
End If
varEinblendLux.Hidden = False
Set varAusblendVertreter3 = ActiveSheet.Rows("55")
Set varSchalterVertreter3 = ActiveSheet.Cells(55, 10)
If varSchalterVertreter3.Value = "x" And varAusblendVertreter3.Hidden = True Then
varAusblendVertreter3.Hidden = False
Else
If varAusblendVertreter3.Hidden = False Then
varAusblendVertreter3.Hidden = True
End If
End If
[If varSchalterVertreter3.Value <> "x" And varAusblendVertreter3.Hidden = False Then]
[ varAusblendVertreter3.Hidden = True]
[End If]
Else: [3. Vertreter ausblenden]
Bei der letzten Zeile kommt die Fehlermeldung siehe Thread-Name, der Fehler muss ja davor sein. Ich hab hier nur ein Code-Ausschnitt, der Fehler sollte aber dort enthalten sein.
|