erstmal der Code:
Public Sub Matrix_auslesen()
Dim lZeile_E As Long
Dim Lzeile_M As Long
Dim lFundZei As Long
Dim iFundSpa As Integer
Dim iSpalte As Integer
Application.ScreenUpdating = False
For lZeile_E = 10 To Range("B65536").End(xlUp).Row
'If lZeile_E = 19 Then Stop
For Lzeile_M = 6 To 8
If CDbl(Range("L" & lZeile_E).Value) > 0 And CDbl(Range("S" & lZeile_E).Value) > 0 Then
If CDbl(Range("L" & lZeile_E).Value) >= _
CDbl(Range("V" & Lzeile_M).Value) And _
CDbl(Range("L" & lZeile_E).Value) Else: lZeile_E 1
End If
End If
Next Lzeile_M
Select Case Range("S" & lZeile_E).Value
Case Is 6000
iFundSpa = 26
End Select
Range("X" & lZeile_E).Value = Cells(lFundZei, iFundSpa).Value
Next lZeile_E
Application.ScreenUpdating = True
End Sub
Ganz kleine Sach denk ich ma, aber ich komm nicht dahinter.... wenn die then Bedingung nicht erfüllt ist, soll er wieder von vorne anfangen bloss eine Zeile weiter unten sprich "lZeile_E +1", wie kann ich das definieren?
Gruss Andreas