Guten Tag
Mir ist nicht ganz klar, weshalb ich im untenstehenden Code beim zweiten und dritten if Block am Ende nicht
Else und Endif anfügen muss resp. darf (es steht jetzt im Moment nur als Kommentar dort).
Kann mir das jemand erklären?
Danke, Peter
With iSheet
Selection.AutoFilter Field:=1
zNr = 10
strEND = Sheets("Inventar").Cells(65536, 4).End(xlUp).Row 'ermittelt letzten Eintrag in Spalte D (Valor)
Do While zNr <= strEND
If .Cells(zNr, 4) <> "" Then
Application.StatusBar = "Zeile " & zNr & " in Tabelle I N V E N T A R werden aktualisiert "
.Cells(zNr, 6) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=AF" & zNr & ")*(Q_Bn))")
.Cells(zNr, 7) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=AF" & zNr & ")*(Q_Kn))")
.Cells(zNr, 8) = Evaluate("-SUMPRODUCT((Q_Fn=Link)*(Q_VWn=$AF" & zNr & ")*(Q_Vn))")
.Cells(zNr, 9) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=$AF" & zNr & ")*(Q_En))")
.Cells(zNr, 11) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=$AF" & zNr & ")*(Q_Wn))")
Else
End If
If .Cells(zNr, 4) <> "" And .Cells(zNr, lngProzent).Value = "J" Then .Cells(zNr, 10) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=$AF" & zNr & ")*(Q_Sn)/100)")
'Else
'End If
If .Cells(zNr, 4) <> "" And Cells(zNr, lngProzent).Value = "N" Then .Cells(zNr, 10) = Evaluate("SUMPRODUCT((Q_Fn=Link)*(Q_VWn=$AF" & zNr & ")*(Q_Sn))")
'Else
'End If
Application.StatusBar = False
zNr = zNr + 1
Loop
Selection.AutoFilter Field:=1, Criteria1:="="
End With