33 CheckBoxen in Gruppen teilen??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: 33 CheckBoxen in Gruppen teilen?? von: StJ
Geschrieben am: 15.03.2005 16:22:47

Saluti a tutti, :)

Folgendes Problem:

33 CheckBoxen mit unterschiedlichen Namen (also nicht Checkbox1,2,3...)

Jeder CheckBox wurde einen festen Namen zugewiesen. (z.B CK_WirkT1)

Da es aber auch Gruppen gibt (z.b Gruppe "kWh" : hier CK_WirkT1 und CK_WirkT2)
sollte nachdem ich CK_WirkT1 gewählt habe nur CK_WirkT2 noch Enable=True sein
und alle anderen Enable = False.

Das schwierige ist halt das jede Box einen anderen Namen hat und zu einer Gruppe
gehört. Wenn ich für jede Box die If then verwenden würde.... "Puhhh".

Gibts da noch eine andere Lösung?

THX im Voraus

MFG StJ

Bild


Betrifft: So siehts für eine CeckBox aus... von: StJ
Geschrieben am: 15.03.2005 16:49:43

Beim setzen oder entfernen des Häckchen für CK_WirkTotal (Click)

Und das 33 mal für die Gruppen...??? Da hab ich heute aber noch was vor... ;o)

'gleiche Gruppe
If CK_WirkT1.Enabled = True Then
CK_WirkT1.Enabled = True
Else
CK_WirkT1.Enabled = False
End If

'gleiche Gruppe
If CK_WirkT2.Enabled = True Then
CK_WirkT2.Enabled = True
Else
CK_WirkT2.Enabled = False
End If

CK_BlindTotal.Enabled = False
CK_BlindT1.Enabled = False
CK_BlindT2.Enabled = False

CK_ScheinTotal.Enabled = False
CK_ScheinT1.Enabled = False
CK_ScheinT2.Enabled = False

'gleiche Gruppe
If CK_AktTarif.Enabled = True Then
CK_AktTarif.Enabled = True
Else
CK_AktTarif.Enabled = False
End If

CK_AktWirkTotal.Enabled = False
CK_AktWirkL1.Enabled = False
CK_AktWirkL2.Enabled = False
CK_AktWirkL3.Enabled = False

CK_AktBlindTotal.Enabled = False
CK_AktBlindL1.Enabled = False
CK_AktBlindL2.Enabled = False
CK_AktBlindL3.Enabled = False

CK_AktScheinTotal.Enabled = False
CK_AktScheinL1.Enabled = False
CK_AktScheinL2.Enabled = False
CK_AktScheinL3.Enabled = False

CK_MaxWirkTotal.Enabled = False
CK_MaxWirkT1.Enabled = False
CK_MaxWirkT2.Enabled = False

CK_AktSpannungL1.Enabled = False
CK_AktSpannungL2.Enabled = False
CK_AktSpannungL3.Enabled = False

CK_AktStromTotal.Enabled = False
CK_AktStromL1.Enabled = False
CK_AktStromL2.Enabled = False
CK_AktStromL3.Enabled = False

CK_AktNetzFreq.Enabled = False

CK_AktFormFakL1.Enabled = False
CK_AktFormFakL2.Enabled = False
CK_AktFormFakL3.Enabled = False

End If


If CK_WirkTotal.Value = False Then
If CK_WirkT1.Value = False And CK_WirkT2.Value = False Then
Modul_DatenAuswertung.Valid_CheckB
Else
CK_WirkTotal.Value = False
End If
End If

End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "33 CheckBoxen in Gruppen teilen??"