Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

abrunden per VBA

abrunden per VBA
18.08.2006 12:42:24
Anton
Hallo Leute,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: abrunden per VBA
18.08.2006 12:44:23
Uduuh
Hallo,
Nachbearbeitung_mm = worksheetfunction.RoundDown(((NotReadyTotal_ss / SkillsetAnswered) / 60), 0)
Gruß aus’m Pott
Udo

AW: abrunden per VBA
18.08.2006 13:45:21
Anton
Hallo Udo,
vielen Dank für Deine schnelle Antwort.
Ich habe anscheinend doch noch einen Fehler übersehen:
NotReadyTotal_ss = (NotReadyZeit_hh * 60 * 60) + (NotReadyZeit_mm * 60) + NotReadyZeit_ss
Diese Zeile wird gelb makiert und mit "Überlauf" gemeldet.
NotReadyZeit_hh = 129
NotReadyZeit_mm = 48
NotReadyZeit_ss = 11
Kannst Du mir bitte sagen was Excel daran nicht mag?
Dank und Gruß in Deine Richtung,
Servus, Anton
Anzeige
AW: abrunden per VBA
18.08.2006 13:51:27
Matthias
Hallo Anton,
die Variablen sollten als Long deklariert sein, v.a. NotReadyZeit_hh. Integer geht nur bis 32xxx:

Dim NotReadyZeit_hh As Long

GRuß Matthias
herzlichen Dank
18.08.2006 14:06:20
Anton
Hallo Männer,
Herzlichen Dank.
Jetzt rennt es.
Servus,
Anton

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige