Each Worksheet wird nicht angesprochen
06.02.2010 11:11:58
highman4
Hallo liebe Excelfreunde,
der nachstehende Code wird in einigen Tabellenblättern abgearbeitet in einigen passiert nichts.
Habe nun auch schon in allen Tabellenblättern die Formatierung angeglichen, leider auch nicht mit dem gewünschten Erfolg.
Kann es etwa mit den Sheet Namen etwas zu tun haben???????
Es sind ungefähr 90 Sheets, aber einige werden einfach nicht angesprochen
Hat hier jemand eine Idee was ich falsch mache?????????
Ich wäre wirklich für jede Idee dankbar.
Viele Grüße
Marco
Sub Bestellung_Ausloesen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Filter" And ws.Name <> "Ergebnis" And ws.Name <> "Muster" Then
'Range("H2:K5").Select
'Selection.NumberFormat = "0"
If Cells(2, 10) > Cells(2, 9) Then
Cells(2, 11) = 0
Else
Cells(2, 11) = Cells(2, 9) - Cells(2, 10)
If Cells(3, 10) > Cells(3, 9) Then
Cells(3, 11) = 0
Else
Cells(3, 11) = Cells(3, 9) - Cells(3, 10)
If Cells(4, 10) > Cells(4, 9) Then
Cells(4, 11) = 0
Else
Cells(4, 11) = Cells(4, 9) - Cells(4, 10)
If Cells(5, 10) > Cells(5, 9) Then
Cells(5, 11) = 0
Else
Cells(5, 11) = Cells(5, 9) - Cells(5, 10)
End If
End If
End If
End If
End If
Next ws
End Sub