Felder ausgrauen und sperren per Modul - Fehleranalyse
05.10.2023 16:01:15
LordWuffel
ich habe mir ein modul geschrieben, dass Eingabefelder ausgrauen und sperren soll, wenn die eingabe nicht sinnvoll ist (es fehlt das entsprechende Bauteil)
den Farbwechsel macht das Modul, das sperren der Eingabefelder auch aber ich bekomme den "Schreibschutz" nicht zurückgesetzt [. locked = false]
Sub flipflop()
Dim color As String
Dim schutz As Boolean
'Aus der Excel-Tabelle wird ein Wert geholt, die Zelle Tabelle1!D1 wurde in "Bauteil" umbeannnt
if Range("Bauteil").Value 1 Then
color = "&H80000011"
schutz = True
Else: color = "&H80000008"
schutz = False
End If
With Main
.Label165.ForeColor = color
'zig Textboxen: Farbe wechseln.. -> geht
.Label183.ForeColor = color
'hier werden die textboxen gesperrt und die Schriftfarbe angepasst , naja soll...
With .Art_Anschl_315_zen
.Locked = schutz
.ForeColor = color
End With
'eine Ausgabe um den zustand von "Schutz" zu sehen, als check, weil es nicht ging
schutz = MsgBox(schutz, vbOKOnly, "Autausch aufgerufen")
With .Art_Anschl_315_ex
.Locked = schutz
.ForeColor = color
End With
' noch für ca 30 Felder wiederholt nach dem Muster, for...to schleife klappt glaube ich nicht weil die namen nicht "zählbar" sind
End With 'für main.
End Sub