abrunden per VBA
18.08.2006 12:42:24
Anton
ich komme mir vor wie der erste Anfänger...
Das hier habe ich aufgezeichnet:
...
ActiveCell.FormulaR1C1 = "=ROUNDDOWN(RC[-1],0)"
...
daraus möchte ich das hier machen:
Sub wartez()
Dim NotReadyZeit_hh As Integer
Dim NotReadyZeit_mm As Integer
Dim NotReadyZeit_ss As Integer
Dim NotReadyTotal_ss As Integer
Dim Nachbearbeitung_mm As Integer
'------durchschnittliche Wartezeit-------
NotReadyZeit_hh = Left(Inbound_NotReady_Time, (InStr(1, Inbound_NotReady_Time, ":", vbTextCompare) - 1))
NotReadyZeit_mm = Mid(Inbound_NotReady_Time, (InStr(1, Inbound_NotReady_Time, ":", vbTextCompare) + 1), 2)
NotReadyZeit_ss = Right(Inbound_NotReady_Time, 2)
NotReadyTotal_ss = ((NotReadyZeit_hh * 60 * 60) + (NotReadyZeit_mm * 60) + NotReadyZeit_ss)
Nachbearbeitung_mm = RoundDown(((NotReadyTotal_ss / SkillsetAnswered) / 60), 0)
End Sub
Die Fehlermeldung lautet "Sub" oder "Function" nicht definiert"
Merkwürdig finde ich das Excel das Wort ROUNDDOWN automatisch in RoundDown ändert.
Alle anderen Zeilen funktionieren
Wer kann mir bitte weiterhelfen?
Es Dankt und Grüßt,
Anton