Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

ComboBox

Betrifft: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 13:12:59

Hallo Zusammen
Ich würde gerne eine ComboBox befüllen
Aus Blatt " Monteure " Spalte A2:A
in Spalte b2:b stehen die dazu gehörigen EmailAdressen

ich das gerne in eine ComboBox

und ist es später möglich von dieser ComboBox dann nur die email anzusprechen
z.B
.To = ComboBox1.Value 'E-Mail Empfänger ( aber hier soll er die Spalte 2 der ComboBox nutzen

  

Betrifft: AW: ComboBox von: Hajo_Zi
Geschrieben am: 07.09.2014 13:15:51

TextBox2 = Combobox1.List(CombotBox1.ListIndex, 1)

GrußformelHomepage


  

Betrifft: AW: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 14:06:32

Hallo Hajo

Weisst du wie ich die COmbobox mit 2 Spalten füllen kann ?


  

Betrifft: AW: ComboBox von: Hajo_Zi
Geschrieben am: 07.09.2014 14:16:32

Für eine ListBox, ComnboBox ist analog, Multi gibt es dort nicht würde ich vermuten.

Private Sub UserForm_Activate()
    Dim rngSource As Object
    Dim intColums As Integer
    ListBox1.Tag = 1
    Set rngSource = Range("A1").CurrentRegion
    ' Die oberste Zeile enthaelt die Feldnamen.
    ' Diese brauchen wir nur dort um die Columnheader darzustellen,
    ' aber nicht fuer die Listboxeintraege.
    ' Also den Datenbereich um die Erste Zeile reduzieren.
    Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns. _
Count)
    ' Spaltenanzahl des Datenbereichs ermitteln.
    intColums = rngSource.Columns.Count
    With Me.ListBox1
        .ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
        ' von Peter Haserodt
        ' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
        '.MultiSelect = fmMultiSelectSingle
        ' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
        .MultiSelect = fmMultiSelectMulti
        '.MultiSelect = fmMultiSelectExtended
        ' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.
        ' Dies bewirkt, dass mit Shift und Strg Tasten  eine Mehrfachauswahl getroffen
        ' werden kann
        ' *******
        .ColumnCount = intColums
        .ColumnHeads = True
        .RowSource = rngSource.Address
    End With
    Set rngSource = Nothing
    ListBox1.Tag = ""
End Sub
Gruß Hajo


  

Betrifft: AW: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 14:44:41

Hallo
ICh habe das so geändert

Private Sub UserForm_Activate()
    Dim rngSource As Object
    Dim intColums As Integer
    ComboBox1.Tag = 1
    Set rngSource = Worksheets("Monteure").Range("A:A").CurrentRegion
    ' Die oberste Zeile enthaelt die Feldnamen.
    ' Diese brauchen wir nur dort um die Columnheader darzustellen,
    ' aber nicht fuer die Listboxeintraege.
    ' Also den Datenbereich um die Erste Zeile reduzieren.
    Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.  _
_
Count)
    ' Spaltenanzahl des Datenbereichs ermitteln.
    intColums = rngSource.Columns.Count
    With Me.ComboBox1
        .ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
        ' von Peter Haserodt
        ' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
        '.MultiSelect = fmMultiSelectSingle
        ' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
       
        .ColumnCount = intColums
        .ColumnHeads = True
        .RowSource = rngSource.Address
    End With
    Set rngSource = Nothing
    ComboBox1.Tag = ""
End Sub
Die daten die aber in der ComboBox sind, sind die daten aus dem Ersten Tabellenblatt nicht von dem Blatt Monteure


  

Betrifft: AW: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 15:36:50

Ich habs hinbekommen.
Wie kann ich die 2te Spalte zwar in die Combobox füllen lassen aber nicht anzeigen lassen ?


  

Betrifft: AW: ComboBox von: Hajo_Zi
Geschrieben am: 07.09.2014 15:37:52

stelle Spaltenbreite auf 0

Gruß Hajo


  

Betrifft: AW: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 15:43:52

Danke dir.


  

Betrifft: AW: ComboBox von: Luschi
Geschrieben am: 07.09.2014 15:46:43

Hallo Vulferin,

mit diesser zusätzlichen Angabe weiß die Combobox auch, in welcher Tabelle der Adressbereich _ liegt:

.RowSource = rngSource.Parent.Name & "!" & rngSource.Address
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: ComboBox von: Vulferin
Geschrieben am: 07.09.2014 15:58:09

ICh hab da noch eine FRage oder
1.
Kann eine Textbox Mehrspaltig sein.
so das ich z.B mit Enter in die nächste spalte schreiben kann ?
2.
Ich Sende den Inhalt von Textboxen per email
Jetzt packt er das alle hintereinander
wie kann ich das er im Body bereich
Zeile 1 = Textbox1
Zeile 2 = Textbox 2

so das ich strucktur dareib bekomme
finde leider nix im Internet


 

Beiträge aus den Excel-Beispielen zum Thema "ComboBox"