Office: Combobox einbinden

Hallo,

ich bastele an einer Funktion, bei der ich an einer Stelle im Programm eine Combobox aufrufen möchte, die dann mit bestimmten Werten aus einer Tabelle gefüllt ist und dann den gewählten Wert als Mailadresse übernimmt. Deshalb soll dieser auch in einer Variablen gespeichert werden.

Da es bei dem Auswahlbereich zwei Möglichkeiten gibt, wird der Datenbereich vorher in einer Variablen gespeichert. Soweit gut.

Jetzt kann ich zwar aus dem Programm heraus das UserForm mit der Combobox anzeigen lassen, aber die hier benannten Funktionen wie AddItem etc sprechen nicht an.
Woran liegt das ?

Code:

cbxMail.Show
 
 With cbxMail
 .AddItem.Range (adress)
 .ListIndex = 1
 .SelectedValue = cm
 
 End With

 

Hallo Sven,

lade mal die Datei anonymisiert hoch, damit man was genaueres daraus entnehmen kann.
beispielhaft für füllen einer ConboBox Liste:
.AddItem "DeinWert"
.List = .Range("A1:A10")

Gruß Uwe

 

Hi Uwe,

ich hab das mal hier zusammen gebastelt.
Ohne die Adressauswahl funktioniert das mit der Mail ja auch, auch ein Anhang ist da mit dran, aber auf den könne wir hier verzichten, das funzt ja.

BG
Sven

 

Sorry, hatte noch das User Form vergessen..

 

Hallo Sven,

Es werden alle beide Blöcke eingelesen. Die Combobox ist 3 spaltig. Value ist auf Spalte 2 eingestellt.
Teste mal.

Gruß Uwe

 

Hier hängt es noch

 

Aber ich will ja auch das jeweils nur eine Liste zur Auswahl gestellt wird und die Auswahl dann eingetragen wird..
Die Auswahl der richtigen Liste erfolgt über den Indexwert in F2 der Hilfstabelle.
Dazu kommt eine Adresse die fix gesetzt werden kann.

Oder bin ich zu ungeduldig?
Beste Grüße
Sven

 

Hallo Sven,
Wenn keine Mailadresse im Userform ausgewählt wurde, gibt es einen Fehler. Fehlerbehandlung solltest du eigentlich selbst schaffen.
Sollte .to = ... aus irgendeinem Grund nicht funktionieren, dann diese Zeile so:

Code:

.Recipients.Add Frm_Mail.cbxMail.List(Frm_Mail.cbxMail.ListIndex, 2)

Gibt es einen nachvollziehbaren Grund die Combobox so kleinteilig zu laden?
Es ist doch gut erkennbar in der Combobox welche Adresse wo zugeordnet ist.
Anbei so umgebaut.

Gruß Uwe

 

Hallo Uwe,

also ich bekomme weiter diese Fehlermeldung:


Ich bekomme ja leider die Combobox nicht angezeigt und die gute Auswahlmöglichkeit zu beurteilen. das wäre dann aber tatsächlich kein Hindernis.

 

Ich denke ich habe den Haken gefunden.
Ich möchte ja unbedingt, dass die Prozedur über den Button in der tbl_1 aufgerufen wird. Das habe ich jetzt eingerichtet und jetzt funktioniert das soweit auch. Super und danke für Deine Unterstützung.

Zwar noch nicht ganz so, wie ich mir das am Ende vorstelle, aber für diesen wichtigen Teil schonmal wunderbar.
An den zwei verbleibenden Details arbeite ich jetzt noch.

 

Wenn ich jetzt das Formular aus dem Editor aufrufe, dann selektiert es mir die gewünschten Bereiche, rufe ich es aber über eine gesonderte Prozedur mit Frm:Mail.Show auf, dann bekomme ich alle Daten angezeigt, das will ich natürlich nicht.

Gibt es hier noch eine andere Methode?

 

setze einen Button aufs Tabellenblatt und starte damit das Userform. Drücke den Button im Userform und das Mail wird erzeugt.

Gruß Uwe

 

Ja, so habe ich es gemacht. In der Testdatei läuft das auch, aber nicht in meinem eigentlichen Projekt.
In der Testdatei habe ich über eine Prozedur das Form aufgerufen und alles lief.
In meinem eigentlichen Projekt hängt es aber weiter an der Listfunktion, wie oben.

 

Jetzt habe ich es.

Überall ein wenig etwas anpassen und das Ergebnis stimmt nun.

Vielen Dank für Deine Unterstützung.

 

ahhh, jetzt erklärst du überhaupt erst wo es klemmt.
Nimm die Testdatei und schaue in den Namensmanger. Da findest du rng_1 und rng_2.

Wie legt man diese an. Dazu gibt es den Weg über den Namensmanager. Dieser ist selbsterklärend.

Du kannst aber auch einfach die Zellen selektieren.
Links oben im Ribbon Band ist ein DropDown.
In diesen DropDown trägst du einen Namen für den selektierten Bereich ein.

Also A7 bis B10 selektieren (grau markieren) und dann in den DropDown rng_1 eintragen.
Jetzt kannst du im DropDown deinen Bereich auswählen und dieser wird selektiert.
In der Prozedur dich dir geschrieben habe werden diese Ranges abgefragt. Wenn diese nicht angelegt wurden kommt es zu diesem Fehler.

Gruß Uwe