Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
33 CheckBoxen in Gruppen teilen?
15.03.2005 16:22:47
StJ
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
So siehts für eine CeckBox aus...
15.03.2005 16:49:43
StJ
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
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige