Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Checkboxen Werte addieren

Mehrere Checkboxen Werte addieren
31.10.2021 18:31:59
Andreas
Hallo alle zusammen,
ich habe 18 Checkboxen die ich SendTo1 bis SendTo18 benannt habe.
Jeder Checkbox möchte ich später eine Emailadresse zuweisen.
Durch anklicken in einem Formular kreiert er mir eine Email. Ich würde jetzt gerne, dass er mir anhand der zuvor angeklcikten SenTo die zugehörigen Adressen aneinander reiht. Kann mir jemand sagen, wie man das am einfachsten gestalten kann? Das Makro für das Email hab ich .. nur weiss ich leider nicht, wie ich die jeweiligen Emailadressen anhand der Option aneinander gereiht bekomme.
Vielen Dank

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Checkboxen Werte addieren
31.10.2021 18:49:12
Yal
Hallo Andreas,

Function Auflisten ()
Dim msg as String
Dim i
For i = 1 To 18
msg = msg & ";" & Me.Controls("Send to" & i)
Next
Auflisten = Mid (msg, 2)
End Function
VG
Yal
AW: Mehrere Checkboxen Werte addieren
31.10.2021 19:21:00
Yal
Hallo Andreas,
ach so, übersehen: nur wenn es angeklickt ist.
Ausserdem der Default-Eigenschaft von CheckBox ist Value und nicht Caption. Mit der erste Version hättest Du
Wahr;Wahr;Falsch;Wahr;Flasch;...

