AW: Verweis Zeitraum mit Zeitpunkt
03.05.2023 10:00:51
Alwin WeisAngler
Hallo,
eine VBA Lösung mit allen zutreffenden Werten einschl. gleiche Werte direkter Weg über die Zellen der Tabelle wäre so:
Sub WerteEintragen()
For i = 3 To 922
For j = 3 To 922
If CDate(Tabelle1.Cells(i, 2)) = CDate(Tabelle2.Cells(j, 2)) And CDate(Tabelle1.Cells(i, 3)) >= CDate(Tabelle2.Cells(j, 2)) Then
varWert1 = varWert1 & ", " & Tabelle2.Cells(j, 3)
Tabelle1.Cells(i, 4) = Mid(varWert1, 3, Len(varWert1))
varWert2 = varWert2 & ", " & Tabelle2.Cells(j, 4)
Tabelle1.Cells(i, 5) = Mid(varWert2, 3, Len(varWert2))
End If
Next j
varWert1 = ""
varWert2 = ""
Next i
End Sub
Sollte nur der erste Treffer drin stehen dann muss die Schleife j mit Exit For verlassen werden
Sollte nur der letzte Wert drin stehen die varWert 1 und 2 direkt mit der Zielzelle zuweisen.
Mittelwert muss eine Zählvariable dazu kommen und die Trefferwerte addiert und nach Verlassen der j Schleife geteilt durch die Zählvariable der Zielzelle zugewiesen werden.
Die Wartezeit ohne Array ist noch verträglich. Besser wäre es mit Array zu erledigen.
Gruß Uwe