Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Änderung in allen Worksheets

Änderung in allen Worksheets
highman4
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Änderung in allen Worksheets
05.02.2010 07:11:14
Hans
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
AW: Änderung in allen Worksheets
05.02.2010 07:19:44
highman4
Hallo Hans,
vielen Dank für Deine Hilfe und sorry für meine Unwissenheit.
Klappt natürlich
herzlichen Dank und viele Grüsse
Marco
Anzeige

256 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige