If Range("G" & aktZeileNr) = 1 Then ' wenn Stückzahl 1 ist, dann ev. weitere Daten lesen/schreiben If chk_MasseLesen.Value And Range("E" & aktZeileNr).Value = "" Then Masse = Masse_auslesen(Modeldoc, Dateiname, Konfiguration) If IsEmpty(Masse) Then 'wenn Teil keine Masse hat Range("E" & aktZeileNr) = "??" Range("F" & aktZeileNr) = "??" Range("X" & aktZeileNr) = "??" <-- NEU Range("F" & ZeileBaugruppe) = "!!" Else Range("E" & aktZeileNr) = Masse(5) Range("E" & aktZeileNr).NumberFormat = "0.00" Range("X" & aktZeileNr) = Masse(5) <-- NEU Range("X" & aktZeileNr).NumberFormat = "0.00" <-- NEU Range("F" & aktZeileNr) = Masse(5) / Masse(3) / 1000 Range("F" & aktZeileNr).NumberFormat = "0.00" End If End If End If ACHTUNG!!! Die Spalte mit der Masse ist auf diese Weise fest in Spalte „X“ programmiert, darf also nicht verschoben werden!!!!! „X“ gilt nur als Beispiel