Office: Checkbox: Häkchen gesetzt, Caption kopieren

Hi,

sorry, kann ich gerade nicht nachvolzziehen was du meinst. Du müsstest schon mal genau beschreiben, in welcher Reihenfolge du was machst und wann dabei die Zelle dann leer ist. Und eine hochgeladene Beipsielmappe würde das ganze noch wesentlich vereinfachen.

 

Hallo,
hatte gestern leider keine Zeit mehr. Daher jetzt meine Leer-Datei!
Mein Problem hat sich mittlerweile erübrigt, da ich nicht alles aktuell im Code gehalten habe.

Abr ne andere Frage, bekommt man es so hin, dass das auszufüllende Feld in der Reihenfolge ausgefüllt wird, wie die checkboxen auch aufgebaut sind!
Schwierig formuliert, Aber vielleicht hast du's ja?

Gruß Hauenkrieger

 

Hi,

wenn ich das richtig verstanden habe, dann muss der Zellinhalt jedesmal neu zusammengesetzt werden. In deinem Fall scheinen die CheckBoxen fortlaufend nummeriert zu sein, dann könnte man es ohne Parameterübergabe und so realisieren:

Code:

 

Hallihallo,

bin erst heut wieder zu meinem problem gekommen.

Danke vielmals! Funktioniert einwandfrei!

Nochmals danke

gruss hauenkrieger

 

HalliHallo,

vielleicht könnt ihr mir hierbei nochmal helfen.

Ich habe eine Kombo-box,
diese wird halt durch verschiedene Angaben gefüllt.
Wenn eine Auswahl getroffen wurde, sollen sich bestimmte Checkboxen (die untereinander stehen) füllen.

Ist dieses möglich.

Vielen Dank schonmal für Eure Hilfe
Ih hoffe, ich habe mein Anliegen einigermaßen vorstellen können

Gruß
Hauenkrieger

 

Hi,

Ja das ist möglich. Ohne jedoch deine Mappe zu kennen kann man nichts genaues dazu sagen.

 

Danke für die fixe antwort,

mein vorhandener Code sieht so aus.

Checkbox 21 bis ... sind Namen im Verteiler

Eine Combox mit z.B. Einkauf, soll nur gewisse Checkboxen ansprechen.

rivate Sub CheckBox21_Click()
Eintragen
End Sub

Private Sub CheckBox22_Click()
Eintragen
End Sub

Private Sub CheckBox23_Click()
Eintragen
End Sub

Private Sub CheckBox24_Click()
Eintragen
End Sub

Private Sub CheckBox25_Click()
Eintragen
End Sub

Private Sub CheckBox26_Click()
Eintragen
End Sub

Private Sub CheckBox27_Click()
Eintragen
End Sub

Private Sub CheckBox28_Click()
Eintragen
End Sub

Private Sub CheckBox29_Click()
Eintragen
End Sub

Private Sub CheckBox30_Click()
Eintragen
End Sub

Private Sub CheckBox31_Click()
Eintragen
End Sub

Private Sub CheckBox32_Click()
Eintragen
End Sub

Private Sub CheckBox33_Click()
Eintragen
End Sub

Private Sub CheckBox34_Click()
Eintragen
End Sub

Private Sub CheckBox35_Click()
Eintragen
End Sub

Private Sub CheckBox36_Click()
Eintragen
End Sub

Private Sub CheckBox37_Click()
Eintragen
End Sub








Sub Eintragen()
Dim intZaehler As Integer
Dim strInhalt As String
For intZaehler = 21 To 37
If ActiveSheet.OLEObjects("CheckBox" & intZaehler).Object Then
strInhalt = strInhalt & ActiveSheet.OLEObjects("CheckBox" & intZaehler).Object.Caption & Chr(10)
End If
Next intZaehler
Range("Z7") = strInhalt
End Sub


Private Sub ComboBox22_Change()

End Sub

 

Da ich deine Mappe nach wie vor nicht kenne, gedanklicher Ansatz: benutze statt Sub Eintragen() eine Sub mit Parameterübergabe, übergib an diese die Nummern der anzusprechenden CheckBoxen in einem Array und prüfe dann in der Sub, ob die laufende Nummer im Array enthalten ist.

 

Danke für die Antwort,

aber ich glaube das ist mir zu hoch.
Bin im VBA kein Experte.

 

Dann lade doch mal deine Mappe hoch (sensible Daten kannst du durch Dummydaten ersetzen).

 

Guten Morgen,

habe mal eine Dummy-Datei erstellt

Ich kann meine Namen anklicken und die werden in den Verteiler gesetzt.
Durch auswählen der Abteilung(Combox) sollen bestimmte Personen gleichzeitig ausgewählt werden. (Zusätzlich soll die einzelAuswahl immer noch funktionieren)

 

Hi,

ergänze für die ComboBox folgenden Code:

Code:

Da ich nicht weiß, welche Namen wie zugeordnet sein sollen, musst du das im Code selbstverständlich selbst anpassen.

 

HalliHallo,

vielen vielen Dank!

Funktioniert einwandfrei! Hammer!!!!!!!!!!

Gruß
Hauenkrieger