Hi Grabbelmann,
ich könnnte auch Kollege sagen, ich war eine Zeitlang bei AEG Bahnbau, damals an der Neubaustrecke bei Würzburg, morgens immer nach Fulda gefahren, deshalb weiß ich leider was SiPos sind, an sich gute Idee links und rechts der Gleisführung Wachposten aufzustellen, aber durch einige Erlebnisse bedingt fühle ich mich da absolut nicht sicher.
Das Sicherheitsgefühl wäre besser wenn sie nach der Arbeit trinken würden und nicht während 
Okay, zum Thema, zum Einen, die großen Zahlen enstehen da ich im Code die Prozentwerte errechnet hatte, wenn du dann den Zellenwert durch Formatierung auf % nochmals mal 100 nimmst, naja, werden die Zahlen halt groß.
Hatte ich nicht geschrieben daß du wenn du als Prozent formatierst, die „* 100“ aus dem Code löschen solltest?
Hätte zwar nix genutzt weil noch im Code Fehler waren, aber ich hätte mich als „gelesen“ und nicht als „überlesen“ empfunden 
Nachstehend der Code.
Gruß
Reinhard
Option Explicit
'
Sub Auftragsnummer()
Dim M As Byte, Zei As Byte, colAuftrag As New Collection, C As Integer, Zeit()
Dim Z As Byte, H As Integer, Zeit1(), Zeit2(), Zeit3()
On Error Resume Next
For M = 1 To 31
With Worksheets(Right("00" & M, 2))
For Zei = 18 To 32
If .Cells(Zei, 1) "" Then
colAuftrag.Add .Cells(Zei, 1), .Cells(Zei, 1)
If Err.Number = 0 Then
ReDim Preserve Zeit(colAuftrag.Count)
ReDim Preserve Zeit1(colAuftrag.Count)
ReDim Preserve Zeit2(colAuftrag.Count)
ReDim Preserve Zeit3(colAuftrag.Count)
Z = Zei
Do
Select Case .Range("H" & Z)
Case 1110
Zeit1(colAuftrag.Count) = Zeit1(colAuftrag.Count) + .Range("AH" & Z)
Case 9302, 9303
Zeit2(colAuftrag.Count) = Zeit2(colAuftrag.Count) + .Range("AH" & Z)
Case 2160
Zeit3(colAuftrag.Count) = Zeit3(colAuftrag.Count) + .Range("AH" & Z)
Case Else
' nix
End Select
Zeit(colAuftrag.Count) = Zeit(colAuftrag.Count) + .Range("AH" & Z)
Z = Z + 1
Loop While .Range("A" & Z) = "" And .Range("AH" & Z) ""
Else
For C = 1 To colAuftrag.Count
Z = Zei
If colAuftrag(C) = .Range("A" & Z) Then
Do
Select Case .Range("H" & Z)
Case 1110
Zeit1(C) = Zeit1(C) + .Range("AH" & Z)
Case 9302, 9303
Zeit2(C) = Zeit2(C) + .Range("AH" & Z)
Case 2160
Zeit3(C) = Zeit3(C) + .Range("AH" & Z)
Case Else
' nix
End Select
Zeit(C) = Zeit(C) + .Range("AH" & Z)
Z = Z + 1
Loop While .Range("A" & Z) = "" And .Range("AH" & Z) ""
Exit For
End If
Next C
End If
Err.Clear
End If
Next Zei
End With
Next M
On Error GoTo 0
With Worksheets("Übersicht")
.Range("A5:J1000").ClearContents
.Columns("C:C").NumberFormat = "@"
For C = 1 To colAuftrag.Count
H = Int(Zeit(C) / 60)
.Cells(4 + C, 3) = Right("0000" & H, 4) & ":" & Right("00" & Zeit(C) - H \* 60, 2)
.Cells(4 + C, 1) = colAuftrag(C)
H = Int(Zeit1(C) / 60)
.Cells(4 + C, 4) = Right("0000" & H, 4) & ":" & Right("00" & Zeit1(C) - H \* 60, 2)
.Cells(4 + C, 6) = Zeit2(C) / Zeit(C)
H = Int(Zeit2(C) / 60)
.Cells(4 + C, 5) = Right("0000" & H, 4) & ":" & Right("00" & Zeit2(C) - H \* 60, 2)
.Cells(4 + C, 8) = Zeit3(C) / Zeit(C)
H = Int(Zeit3(C) / 60)
.Cells(4 + C, 7) = Right("0000" & H, 4) & ":" & Right("00" & Zeit3(C) - H \* 60, 2)
Next C
End With
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
