|  
                                             
	Hallo SJ, 
	Kann man das noch vereinfachen? 
	  
	Weil ich habe über 1000 Zellen. 
	Nach jetziger Idee müsste ich von A9 bis A1000 den Code einfügen. Oder? 
	  
	Worksheets("Tabelle1").Range("A9") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1) 
	Worksheets("Tabelle1").Range("A10") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1) 
	Worksheets("Tabelle1").Range("A11") = Left(Application.UserName, InStr(1, Application.UserName, ",", vbTextCompare) - 1) 
	  
	Gruß 
	K.W. 
	  
	  
	  
     |