Gibt es eigentlich für den unten aufgeführten Code eine "verkürzte" Schreibweise?
So wie ich das jetzt mit meinem "Wissen" zusammengepfriemelt habe, funzt es ja, aber es is ja schon irre viel an "Text"
Lässt sich soetwas auch verkürzt schreiben? Wenn ja wie?
LG Gerhard
Private Sub Userform_initialize()
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = False
txt_TL_Menge.Visible = False
lbl_TL_LFSDatum.Visible = False
txt_TL_LFSDatum.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_WareIO.Visible = False
Opt_TL_WareIO.Visible = False
Opt_TL_WareNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = False
cbo_TL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub
Private Sub Opt_KL_Click()
Me.txtStatus = "RECHNUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_KL_Menge.Visible = True
txt_KL_Menge.Visible = True
lbl_KL_LFSDatum.Visible = True
txt_KL_LFSDatum.Visible = True
lbl_KL_LFSNr.Visible = True
txt_KL_LFSNr.Visible = True
lbl_KL_LFSNr.Visible = True
txt_KL_LFSNr.Visible = True
lbl_KL_WareIO.Visible = True
Opt_KL_WareIO.Visible = True
Opt_KL_WareIO = Enabled
Opt_KL_WareNIO.Visible = True
Opt_KL_WareNIO = Not Enabled
lbl_KL_BegrNIO.Visible = True
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = True
cbo_KL_GeprVon.Visible = True
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = False
txt_TL_Menge.Visible = False
lbl_TL_LFSDatum.Visible = False
txt_TL_LFSDatum.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_LFSNr.Visible = False
txt_TL_LFSNr.Visible = False
lbl_TL_WareIO.Visible = False
Opt_TL_WareIO.Visible = False
Opt_TL_WareNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = False
cbo_TL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub
Private Sub Opt_KL_WareNIO_Click()
txt_KL_BegrNIO.Visible = True
lbl_KL_BegrNIO.Visible = True
End Sub
Private Sub Opt_KL_WareIO_Click()
txt_KL_BegrNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
End Sub
Private Sub Opt_TL_Click()
Me.txtStatus = "LIEFERUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_TL_Menge.Visible = True
txt_TL_Menge.Visible = True
lbl_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Visible = True
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
lbl_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareIO = Enabled
Opt_TL_WareNIO.Visible = True
Opt_TL_WareNIO = Not Enabled
lbl_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Visible = False
lbl_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Visible = True
Opt_KL.Visible = True
lbl_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
Opt_RL.Visible = True
lbl_RL.Visible = True
lbl_RL_Menge.Visible = False
txt_RL_Menge.Visible = False
lbl_RL_LFSDatum.Visible = False
txt_RL_LFSDatum.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_LFSNr.Visible = False
txt_RL_LFSNr.Visible = False
lbl_RL_WareIO.Visible = False
Opt_RL_WareIO.Visible = False
Opt_RL_WareNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = False
cbo_RL_GeprVon.Visible = False
End Sub
Private Sub Opt_TL_WareNIO_Click()
txt_TL_BegrNIO.Visible = True
lbl_TL_BegrNIO.Visible = True
End Sub
Private Sub Opt_TL_WareIO_Click()
txt_TL_BegrNIO.Visible = False
lbl_TL_BegrNIO.Visible = False
End Sub
Private Sub Opt_RL_Click()
Me.txtStatus = "RECHNUNG OFFEN"
lbl_KL.Visible = True
Opt_KL.Visible = True
lbl_RL_Menge.Visible = True
txt_RL_Menge.Visible = True
lbl_RL_LFSDatum.Visible = True
txt_RL_LFSDatum.Visible = True
lbl_RL_LFSNr.Visible = True
txt_RL_LFSNr.Visible = True
lbl_RL_LFSNr.Visible = True
txt_RL_LFSNr.Visible = True
lbl_RL_WareIO.Visible = True
Opt_RL_WareIO.Visible = True
Opt_RL_WareIO = Enabled
Opt_RL_WareNIO.Visible = True
Opt_RL_WareNIO = Not Enabled
lbl_RL_BegrNIO.Visible = True
txt_RL_BegrNIO.Visible = False
lbl_RL_GeprVon.Visible = True
cbo_RL_GeprVon.Visible = True
Opt_TL.Visible = True
lbl_TL.Visible = True
lbl_TL_Menge.Visible = True
txt_TL_Menge.Visible = True
txt_TL_Menge.Locked = True
txt_TL_Menge.BackColor = &HE0E0E0
lbl_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Visible = True
txt_TL_LFSDatum.Locked = True
txt_TL_LFSDatum.BackColor = &HE0E0E0
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
txt_TL_LFSNr.Locked = True
txt_TL_LFSNr.BackColor = &HE0E0E0
lbl_TL_LFSNr.Visible = True
txt_TL_LFSNr.Visible = True
txt_TL_LFSNr.Locked = True
txt_TL_LFSNr.BackColor = &HE0E0E0
lbl_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareIO.Visible = True
Opt_TL_WareNIO.Locked = True
Opt_TL_WareNIO.Locked = True
lbl_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Visible = True
txt_TL_BegrNIO.Locked = True
txt_TL_BegrNIO.BackColor = &HE0E0E0
lbl_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Visible = True
cbo_TL_GeprVon.Locked = True
cbo_TL_GeprVon.BackColor = &HE0E0E0
Opt_KL.Visible = True
lbl_KL.Visible = True
lbl_KL_Menge.Visible = False
txt_KL_Menge.Visible = False
lbl_KL_LFSDatum.Visible = False
txt_KL_LFSDatum.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_LFSNr.Visible = False
txt_KL_LFSNr.Visible = False
lbl_KL_WareIO.Visible = False
Opt_KL_WareIO.Visible = False
Opt_KL_WareNIO.Visible = False
lbl_KL_BegrNIO.Visible = False
txt_KL_BegrNIO.Visible = False
lbl_KL_GeprVon.Visible = False
cbo_KL_GeprVon.Visible = False
End Sub
Private Sub Opt_RL_WareNIO_Click()
txt_RL_BegrNIO.Visible = True
lbl_RL_BegrNIO.Visible = True
End Sub
Private Sub Opt_RL_WareIO_Click()
txt_RL_BegrNIO.Visible = False
lbl_RL_BegrNIO.Visible = False
End Sub