Suchen und Vergleichen merherer Kriterien
07.11.2018 11:51:45
Fr4nk
ich hole mir aus der Tabelle "Anlagen" Spalte 2 den Wert ("Fahrerstandsklimagerät HKL 308") und holen mir den Teil den ich benötige ("HKL 308")
Jetzt möchte ich das Ergebnis in der Tabelle "Fristen" in Spalte 2 suchen.
Wenn es vorhanden ist in der Gleichen Zeile vergleichen ob der KM-Stand größer ist.
Es hängt aber schon bei
If Worksheets("Fristen").Cells(IFrist, 2).Value2 = hkl Then
Obwohl beide Werte beim ausgeben in einer Msgbox den gleichen Inhalt haben werden sie nicht als gleich erkannt...
Dim Wort As String
Dim pos1 As Integer
Dim hkl As String
Wort = Worksheets("Anlagen").Cells(IAnlagen, 2).Value
pos1 = InStr(Wort, "HKL")
hkl = Right(Wort, 7)
For IFrist = 1 To AnzahlFristen
If Worksheets("Fristen").Cells(IFrist, 2).Value2 = hkl Then
If Worksheets("Fristen").Cells(IFrist, 4).Value > Worksheets("Anlagen").Cells( _
IAnlagen, 12).Value Then
Worksheets("Anzeige").Cells(IAnzeige, 9).Value = Worksheets("Fristen").Cells( _
IFrist, 6).Value
Exit For
End If
End If
Next IFrist
Vielleicht habt Ihr eine Idee oder eine andere Suchmethode...
Anzeige