letztZeil = Selection.SpecialCells(xlCellTypeLastCell).Row
For y = 2 To letztZeil
If Cells(y, 8) = 1 Then
Cells(y, 5) = Cells(y, 5) - Cells(y, 8)
End If
Cells(y, 15) = Cells(y, 15) * ((Cells(y, 5) * Cells(y, 6)) + Cells(y, 10) + Cells(y, 11))
Next
Dieser Code ersetzt im ersten Teil den Wert in Zelle 5 mit einem -1 Wert aus Zelle 8 (wenn in Zelle 8 1 steht dann rechne Zelle 5 -1)
Nun zum 2 Teil da habe übernehme ich über einen Sveweis einen Wert in Zelle 15. nun soll dieser Wert multipliziert werden und zwar.
zuerst Zelle 5 x Zelle 6 + die Summe aus den Werten der Zellen 10 und 11.
und das ganze soll wie in Teil eins von 2 bis letzte Zeile laufen
Zusatz: mögliche Kombinationen Zelle 6 ist nie leer die Zellen 5,10,11 können befüllt oder leer sein, 1 davon ist aber immer befüllt.
Vielleicht kann mir da wer weiterhelfen,
Weiter komme ich nicht denn habe immer Fehler Typenunverträgllichkeit un glaube das dies damit zusammenhängt das die nächste Zeile leer ist aber wie
Baue ich den zweiten Code so ein das er auch nur 2 bis letzte Zeile läuft.
LG
Marti
|