Hallo Gemeinde,
hier mal ein Auszug aus meinem recht langen Makro:
For z = 0 To i - 3 'einzelne hinzugefügte Teile NR
For m = 3 To j - 1 'Position Gesamtstueckliste
If Cells(j + z, 4).Value = Cells(m, 4) Then
If Cells(m, 15).Value = "" Then
Cells(m, 4).Value = Cells(m, 4).Value * Cells(j + z, 4).Value
'^-diese Zeile mein ich
Else
n = 0
Range(Cells(m, 15), Cells(m, 18)) = ""
Cells(m, 4).Value = Cells(m, 4) / n
Cells(m, 4).Value = Cells(m, 4) * Cells(j + z, 4).Value
End If
End If
Next m
Next z
Beim Starten des Makros erscheint die Fehlermeldung "Laufzeitfehler '13' " an der markierten Stelle .. ich verzweifle langsam . Fällt euch etwas ein, was ich falsch gemacht habe?
Gruß
Steffan