Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

- Stunden + Stunden per VBA einzeln berechnen

Forumthread: - 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige