Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
800to804
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
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
checkbox in array eintragen
08.09.2006 15:49:23
david
hi ihr tüfter,
folgendes problem:
ich habe etwa 20checkboxen in einer userform, also
checkbox1
.
.
.
checkbox20
nur einige davon werden aktiviert, z.b 3,7,15
in meinem array sollen dann diese aktiven checkboxen auftauchen, also quasi
arr(3,7,15)
wie kann ich das machen?
danke im vorraus
(achja wie kann ich eine einzelne chackbox ansprechen, ich bräuchte
"if checkbox(i).value=true then", aber das geht irgendwie nicht?)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: checkbox in array eintragen
08.09.2006 17:41:44
{Boris}
Hi David,
hier mal ein Beispiel, wie du die Namen der aktiven Checkboxen einlesen kannst:
Option Explicit

Private Sub CommandButton1_Click()
Dim arr() As Variant, objCb As Control, i As Integer, k As Integer
For Each objCb In Me.Controls
If TypeName(objCb) Like "Check*" Then
If objCb.Value = True Then
i = i + 1
ReDim Preserve arr(1 To i)
arr(i) = objCb.Name
End If
End If
Next objCb
'Diese Schleife dient nur zu Testzwecken, um das Array zu überprüfen
For k = 1 To i
MsgBox arr(k)
Next k
End Sub

Zu Deiner 2. Frage:
(achja wie kann ich eine einzelne chackbox ansprechen, ich bräuchte
"if checkbox(i).value=true then", aber das geht irgendwie nicht?)

Me.Controls("CheckBox" & i)
Natürlich nur, wenn Du die Box nicht umbenannt hast.
Grüße Boris
Anzeige
Danke!!!
08.09.2006 18:42:09
david
sehr schön ich danke dir, da wäre ich nicht drauf gekommen.
ich musste nur noch....
arr(i) = objCb.Name
...ändern in...
arr(i) = Mid(objCb.Name, 9, Len(objCb.Name) - 8)
jetzt habe ich einen array mit den aktivierten checkbox-nummern.
DAAANKESCHÖN

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige