Änderung in allen Worksheets
highman4
Ich möchte eine Berechnung in allen Arbeitsblättern (ca. 150) vornehmen lassen.
Folgender Code:
Sub Bestellung_Ausloesen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Cells(10, 2) > Cells(9, 2) Then
Cells(11, 2) = 0
Else
Cells(11, 2) = Cells(9, 2) - Cells(10, 2)
End If
Next ws
End Sub
Kann mir jemand helfen wie ich das hier einarbeiten muss?
Vielen Dank und viele Grüße
Marco
Anzeige