|
Hallo,
ich brauche ein Makro in dem ich 1 Zelle Berechne. Leider bekomme ich bei folgendem Code immer den Fehler Typen unverträglich weiß jedoch nicht wieso.
If Tabelle1.Cells(e, "B") = "" Then //fehler
Tabelle1.Cells(e, "E") = 0
Tabelle1.Cells(e, "I") = 0
Tabelle1.Cells(e, "O") = 0
Tabelle1.Cells(e, "U") = 0
Tabelle1.Cells(e, "AA") = 0
Tabelle1.Cells(e, "AG") = 0
Tabelle1.Cells(e, "AM") = 0
Tabelle1.Cells(e, "AS") = 0
Else
Tabelle1.Cells(e, "E") = Cells(e, "C") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "I") = Cells(e, "H") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "O") = Cells(e, "M") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "U") = Cells(e, "S") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "AA") = Cells(e, "Y") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "AG") = Cells(e, "AE") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "AM") = Cells(e, "AK") / (Cells(e, "B") - 1)
Tabelle1.Cells(e, "AS") = Cells(e, "AQ") / (Cells(e, "B") - 1)
End If
Langsam verzweifel ich und würde mich sehr über Hilfe freuen.
|