Division durch Null
31.08.2007 09:21:00
Rainer
Kann mir jemand sagen, weshalb ich die Fehlermeldung "Division durch Null" kriege bei diesem Makro?
Der Eintrag in Zelle B93 ist nämlich 0.5
Alternativ habe ich versucht zu multiplizieren mit dem Faktor. Das geht zwar, er erachtet aber 0.5 ebenfalls als Null...
Sub SalesTeamFieldSalesLagerFix()
Dim iRowL As Integer, iRow As Integer
Dim SpalteEins As Integer
Dim SpalteZwei As Integer
Dim Faktor As Integer
SpalteEins = 53 ' Faktor 1
SpalteZwei = 54 ' Spalte Produkt
Faktor = Worksheets("int Leistungsverrechnung").Range("B93")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Application.Count(Range(Cells(iRow, 1), _
Cells(iRow, SpalteEins))) > 0 Then
Cells(iRow, SpalteZwei) = Cells(iRow, SpalteEins) / Faktor
End If
Next iRow
End Sub
Liebe Grüsse
Rainer