Combobox Email

[Andyle]

Hallo an alle.

Ich habe verschiedene Comboboxen

Empfänger 1 (to) =  ComboBox1
Empfänger 2 (to) =  ComboBox2

Empfänger3 (cc) =  ComboBox3

Empfänger4 (bcc) =  ComboBox4

Jetzt habe ich 3 intelligente Tabellen mit den Werten (Vorname - Nachname - Emailadresse)

Über RowSource ist es ja über den Namensmanager kein problem, das er alle Emailadressen zur Auswahl anzeigt.

Wie bekomme ich es aber optisch hin, dass er es wie folgt anzeigt:

Vorname, Nachname - Emailadresse

Danke Euch

[ralf_b]

indem du die Werte als Text verknüpfst.  Und wieso benötigst du drei verschiedene Tabellen? Man kann auch nur einzelne Spalten von Tabellen nutzen.

[Andyle]

Mehrere Tabellen, da sonst leere zeilen in die Combobox kommen.

Ja, diese bekommt man mit Bastelei auch raus, muss aber nicht basteln.

Wie bekomme ich den die verkettung hin?

Da muss ich doch bestimmt die zeilennummer auslesen?

so geht es ja nicht, da er ja dann alles einsetzt und nicht die Mailadresse.

=[@Vorname]&", "&[@Nachname]& " - "&[@Emailadresse]

[ralf_b]

naja von nichts, kommt nichts. 

es gibt tausende Anleitungen für dein Thema. Aber du hast dich entschlossen hier eine Frage zu stellen, die gelinde gesagt, recht allgemein gehalten ist, für einen passenden Vorschlag. Bei VBA gibt es immer mehr als eine Lösung. Das Zauberwort hier ist hier wie so oft "Beispieldatei".

[Andyle]

vieleicht war es etwas unverstänlich.

Und beispiele hab ich nicht wirklich gefunden.

SpalteA Vorname
SpalteB Nachname
Spaltec Emailadresse

soll ergeben

als Ansicht in der combobox: Vorname, Nachname - Emailadresse

Nutzen soll er ja aber nur die emailadresse

[knobbi38]

Hi,

es ist nicht nötig, eine Beispieldatei zu suchen, sondern du sollst eine erstellen und sie hier hochladen. In der Regel übernehmen Helfer keine Aufgabe dieser Art, deshalb ist es wichtig, dass du diese Aufgabe selbst übernimmst.

Knobbi38

[Andyle]

Lösung:

Text = .ComboBox1.Text

If .ComboBox1.Text <> "" Then
.ComboBox1.Text = Right(Text, InStr(1, StrReverse(Text), " - ") - 1)
End If

[Andyle]

Endlösung:

=[@Vorname]&" "&[@Nachname]& " ("&[@Emailadresse]&")"

[slowboarder]

Hi
du kannst so vorgehen:

1. der intelligenten Tabelle eine 4. Spalte hinzufügen, in welcher du die drei Begriffe zu einem Wert zusammensetzt (Formel ist ja bekannt)

2. Weise den Comboboxen als Rowsource die ganze Tabelle zu 

3. in der Eigenschaft TextColumn kannst du einstellen, welche Spalte in der Textzeile angezeigt wird
in der Eigenschaft BoundColumn kannst du einstellen, welche Spalte als Ergebnis für .Value oder in die Ausgabe der verknüpften Zelle (ControlSource, LinkedCell) verwendet wird
in der Eigenschaft ColumnWidth kannst du über die Angabe der Spaltenbreite (0 = Ausblenden) einstellen, welche Spalten der Tabelle in der Klappliste der Combobox angezeigt werden.

Gruß Daniel