|  
                                             
	Hallo Jörg, 
	leider verrätst du nicht, was falsch berechnet wird. Ich vermute, dass du Endgesamtzeit falsch erhältst, weil du eine eigenartige Art für ihre Berechnung gewählt hast, die ich allerdings nicht nachvollziehe (verzeihe, wenn ich dir Unrecht tue). Du verwendest irre lange Variablennamen! 
	Anstelle von 
	Do Until (sekGesEndZeit Mod 60 = 0) 
	        sekGesEndZeit = sekGesEndZeit - 1 
	         
	        sekEndZeit = sekEndZeit + 1 
	    Loop 
	     
	     
	    vollMinEndZeit = sekGesEndZeit / 60 
	     
	     
	    ActiveSheet.Cells(i, 5) = vollMinEndZeit 
	    ActiveSheet.Cells(i, 6) = sekEndZeit 
	  
	sollte ausreichen: 
	  
	ActiveSheet.Cells(i, 5)=sekGesEndZeit\60 'Backslash! für Ganzzahlen 
	ActiveSheet.Cells(i, 6)=sekGesEndZeit-ActiveSheet.Cells(i, 5) * 60 
	  
	Gruß 
	Holger 
	  
	- 
	  
	  
	  
	  
     |