Microsoft Excel

Herbers Excel/VBA-Archiv

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

ComboBox1

Betrifft: ComboBox1 von: Achim H.
Geschrieben am: 14.10.2014 18:21:13

Hallo Excelianer

Habe in der Userform1 eine Combobox1. Die Combobox1 hat die Einstellung in der RowSource Data!A2:C8. Nach Start der Userform1 (Show) in der Conbobox1 wird nach Betätigung des Pfeiles von der Combobox1 der Inhalt als Liste mit dem Inhalt Data!A2:C8 angezeigt. Das ist auch richtig. Nur nachdem ich aus der Liste einen Inhalt mit doppelclick ausgewählt habe taucht in dem oberen teil der Combobox1 nur der Inhalt von A2 auf. Ich möchte aber den gesamten Inhalt oben sehen.

Gruß Achim

  

Betrifft: AW: ComboBox1 von: Matze Matthias
Geschrieben am: 14.10.2014 18:35:48

Hallo Achim,
so ganz hab ich noch nicht verstanden worauf du hinaus willst ,
deine Datei als Mustervorlage und wir könnten das Problem vermutlich schnell lösen.

Verwendest du denn für die Combobox1 das Ereignis?

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Dein Code
End Sub
Gruß Matze


  

Betrifft: AW: ComboBox1 von: Tino
Geschrieben am: 14.10.2014 18:43:18

Hallo,
ich denke du willst nach Auswahl alle drei Spalten angezeigt bekommen.
Nach meiner Kenntnis geht dies nicht mit einer Combobox, verwende alternativ eine Listbox!


Gruß Tino


  

Betrifft: AW: ComboBox1 von: Matze Matthias
Geschrieben am: 14.10.2014 18:48:58

Hi Tino, das geht schon,...

Private Sub UserForm_Initialize() 'einlesen der Daten aus Blatt Vorgabe in die Combobox

'letzte BENUTZTE Zeile der SpalteA
loLetzte = Sheets("Vorgabe").Cells(Rows.Count, 1).End(xlUp).Row

Application.EnableEvents = False
Me.ComboBox1.Clear
Me.ComboBox1.AddItem "neues Projekt hinzufügen"

'einlesen
For i = 3 To loLetzte 'ab Zeile 3 bis letzte Spalte A
    Me.ComboBox1.AddItem Sheets("DeineTabelle").Cells(i, 1) & ", " & Sheets("DeineTabelle"). _
Cells(i, 2)& ", " & Sheets("DeineTabelle").Cells(i, 3)

Next i

Me.ComboBox1.ListIndex = 0 'zeigt den ERSTEN Eintrag in der Combobox
Me.TextBox1.Value = loLetzte - 1
Application.EnableEvents = True
End Sub
Gruß Matze


  

Betrifft: naja ob das eine Lösung ist, ich weis nicht! oT. von: Tino
Geschrieben am: 14.10.2014 19:05:19




  

Betrifft: @Tino warten wir bos eine Rückmeldung kommt,. von: Matze Matthias
Geschrieben am: 14.10.2014 19:10:10

hab eh keine Zeit mehr, machst du dann bitte weiter, danke.
Gruß Matze

Geb dir aber völlig Recht das eine Listbox dann mehr zu bieten hat


  

Betrifft: hat sich wohl erledigt! oT. von: Tino
Geschrieben am: 15.10.2014 19:41:46




  

Betrifft: AW: hat sich wohl erledigt! oT. von: Achim H.
Geschrieben am: 20.10.2014 18:04:48

Habe auf eine Listbox verändert

danke


 

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