https://www.herber.de/forum/messages/755591.html
und die datei: https://www.herber.de/bbs/user/32921.xls
leider konnte mir bisher keiner helfen
nun habe ich mit meinen sperrlichen vba kentnissen einen code erstellt
Sub Zuordnen()
Dim mLetzte As Long, mZeile As Long, lLetzte As Long, lZeile As Long
Application.ScreenUpdating = False
mLetzte = IIf(Worksheets("tabelle2").Range("d65536") <> "", 65536, Worksheets("tabelle2").Range("d65536").End(xlUp).Row)
lLetzte = IIf(Worksheets("tabelle1").Range("c65536") <> "", 65536, Worksheets("tabelle1").Range("c65536").End(xlUp).Row)
For mZeile = 4 To mLetzte
For lZeile = 2 To lLetzte
If CLng(Worksheets("tabelle2").Range("d" & mZeile).Value) >= CLng(Worksheets("tabelle1").Range("c" & lZeile).Value) And _
CLng(Worksheets("tabelle2").Range("d" & mZeile).Value) <= CLng(Worksheets("tabelle1").Range("d" & lZeile).Value) Then
End If
Next lZeile
Next mZeile
Application.ScreenUpdating = True
End Sub
, jedoch weiß ich nicht wie ich es schaffe falls die Bedingungen wahr sind das der zugehörige wert in spalte i aus tabelle1 genommen und zum nächsten wert aufaddiert wird.
als Formel hatte ich da in etwa so aufgebaut:
"=WENN(A4=FALSCH;(SUMME(WENN(UND(D4>=Tabelle1!C2;D4=Tabelle1!C3;D4 ich hoffe jemand kann mir helfen.
mfg
aga