Ich möchte in einem Makro den Wert der Variablen auf "" setzen wenn die Summierung 0 ergibt!
Es tritt aber in diesem Fall ein Fehler "13" auf (Typen unverträglich).
Tonnage_Schmiede = LMZ1600 + LZK1000 + LZK2500 + LZK3150A + LZK3150B + LZK4000 Tonnage_Bockenau_Gesamt = Tonnage_Schmiede + Tonnage_Riwa + Tonnage_FSU
If WW6 = "-" Then WW6 = 0
If WW7 = "-" Then WW7 = 0
If WW8 = "-" Then WW8 = 0
If WW9 = "-" Then WW9 = 0
If WW10 = "-" Then WW10 = 0
If WW11 = "-" Then WW11 = 0
If WW12 = "-" Then WW12 = 0
If LZK1000 = "-" Then LZK1000 = 0
If LMZ1600 = "-" Then LMZ1600 = 0
If LZK2500 = "-" Then LZK2500 = 0
If LZK3150A = "-" Then LZK3150A = 0
If LZK3150B = "-" Then LZK3150B = 0
If LZK4000 = "-" Then LZK4000 = 0
If TSP = "-" Then TSP = 0
If QKW = "-" Then QKW = 0
Tonnage_Riwa = WW6 + WW7 + WW8 + WW9 + WW10 + WW11
Tonnage_FSU = TSP + QKW + WW12
If Tonnage_Schmiede = 0 Then Tonnage_Schmiede = ""
If Tonnage_Riwa = 0 Then Tonnage_Riwa = ""
If Tonnage_FSU = 0 Then Tonnage_FSU = ""
Gruß
Frederik