Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
216to220
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formelfehler

Formelfehler
09.02.2003 20:24:32
Mike
Hallo zusammen,
in meinem Code ist irgendwie ein Fehler, weil das falsche Ergebnis angezeigt wird.
"Die Arbeitszeit wurde um " & Format(Application.WorksheetFunction.RoundUp(dblChkInc / STUNDENLOHN - _
MONATSVERDIENSTGRENZE / STUNDENLOHN / 5, 1) * 5, "#,##0.00") & " Std. überschritten.", vbCritical
. . .

Gruß
Mike



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

Betreff
Datum
Anwender
Anzeige
Re: Formelfehler
10.02.2003 10:49:45
Holger Levetzow

das ist schlecht zu beantworten. Du rechnest (mit Abkürzungen):

=d/s - m/(5s)
rundest dann auf eine Dezimalstelle ab, multiplizierst das Ergebnis mit 5 und wendest das Format an. Ob das so soll, können wir nicht wissen. Vielleicht siehst du ja, dass etwas anderes gerechnet werden sollte.

mfg Holger

Re: Formelfehler
10.02.2003 13:08:45
Mike

Hallo Holger,
danke, dass du geantwortet hast und dich der Sache annimmst.

Der Code lautet:
Das Bezugsmakro lautet:

Option Explicit

Function STUNDENLOHN() As Double
STUNDENLOHN = ActiveSheet.Range("AO47").Value
End Function

Function MONATSVERDIENSTGRENZE() As Double
MONATSVERDIENSTGRENZE = ActiveSheet.Range("AO45").Value
End Function

Function WOCHENSTUNDENGRENZE() As Integer
WOCHENSTUNDENGRENZE = ActiveSheet.Range("AO49").Value
End Function

Ich möchte im Prinzip, dass bei Überschreitung auch halbe Stunden angezeigt werden. Mit dieser Formel werden falsche Stunden angezeigt.

Vielleicht kannst du jetzt was damit anfangen.

Gruß
Mike

Anzeige
Re: Formelfehler
11.02.2003 11:04:30
Holger Levetzow

müsste es formeltechnisch nicht so heißen:

...& Format(Application.WorksheetFunction.RoundUp((dblChkInc - MONATSVERDIENSTGRENZE) / STUNDENLOHN _
/ 5, 1) * 5, "#,##0.00") & " Std. überschritten.", vbCritical

Holger

Re: Formelfehler
11.02.2003 11:43:21
Mike

Hallo Holger,
du hast Recht und es funktioniert.
Danke dir nochmals.

Gruß
Mike

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige