ComboBox Inhalt in freie Zeile schreiben

Question

Hallo,

wie kann ich den Inhalt einer ComboBox in die nächste Freie Zeile schreiben?

Mit der Checkbox habe ich es hinbekommen. Hier der Code dafür. Geht der auch für die ComboBox bzw wie müßte man diese dann ändern?

If CheckBox163_BO10.Value = True Then Cells(last, 3).Value = "BO 10/4m"

Grüße Markus

Answer 1

Hallo Markus,

den Inhalt einer Combobox kannst wie folgt in eine Zelle schreiben:

Cells(last, 3).Value = ComboBox1.Value

Gruß

M.O.

Answer 2

Hy,

super Dankeschön!!!!

Übernahme klappt bloß jetzt blockt es den code von oben.

Wird nur das von der Combox eingetragen....hmmm

Answer 3

Hallo M.O.,

könntest du mir hier nochmals Helfen?

Gruß

Markus

Answer 4

Hallo Markus,

mein geposteter Code war nur als Beispiel gedacht. Natürlich musst du den Inhalt der Combo-Box in eine andere Zelle schreiben, als den Eintrag, den du mithlfe der Checkbox einträgst.

Da ich weder deinen Code kenne, noch weiß, wie deine Tabelle aussieht oder in welche Zelle du den Inhalt der Combobox schreiben willst, kann ich nicht mehr dazu sagen.

Gruß

M.O.

Answer 5

Hy M.O.

achso dann kann ich nicht eine Checkbox und ComboBox aufe eine Zelle bringen?

CheckBox wird nur in Tabelle geschrieben wenn angeklickt ist.

Code:

Private Sub Button_Take_Click()

'Erste freie Zeile ausfindig machen

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1

Answer 6

Hallo Markus,

wenn du Checkbox und Combobox in einer Zelle ausgeben willst, dann musst du das im Code machen, z.B. so:

If CheckBox163_BO10.Value = True Then Cells(last, 3).Value = ComboBox1.Value & " BO 10/4m"

Es kommt aber darauf an, was du eigentlich erreichen willst. Denn mit diesem Code wird der Inhalt der Combobox1 nur dann in die Zelle geschrieben, wenn die Checkbox aktiviert ist.

Oder du schreibst den Wert der Combobox wie oben dargestellt in die Zelle und änderst den Code für die Checkbox wie folgt:

If CheckBox163_BO10.Value = True Then Cells(last, 3).Value = Cells(last, 3).Value & " BO 10/4m"

Damit wird der Wert der Combobox an den Inhalt der Zelle angefügt.

Gruß

M.O.