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

Listbox

  • Listbox von Jens vom 13.04.2003 - 11:30:40

Betrifft: Listbox
von: Jens
Geschrieben am: 13.04.2003 - 11:30:40

Hallo zusammen und einen schönen Sonntag
Ich brauch mal eure Hilfe. In einer Listbox habe ich eine Zeile markiert und will diese Zeile mit dem nachfolgenden Code ändern. Wo muß ich Änderungen im Code vornehmen das keine neue Zeile eingefügt sondern die active ersetzt wird?

Private Sub CommandButton2_Click()
Zeile = ListBox1.ListCount
If TextBox3.Value = "" Then Exit Sub
With ListBox1
.AddItem TextBox2.Text
.List(Zeile, 1) = TextBox3.Value
Zeile = ListBox1.ListCount + 1
End With
TextBox2.Text = ""
TextBox3.Value = 0
Gesamt_Kosten
End Sub

Danke für eure Hilfe

  

Re: Listbox
von: Forum
Geschrieben am: 13.04.2003 - 11:41:01

Hallo Jens

ich habe jetzt nicht geschaut was Dein Code macht, aber einen gewählten Eintrag in der Listbox ändern mit


Private Sub CommandButton1_Click()
    If ListBox1.Value <> "" Then
        ListBox1.List(ListBox1.ListIndex, 0) = "103"
    End If
End Sub

Dazu mußt Du die Werte aber vorher mit Additem zugewiesen haben und nicht RowScoure

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel

 

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