Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchtreffer in ListBox

Suchtreffer in ListBox
19.11.2008 22:20:00
Frank
Hallo liebe Freunde guter Exceltabellen!!!
Ich bin wieder einmal ratlos! Mittels UF werden Daten in ein Tabellenblatt geschrieben, auf dieser UF befindet sich ein Listenfeld die mir einzelne oder alle Suchtreffer anzeigt. Jedoch werden die Treffer nicht wie in der Tabelle dargestellt angezeigt. Z.B. erscheint der Eintrag 10:00 als 0,4166666666667. Was muss ich tun um im Listenfeld 10:00 angezeigt zu bekommen!
Ich bin für jeden Rat dankbar!!!
Gruß Frank H.
Allen die jetzt schlafen gehen eine Gute Nacht!!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchtreffer in ListBox
19.11.2008 22:22:18
Gerd
Hi,
kommt darauf an, wie die Listbox befüllt wird.
mfg Gerd
AW: Suchtreffer in ListBox
19.11.2008 22:41:00
Frank
Hallo Gerd!!!
mit folgendem Code!!!

Private Sub cmdSuchen_Click()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frmDaten_Januar
.ListBox1.Clear
Sheets("Januar").Activate
i = 0
For lng = 6 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 30).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 31).Value
.ListBox1.Column(2, i) = Cells(lng, 33).Value
.ListBox1.Column(3, i) = Cells(lng, 34).Value
.ListBox1.Column(4, i) = Cells(lng, 35).Value
.ListBox1.Column(5, i) = Cells(lng, 36).Value
.ListBox1.Column(6, i) = Cells(lng, 37).Row
i = i + 1
Else
End If
Next lng
End With
frmDaten_Januar.Label9.Caption = frmDaten_Januar.Label1.Caption
frmDaten_Januar.Label10.Caption = frmDaten_Januar.Label2.Caption
frmDaten_Januar.Label11.Caption = frmDaten_Januar.Label3.Caption
frmDaten_Januar.Label12.Caption = frmDaten_Januar.Label4.Caption
frmDaten_Januar.Label13.Caption = frmDaten_Januar.Label6.Caption
frmDaten_Januar.Label14.Caption = frmDaten_Januar.Label7.Caption
frmDaten_Januar.Label15.Caption = frmDaten_Januar.Label8.Caption
frmDaten_Januar.Label16.Caption = frmDaten_Januar.Label7.Caption
frmDaten_Januar.Label17.Caption = frmDaten_Januar.Label8.Caption
frmDaten_Januar.Label32.Caption = frmDaten_Januar.Label31.Caption
frmDaten_Januar.Label33.Caption = frmDaten_Januar.Label31.Caption
Application.ScreenUpdating = True
End Sub


Gruß Frank H.

Anzeige
AW: Suchtreffer in ListBox
19.11.2008 22:56:00
Gerd
Hi,
nimm statt Value Text, also:

If InStr(LCase(Cells(lng, 30).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Text
.ListBox1.Column(1, i) = Cells(lng, 31).Text
.ListBox1.Column(2, i) = Cells(lng, 33).Text
.ListBox1.Column(3, i) = Cells(lng, 34).Text
.ListBox1.Column(4, i) = Cells(lng, 35).Text
.ListBox1.Column(5, i) = Cells(lng, 36).Text
.ListBox1.Column(6, i) = Cells(lng, 37).Row
i = i + 1
End If


mfg gerd

AW: Suchtreffer in ListBox
19.11.2008 23:02:56
Frank
Hallo Gerd!!!
Herzlichen Dank!!! Funktioniert Super!!!
Ich wünsche dir 'ne gute Nacht!!!
M. f. G. Frank H.
Anzeige

Links zu Excel-Dialogen

Label ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige