unteres Makro bringt mir ständig die Fehlermeldung: Laufzeitfehler 11. Division durch null.
Weilß leider nicht wie diesen beheben soll, da ich nirgends durch null dividiere.
Vielen Dank
dani
Sub Gewichte()
Dim Wert As String, bereich As Range
For Each bereich In Worksheets("Lianalyse").Range("F10:F100")
Wert = bereich.Offset(0, 1).Value
Select Case Wert
Case "Addition"
bereich.Value = Worksheets("Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / bereich.Offset(0, 6).Value
Case ""
bereich.Value = Worksheets("Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / bereich.Offset(0, 6).Value
Case "Deletion"
bereich.Value = bereich.Offset(0, -2).Value
End Select
Next bereich
End Sub