ich habe folgende Problemstellung. In einem Tabellenblatt "Rechenblatt" sind in Spalte A Höhenwerte (Range("A5:A45") und in Zeile 46 Breitenwerte (Range("B46:CD46") eines flächenabhängigen Produktes.
Im Datenbereich (Range("B5:CD45")) stehen nun Werte (Zahlen) drin. In einem weiteren Tabellenblatt "Parameterblatt" stehen nun verschiedene Bedingungen. Spalte B max. Breitenwerte, Spalte C max Höhenwerte, Spalte D max Gewichte, u.s.w.
Bsp. "A6" = 1, "B6" = 3000, "C6" = 3000, "D6" = 180, "E6" = A1, "F6" = S1
"A7" = 2, "B7" = 3500, "C7" = 3500, "D7" = 220, "E7" = A2, "F7" = S2
u.s.w.
Nun soll z.B. im Datenbereich des Tabellenblatt "Rechenblatt" die Höhenwerte, die Breitenwerte und die Gewichtswerte miteinander verglichen und die Treffer dann farblich markiert werden.
Allerdings komme ich bereits am Anfang schon nicht weiter:
Sub Vergleich()
Dim zelle As Range, rng As Range
Dim Fläche As String, LB As Range
Dim LH As Range, LH1 As String
Dim Gewicht As String, Antrieb As String, SRH As String
Dim Seiltr As String, a As Range, b As Range
Dim c As Range, d As Range, e As Range
Dim LHB As String
Set a = Sheets(2).Range("B5:CD45")
Set b = Sheets(2).Range("B52:CD92")
Set c = Sheets(2).Range("B99:CD139")
Set d = Sheets(2).Range("B146:CD186")
Set e = Sheets(2).Range("B193:CD233")
Set LH = Sheets(2).Range("A5:A45")
Set LB = Sheets(2).Range("B46:CD46")
LHB = Sheets(1).Range("C6").Value
LH1 = Sheets(1).Range("D6").Value
For i = 5 To 45
Cells(i, 1).Select
Do Until ActiveCell.Value = 2000
If ActiveCell.Value
Ich schaffe nicht die verschiedenen Parameter so zu verknüpfen, dass alle abgeprüft und im Ergebnis farblich herauskommen. Bin um Hilfe verlegen und würde mich freuen, wenn Hilfestellung erfolgt.
Hier meine Musterdatei:
Die Datei https://www.herber.de/bbs/user/64935.xls wurde aus Datenschutzgründen gelöscht
PointOfView
Oliver