Laufzeitfehler 6, Überlauf
08.10.2007 13:54:00
Kesenheimer
ich habe folgendes Makro geschrieben und bekomm immer die gleich Fehlermeldung " Laufzeitfehler 6, Überlauf.
Wahrscheinlich liegt es an der Divison, weil bei Plus, Minus und Mal funktioniert es.
' Hitrate berechnen
hitrate_ergebnis = auftrag / angebot
Hat jemand eine Ahnung, was ich machen kann, damit das Makro läuft?
Im voraus vielen Dank für die Hilfe/ Anwort
Gruss
Gerd
Hier der VB-Code:
Public Sub hitrate()
For x = 6 To 12
verkaeufer_a = "a" & x
verkaeufer_b = "b" & x
verkaeufer_name = Sheets("hit rate gesamt Verk").Range(verkaeufer_a).Value
angebot = 0
auftrag = 0
For i = 2 To 10
spalte_h = "h" & i
spalte_j = "j" & i
spalte_o = "o" & i
spalte_a = "a" & i
zellen_verkaeufer = Sheets("Vertrieb 4 Q 0708").Range(spalte_h).Value
zellen_monat = Sheets("Vertrieb 4 Q 0708").Range(spalte_a).Value
zellen_status = Sheets("Vertrieb 4 Q 0708").Range(spalte_j).Value
zellen_angebot = Sheets("Vertrieb 4 Q 0708").Range(spalte_o).Value
' Tabelle durchsuchen
If UCase(zellen_verkaeufer) = UCase(verkaeufer_name) And zellen_monat = "09" Then
' Auftrag abfragen
If zellen_status = 5 Then
auftrag = auftrag + 1
End If
' Angebot abfragen
If UCase(zellen_angebot) = "JA" Then
angebot = angebot + 1
End If
End If
Next
' Hitrate berechnen, hier kommt es zum Fehler!!!!!!!!!!!!!
hitrate_ergebnis = auftrag / angebot
' Hitrate in Zelle schreiben
Sheets("hit rate gesamt Verk").Range(verkaeufer_b).Value = hitrate_ergebnis
Next
End Sub