Kombinationsfeld+andere Felder deaktivieren
06.08.2003 14:33:32
Markus
ich habe ien Problem wo ich bitte Eure Hilfe brauche.
Ich habe ein Kombinationsfeld, wo ich werte aus einer Tabelle einlese, ich möchte nun wenn ein leeren eintrag gewählt wurde, alle anderen Felder auf Enabled=False setzen, aber leider klappt das nicht, was mache ich falsch?
Code
Private Sub Filiale_Change()
'Arrays setzen
Dim Fil_Ar As Variant
Dim VK_Name_Ar As Variant
Dim Modell_Ar As Variant
Dim Zul_Grund_Ar As Variant
Dim Status_Ar As Variant
'Felder in Abhängigkeit der Filiale füllen
'Listenboxen füllen
VK_Name.List = VK_Name_Ar
Modell.List = Modell_Ar
If Filiale.Value <> "" Then
'Felder freigeben
KD_Nummer.Enabled = True
KD_Name.Enabled = True
VK_Name.Enabled = True
Modell.Enabled = True
Fhgst_Nummer.Enabled = True
Zul_Datum.Enabled = True
Zul_Grund.Enabled = True
status.Enabled = True
zaehlen_ja.Enabled = True
zaehlen_nein.Enabled = True
eintragen.Enabled = True
Else
KD_Nummer.Enabled = False
KD_Name.Enabled = False
VK_Name.Enabled = False
Modell.Enabled = False
Fhgst_Nummer.Enabled = False
Zul_Datum.Enabled = False
Zul_Grund.Enabled = False
status.Enabled = False
zaehlen_ja.Enabled = False
zaehlen_nein.Enabled = False
eintragen.Enabled = False
End If
End Sub
Folgende Formel steht in den Quellzellen =WENN(I9=$Q$36;B9;"")
Der Inhalt der Zelle ist also leer, warum geht das dann nicht
Danke schonmal
Markus
Anzeige