Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-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



Excel-Version: 8.0 (Office 97)
  • listbox von peter vom 06.06.2002 - 08:14:54
    • Re: listbox von Michael Scheffler vom 06.06.2002 - 08:41:58

Betrifft: listbox
von: peter
Geschrieben am: 06.06.2002 - 08:14:54

hallo excels,
ich versuch es einfach nochmal.
auf diese frage hat leider keiner geantwortet.wurde die frage nur übersehen oder gibt es dafür keine lösung?
https://www.herber.de/mailing/126057h.htm
ich hoffe das mir jemand weiterhelfen kann.
gruss
peter
  

Re: listbox
von: Michael Scheffler
Geschrieben am: 06.06.2002 - 08:41:58

Hallo,

ungetestet, aber so ähnlich sollte es gehen:


Option Explicit
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim iZeile As Integer, iLast As Integer
If TextBox1.Text = "" Then
Label11 = "Auftrag noch nicht vorhanden!"
Exit Sub
Else
Label11 = "Auftrag vorhanden!"
ListBox1.Clear
iLast = ActiveSheet.UsedRange.Rows.Count
For iZeile = 1 To iLast
If Cells(iZeile, 1).Value = TextBox2.Text Then ListBox1.Additem Cells(iZeile, 1).Value 
End If
Next iZeile
If Listbox1.ListCount = 0 Then
ListBox1.AddItem "Keinen Eintrag gefunden"
End If

End If


Gruß

MichA

 

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