Function Auflisten()
Dim msg As String
Dim i
For i = 1 To 18
With Me.Controls("SendTo" & i)
If .Value Then msg = msg & ";" & .Caption
End With
Next
Auflisten = Mid(msg, 2)
End Function
VG Yal
Anzeige
AW: Mehrere Checkboxen Werte addieren
31.10.2021 20:26:31
Andreas
Und wo hinterlege ich dann die Emailanschriften ?
AW: Mehrere Checkboxen Werte addieren
31.10.2021 20:28:15
Andreas
AH verstehe, du willst die Emailadresse bei den Captions hinterlegen. Schlecht, denn da sollte in Klartext der Name von demjenigen hin... das kann ich also leider nicht als emailadresse definieren ;(
AW: Mehrere Checkboxen Werte addieren
31.10.2021 21:13:21
Yal
Hallo Andreas,
da meine Kristallkugel nicht ganz gut deine Beispieldatei erfassen kann, habe ich natürlich das Thema Klarnamen gegen Mailadresse nicht bedacht. Aber ich arbeite gerade an einer Makro zum Gedankenlesen. Brauche aber noch ein Bischen Zeit.
Spass beiseite. Du hast sicher irgendwo eine Liste der Klarnamen und daneben die passende Mails. Die Namen sind sicher eindeutig genug, um beim Lesen der Captions (Namen) einen Verweis auf die Adresse gemacht werden kann.

Private Sub cmdOk_Click()
Dim i
Dim R As Range
Dim msg As String
Set R = ThisWorkbook.Worksheets("Tabelle1").Range("A1:B18")
For i = 1 To 18
With Me.Controls("SendTo" & i)
If .Value Then msg = msg & ";" & WorksheetFunction.VLookup(.Caption, R, 2, False)
End With
Next
Auflisten = Mid(msg, 2)
Me.Hide
Unload Me
End Function
VG
Yal
Anzeige
AW: Mehrere Checkboxen Werte addieren
31.10.2021 18:53:31
Piet
Hallo
das Prinzip Text verketten ist einfach, bei 18 Boxen probiere es mit einer For Next Schleife. Im Prinzp so: - MaliAdresse = MailAdresse & CheckBoxes(n).Text
mfg Piet
AW: Mehrere Checkboxen Werte addieren
31.10.2021 21:07:34
Daniel
Hi
In einer Userform so:
1. schreibe in einem Blatt die Klarnamen in A1:A18 und die Adressen in B1:B18
2. ersetze die 18 Checkboxen durch eine Listbox vom Typ Multiselect
Verknüpfen die Listbox mit dem Zellbereich (Eigenschaft Rowsource: Tabelle1!A1:B18)
Setze die Spaltenanzahl auf 2, wenn nur die Namen angezeigt werden sollen, blendest du die zweite Spalte über Columnwidth aus in dem du den Wert für die zweite Spalte auf 0 setzt.
Als Code reicht dann:

For i = 0 to Listbox1.ListCount - 1
If Listbox1.Selected(i) then txt = txt & ";" & Listbox1.List(i, 1)
Next
txt = mid(txt, 2)
In der Variablen txt stehen dann alle ausgewählten Mailadressen mit dem Trennzeichen Semikolon.
Ist nicht nur kurz und einfach, sondern hat auch den Vorteil, dass du Namen und Adressen in der Tabelle ändern kannst, ohne in den Code eingreifen zu müssen.
Wenn du die Zuweisung der Tabelle zur Listbox richtig machst, kannst di.o hierüber sogar die Anzahl ändern, ohne in den Code eingreifen zu müssen.
Gruß Daniel
Anzeige
AW: Mehrere Checkboxen Werte addieren
01.11.2021 06:40:56
Andreas
Hey ihr beiden...
die letzte Idee hat mir am besten gefallen. Auf die Idee mit der Listbox bin ich noch gar nicht gekommen.
Und hat den Vorteil: braucht weniger Platz und ist übersichtlicher...und pflegeleichter.
Danke für die Hilfen...klappt beides bestens.

300 Forumthreads zu ähnlichen Themen

von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
SVERWEIS mit mehreren Einträgen
Tom

Hallo,
Ich führe ein Transaktionsjournal, welches ich auswerten möchte. Folgende Spalten habe ich zur Verfügung:
Datum
Text
Betrag
Pro Datum kann es mehrere Einträge geben.
Ich möchte nun eine konsolidierte Tabelle erstellen, in welcher pro Datum alle Texte und der Gesa...
19.01.2009 17:01:00
Thread-ID: 1041567
3 Beiträge
sverweis o. index mit mehreren ergebnissen
Nico

Moin
Ich benötige nochmal Hilfe:
In meinem Tabellenblatt "Geschäftspartner" möchte ich den Geschäftspartner die entsprechenden Auftragsnummern zuweisen. (Im Prinzip einfach in die nächsten Spalten schreiben)
Die Auftragsnummer sind in einem Jahresüberblick zusammen mit den Geschäfts...
25.02.2009 15:54:45
Thread-ID: 1054026
3 Beiträge
Anzeige
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
SVERWEIS & Co mit mehreren Dateien
Mike

Hi,
ich habe ca. 1000 Kabel erfasst in mehreren Dateien (je Verteiler eine Datei)
mit den Spalten: KABELNUMMER, SCHRANKNAME, PATCHFELD, PORT
D.h ich habe bei richtig erfassten Kabeln je eine Zeile in zwei Dateien (Verteilerschränken).
und sollte in einer der neun anderen Dateien...
24.09.2009 07:43:05
Thread-ID: 1104979
2 Beiträge
Sverweis mit mehreren matches.
Helge

Hi,
ich hab im Archiv zwar einige Loesungen gefunden, jedoch hab ich keins zum laufen bekommen. Denke das es am Zeit und Datumsformat liegt. Nun bin ich mal wieder auf eure hilfe angewiesen.
Hab eine kleine bsp datei vorbereitet:
Die Datei https://www.herber.de/bbs/user/67926.xls w...
11.02.2010 14:49:54
Thread-ID: 1137772
5 Beiträge
Sverweis bei mehreren "Treffern"
Thaler

Hallo Zusammen,
habe ein Problem, bei dem ich einfach nicht weiterkomme:
Aktuell: Die Formel in F2 ff. soll den "WERT" aus C ausgeben, unter der Bedingung, dass das Datum (A) innerhalb des angegebenen Zeitraums liegt.
Problem: Sverweis sucht ja immer nur so lange, bis er das gesuch...
13.04.2010 18:28:02
Thread-ID: 1151553
7 Beiträge
Sverweis mit mehreren Suchkrieterien
amintire

Hallo alle zusammen,
evtl hat jemand eine Lösung hierbei mit einer SVerweis Formel mit mehreren Suchfunktionen.
https://www.herber.de/bbs/user/69143.xls
Vielen Dank.
Gruß amintire
19.04.2010 09:03:22
Thread-ID: 1152516
9 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
2
2
4
1
1
4
6
8
2
1
2
9
9
7
5
5
2
7
2
2
5
3
3