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