Microsoft Excel

Herbers Excel/VBA-Archiv

Änderung in allen Worksheets | Herbers Excel-Forum


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"