Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
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

Combobox 2 spaltig nur eine Spalte in Zelle

Betrifft: Combobox 2 spaltig nur eine Spalte in Zelle von: Andreas
Geschrieben am: 27.08.2014 18:31:33

Hallo Excelprofis,

Ich habe ein Userform mit mehreren Combo und Textboxen deren Inhalt per Commandbutton in bestimmte Zellen geschrieben wird.

Combobox6 ist 2 spaltig und wird befüllt mit: RowSource: G3:H34

Die linke Spalte wird aber nicht angezeigt: ColumnWidths: 0 PT;135PT

Allerdings möchte ich, das per Commandbutton nur der linke Wert (also der nicht sichtbare) der Combobox6 in die Zelle geschrieben wird.

Wie müsste der Code geändert werden? Bin in VBA nicht so bewandert.

Private Sub CommandButton1_Click()
  
  Sheets("Abholung").Activate
  Dim Zeile As Long, objControl As Control, intI As Integer, wks As Worksheet
  Zeile = 21
  Set wks = ActiveSheet
  wks.Range("B22:B43").ClearContents
  For intI = 7 To 21
    Set objControl = Me.Controls("Combobox" & Format(intI, "0"))
    If objControl.Text <> "" Then
      Zeile = Zeile + 1
      wks.Cells(Zeile, 2) = objControl.Text
    End If
  Next
  For intI = 6 To 10
    Set objControl = Me.Controls("Textbox" & Format(intI, "0"))
    If objControl.Text <> "" Then
      Zeile = Zeile + 1
      wks.Cells(Zeile, 2) = objControl.Text
    End If
  Next
Range("C11") = ComboBox1.Text 
Range("F11") = ComboBox2.Text 
Range("G11") = ComboBox3.Text   
Range("H11") = ComboBox4.Text 
Range("F13") = ComboBox6.Text 
Range("B14").Value = Me.TextBox1.Text 
Range("B20").Value = Me.TextBox2.Text 
Range("B16").Value = Me.TextBox3.Text & " " & Me.TextBox4.Text 
Range("F16") = ComboBox5.Text 
Range("B18").Value = Me.TextBox5.Text 
Range("B46").Value = Me.TextBox11.Text 
End Sub
Danke fürs lesen und die Hilfe!

mfg, Andreas

  

Betrifft: AW: Combobox 2 spaltig nur eine Spalte in Zelle von: Peter Feustel
Geschrieben am: 27.08.2014 18:45:00

Hallo Andreas,

versuche es so:

Range("F13").Value = ComboBox6.List(ComboBox6.ListIndex, 0)
Gruß Peter


  

Betrifft: Vielen Dank für die Hilfe! Klappt super. owT von: Andreas
Geschrieben am: 27.08.2014 18:49:41

.


 

Beiträge aus den Excel-Beispielen zum Thema "Combobox 2 spaltig nur eine Spalte in Zelle"