Re: 1.1.1900
01.08.2002 15:51:12
Nele
also in meiner Rechnung vergleicht er ob der Inhalt der einen Zelle mit dem Inhalt einer anderen übereinstimmt wenn ja dann nimmt er die Werte aus den Zellen daneben und rechnet aus wieviele Tagarbeitsstunden es sindIch Poste mal den Teil wo ich denke das dort der Fehler drin liegt
also in der Addition der Tagstunden
With Worksheets(2)
Spalte1 = 2
Spalte2 = 2
Zeile1 = Zeile
A = 1
L = 3 * (datum())
For M = 1 To L
Sp = .Cells(Zeile1, Spalte1).Value
T = CDate(.Cells(8, Spalte2).Value)
y = Tabelle1.Zaehlen()
Zeile3 = 16
N = 1
For N = 1 To y
If Tabelle1.Cells(Zeile3, 5).Interior.ColorIndex = Tabelle1.Range("I16").Interior.ColorIndex And Tabelle1.Cells(Zeile3, 5).Value = Sp Then
Anfang = CVDate(Tabelle1.Cells(Zeile3, 6).Value)
Ende = CVDate(Tabelle1.Cells(Zeile3, 7).Value)
Nacht = Nacht_Woche(Anfang, Ende, T) + Nacht
Tag = Tag_Woche(Anfang, Ende, T) + Tag
Feier = Arbeitszeit(T, Anfang, Ende) + Feier
Sonntag1 = Sonntag(T, Anfang, Ende) + Sonntag1
End If
Zeile3 = Zeile3 + 1
Next N
Spalte1 = Spalte1 + 1
If A = 3 Then
Spalte2 = Spalte2 + 3
A = 0
End If
A = A + 1
Next M
Tabelle2.Cells(Zeile, 99).Value = Nacht
Tabelle2.Cells(Zeile, 98).Value = Tag
Tabelle2.Cells(Zeile, 100).Value = Sonntag1
Tabelle2.Cells(Zeile, 101).Value = Feier
Zeile1 = 0
Nacht = 0
Tag = 0
Feier = 0
Sonntag1 = 0
End With
Gruß Nele