Herbers Excel-Forum - das Archiv

Listbox Filterabfrage

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: Listbox Filterabfrage
von: Günter

Geschrieben am: 05.01.2007 16:22:43
Moin, moin
will in meiner Abfrage einen Wert aus Tabellenblatt "Berechnung!D15" und D16
mit dem Zelleninhalt vergleichen. So wie ich es mir gedacht habe, gehts nicht!
Hat jemand ne Lösung ?
For InI = 2 To 289
If Worksheets("Prop-Daten").Cells(InI, 1) (??) "" Then
If Worksheets("Prop-Daten").Cells(InI, 9) = ("Berechnung!D$15") And Worksheets("Prop-Daten").Cells(InI, 10) = ("Berechnung!D$16") Then
' !funktioniert nicht!
ListBox2.AddItem .Range("A" & InI)
ListBox2.List(InZeile, 0) = Worksheets("Prop-Daten").Range("A" & InI)
ListBox2.List(InZeile, 1) = Worksheets("Prop-Daten").Range("B" & InI)
ListBox2.List(InZeile, 2) = Worksheets("Prop-Daten").Range("C" & InI)
ListBox2.List(InZeile, 3) = Format(Worksheets("Prop-Daten").Range("D" & InI), "#0 mm")
ListBox2.List(InZeile, 4) = Format(Worksheets("Prop-Daten").Range("E" & InI), "#0 W")
ListBox2.List(InZeile, 5) = Format(Worksheets("Prop-Daten").Range("F" & InI), "#0 W")
ListBox2.List(InZeile, 6) = Format(Worksheets("Prop-Daten").Range("G" & InI), "#0 A ")
ListBox2.List(InZeile, 7) = Format(Worksheets("Prop-Daten").Range("H" & InI), "#,##0.00 Kp ")
InZeile = InZeile + 1
End If
End If
Next InI
Bild

Betrifft: AW: Listbox Filterabfrage
von: ChrisL
Geschrieben am: 05.01.2007 16:36:52
Hallo Günter
Was soll denn datttt :-)
= ("Berechnung!D$15")
Vermutlich richtig:
= Worksheets("Berechnung").Range("D15")
Gruss
Chris
 Bild
Excel-Beispiele zum Thema "Listbox Filterabfrage"
Mehrfachauswahl aus ListBox auslesen Gefilterte Daten in eine ListBox einlesen
Dateien aus Listbox auslesen und öffnen Listbox-Eintrag durch Mausbewegung markieren
ListBox-Einträge auswechseln Horizontal angeordnete Elemente in eine ListBox übernehmen
Tabellenblattnamen in eine ListBox einlesen ListBox bei Eintrag erweitern