Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

- Stunden + Stunden per VBA einzeln berechnen

- Stunden + Stunden per VBA einzeln berechnen
16.03.2004 11:04:09
Michael
Hallo liebe vba experten,
ich habe folgendendes problem:
ich möchte aus einem dienstplan die überstunden und - stunden der mitarbeiter summiert einzeln darstellen. also alle - stunden addiert und alle + stunden addiert.
ich habe folgendes versucht:

Private Sub ueberstunden_click()
Dim spalte As Integer
Dim zeile As Integer
Dim minush As Integer
Dim plush As Integer
spalte = 36
minush = 0
plush = 0
For zeile = 8 To 73 Step 5
If Cells(zeile, spalte) < 0 Then
minush = minush + minush
End If
If Cells(zeile, spalte) > 0 Then
plush = plush + plush
End If
Next zeile
Cells(150, spalte) = minush
Cells(152, spalte) = plush
End Sub

leider war das ergebnis in beiden fällen 0:00
wer kann mir helfen.
gruß
michael

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

Betreff
Datum
Anwender
Anzeige
AW: - Stunden + Stunden per VBA einzeln berechnen
16.03.2004 11:18:06
Waltraud
Dim spalte As Integer
Dim zeile As Integer
Dim minush As Integer
Dim plush As Integer
spalte = 36
minush = 0
plush = 0

For zeile = 8 To 73 Step 5

If Cells(zeile, spalte) < 0 Then
minush = minush + minush
Du musst die Werte aus den Zellen nehmen also:
minush = minush + Cells(zeile, spalte)
analog dazu bei plus
End If

If Cells(zeile, spalte) > 0 Then
plush = plush + plush
End If

Next zeile

Cells(150, spalte) = minush
Cells(152, spalte) = plush
Anzeige
AW: - Stunden + Stunden per VBA einzeln berechnen
16.03.2004 13:19:06
Michael
hallo,
jetzt addiert er, aber falsch, das ergebniss der + stunden ist falsch und die -stunden hat er nicht addiert dort steht weiterhin 0:00
so habe ich es jetzt geschrieben

Private Sub ueberstunden_click()
Dim spalte As Integer
Dim zeile As Integer
Dim minush As Integer
Dim plush As Integer
spalte = 36
minush = 0
plush = 0
For zeile = 8 To 73 Step 5
If Cells(zeile, spalte) < 0 Then
minush = minush + Cells(zeile, spalte)
End If
If Cells(zeile, spalte) > 0 Then
plush = plush + Cells(zeile, spalte)
End If
Next zeile
Cells(150, spalte) = minush
Cells(152, spalte) = plush
End Sub

Gruß
Michael
Anzeige
AW: - Stunden + Stunden per VBA einzeln berechnen
17.03.2004 09:17:51
Matthias G
Hallo Michael,
deklariere die Variablen plush und minush als Double.
Zeitwerte werden in Excel besonders gerechnet:
24 Stunden = 1
12 Stunden = 0,5
Minuswerte kennt Excel nicht im vornherein, du musst die 1904er Datumswerte aktivieren:
Menu Extra - Optionen - Berechnung: Haken vor 1904-Datumswerte
Dann kann er auch negative Zeiten.
Gruß Matthias
AW: - Stunden + Stunden per VBA einzeln berechnen
17.03.2004 09:25:36
Daniel
Hi Michael,
das Makro ist soweit richtig und funktioniert auch. Du solltest vielleicht mal den Step 5 überprüfen! Step 5 bedeutet ja so:
1
x
x
x
x
5
x
x
x
x
10
mfg Daniel
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige