Herbers Excel/VBA-Archiv

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

Listbox Wert in Zelle schreiben | Herbers Excel-Forum

• Listbox Wert in Zelle schreiben von Rainer vom 29.01.2010 14:37:06
• versuche es mal so. - von Tino am 29.01.2010 14:59:11
• AW: Listbox Wert in Zelle schreiben - von Meene am 29.01.2010 14:59:33
  • AW: Listbox Wert in Zelle schreiben - von Rainer am 29.01.2010 15:25:31
    • AW: Listbox Wert in Zelle schreiben - von Tino am 29.01.2010 16:23:10

Betrifft: Listbox Wert in Zelle schreiben von: Rainer
Geschrieben am: 29.01.2010 14:37:06

Hallo! Ich habe ein kleines Problem mit einer Listbox, in die ich als mögliche Auswahlen Uhrzeiten in der Form'1:00', '1:15', '1:30', usw eingetragen habe.
Nun soll eine Uhrzeit ausgewählt werden und per Makro soll die entspr Uhrzeit in die Zelle C1 geschrieben werden.
Ich habe dazu folgendes VBA Coding erstellt:

Sub Listenfeld2_BeiÄnderung()
 Cells(1, 3).Select
   ActiveCell.Value = listbox2.Value
End Sub

Es erscheint die Fehlermeldung 'Objekt erforderlich'....
Was habe ich denn hier falsch gemacht?

Vielen Dank für Eure Hilfe

Betrifft: versuche es mal so. von: Tino
Geschrieben am: 29.01.2010 14:59:11

Hallo,

Cells(1, 3) = TimeValue(ListBox1.List(, 0))

Sollte Deine Listbox mehrere Spalten haben, dies bei ListBox1.List(, 0) angeben.

PS: Gewöhne Dir an ohne Select zu arbeite.

Gruß Tino

Betrifft: AW: Listbox Wert in Zelle schreiben von: Meene
Geschrieben am: 29.01.2010 14:59:33

Hallo Rainer,

in welchem Objekt liegt denn Deine Listbox?
Das solltest Du voranstellen, also

ActiveCell.Value = Objekt.Listbox2.Value

Gruß,
Michael

Betrifft: AW: Listbox Wert in Zelle schreiben von: Rainer
Geschrieben am: 29.01.2010 15:25:31

Hallo! Danke erst mal für Deine Antwort.
Mein Listbox liebt direkt in Tabelle1...Sollte das Coding dann so aussehen?

Sub Listenfeld2_BeiÄnderung()
 Cells(1, 3).Value = Worksheets(1).listbox2.Value
End Sub

Der Fehler kommt damit nämlich immer noch....

Betrifft: AW: Listbox Wert in Zelle schreiben von: Tino
Geschrieben am: 29.01.2010 16:23:10

Hallo,

Du verwendest ein Listenfeld aus Formularsteuerelemente, da müsstest Du anders vorgehen.
Stell im Listenfeld die Zellverknüpfung auf eine Zelle ein (vielleicht auch hinter die Listbox),
mit diesem Wert lesen wird den Wert aus dem Listenbereich (Eingabebereich) der Listbox.

Sub Listenfeld1_BeiÄnderung()
With Worksheets(1).Shapes("Listenfeld 1").DrawingObject
    If Range("B1").Value > 0 Then
        'hier die Zelle B1 anpassen, ist Zellverknüpfung der Listbox
        Cells(3, 1) = Range(.ListFillRange)(Range("B1").Value)
    End If
End With
End Sub

Gruß Tino

Beiträge aus den Excel-Beispielen zum Thema "Listbox Wert in Zelle schreiben"