Herbers Excel/VBA-Archiv

Änderung in allen Worksheets | Herbers Excel-Forum

• Änderung in allen Worksheets von highman4 vom 05.02.2010 07:07:30
• AW: Änderung in allen Worksheets - von Hans W. Herber am 05.02.2010 07:11:14
  • AW: Änderung in allen Worksheets - von highman4 am 05.02.2010 07:19:44

Betrifft: Änderung in allen Worksheets von: highman4
Geschrieben am: 05.02.2010 07:07:30

Hallo Excelfreunde,
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

Jetzt müssen aber 2 Tabellen hiervon ausgeschlossen werden.
Kann mir jemand helfen wie ich das hier einarbeiten muss?

Vielen Dank und viele Grüße
Marco

Betrifft: AW: Änderung in allen Worksheets von: Hans W. Herber
Geschrieben am: 05.02.2010 07:11:14

Hallo Marco,

wie folgt:

Sub Bestellung_Ausloesen()
   Dim ws As Worksheet
   
   For Each ws In ThisWorkbook.Worksheets
      If ws.Name <> "Blatt1" And ws.Name <> "Blatt2" Then
         If Cells(10, 2) > Cells(9, 2) Then
            Cells(11, 2) = 0
         Else
            Cells(11, 2) = Cells(9, 2) - Cells(10, 2)
         End If
      End If
   Next ws

End Sub

gruss hans

Betrifft: AW: Änderung in allen Worksheets von: highman4
Geschrieben am: 05.02.2010 07:19:44

Hallo Hans,

vielen Dank für Deine Hilfe und sorry für meine Unwissenheit.
Klappt natürlich
herzlichen Dank und viele Grüsse

Marco

Beiträge aus den Excel-Beispielen zum Thema "Änderung in allen Worksheets"