Office: mehrere Checkboxen in Zelle schreiben

Moin Leute, folgendes Problem beschäftigt mich:*frown.gif*
Ich habe in einer Userform 5 Checkboxen, name ist wegen der einfachheit: A, B, C, D, E

Je nachdem welche Checkbox angeklickt ist, soll der name der box in eine Zelle geschrieben werden, dabei ist natürlich mehrfachauswahl möglich.
Bsp:
Ich habe A, B und C angeklickt,
in die Zelle...
Code:

...soll nun A, B und C geschrieben werden.

Also alle angeklickten Checkboxen namen sollen in diese Zelle geschrieben werden

Meine Überlegung ist, für jeden eintretenen Fall eine If schleife zu basteln*boah , aber das ist verdammt umständlich und viel.
Habt ihr da vllt. eine einfachere und passende Lösung

Gruß Stephan

:)

 

Hallo Stephan,

verwende eine Schleife:

 

HAllo

Versuchs doch mal so:

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CheckBox1_Click()
Call machs
End Sub

Private Sub CheckBox2_Click()
Call machs
End Sub

Private Sub CheckBox3_Click()
Call machs
End Sub

Private Sub CheckBox4_Click()
Call machs
End Sub

Private Sub CheckBox5_Click()
Call machs
End Sub

Public Sub machs()
Dim myControl As msforms.Control
Dim i As Integer
Redim out(i)
For Each myControl In Me.Controls
If TypeOf myControl Is msforms.CheckBox Then
If myControl.Value = True Then
Redim Preserve out(i)
out(i) = myControl.Name
i = i + 1
End If
End If
Next
MsgBox Join(out, ", ")
End Sub

ransi

 

Hallo,

Also ich hab den Code jetzt bei mir angepasst, bekomme aber die Fehlermeldung:
Laufzeitfehler 5: Ungültiger Prozeduraufruf bei...
Code:

Code:

 

Hallo Stephan,

dann ist keine Checkbox aktiv. Dadurch ist die Länge der Stringvariablen strCBs gleich 0 und der Fehler tritt auf. Prüfe vor der Ausgabe in die Zelle die Länge der Stringvariablen, damit umgehst du den Laufzeitfehler.

 

Hallo Ransi, vielen Dank, dein Code funktioniert so weit, aber leider nimmt er jetzt alle Checkboxen mit auf, er soll aber nur checkbox 3 bis 7 nehmen.
Sry, das hatte ich vergessen zu sagen. in der Userform gibt es vorher auch noch 2 Checkboxen die nix mit der Routine zu tun haben sollen
Gruß,
Stephan

 

Hallo Stephan,

das funktioniert bei mir einwandfrei. Verwechselst du vielleicht den Namen und die Beschriftung der Checkboxen? Dann müsste es mit cb.Caption statt cb.Name klappen.

Gruß Ingolf

 

Hallo Ingolf,

ist das nicht erstmal irrelevant, dein Code soll mir die namen in die zellen schreiben, aber das funktioniert bei mir einfach nicht, in der gewünschten Zelle steht einfach nichts.
Ich hab auch keine Ahnung wodran das liegen könnte

Code:

 

Hat noch einer ne idee, wie ich den code von ransi so ändern kann dass mir am ende nur die Boxen 3,4,5,6,7 ausgegeben werden und die Boxen 1,2 nicht?

 

Hallo Stephan,

Nein, das ist nicht irrelevant! Die Checkboxen werden über ihre Namen erkannt. Wenn du Namen und Beschriftung miteinander verwechselst, erkennt der Code die Checkboxen nicht und dann liefert er natürlich auch nichts zurück.

Gruß Ingolf

 

Hallo Stephan,

Was soll nur immer diese herabwürdigende Frage?

Ähnliche Lösungen hattest Du doch schon hier
http://www.ms-office-forum.de/forum/...d.php?t=284471
erhalten. Die hättest Du leicht anpassen können - DAS wär mal eine Idee gewesen *wink.gif*

Wenn Du einzelne Controls einer Userform gruppieren möchtest, nimm dafür ein FRAME und zieh alle betreffenden Controls hinein. Dann kannst Du alle Controls dieses Frames separat durchlaufen:
Code:

andere Variante, wenn Du die NAMEN vorgibst:
Code:

Grüße
EarlFred

 

ja klaaar, man man man
es funktioniert habe die Boxen einfach zu einem Frame hinzugefügt!
Danke*Smilie