Tabellenblätter suchen

Forumthread: Tabellenblätter suchen

23.02.2006 12:49:40

Karschti

Hallo an die Fachwelt,
ich habe gaaannnz viele Tabellenblätter. Auf jedem Tabellenblatt ergibt die gesamte Spalte Z die Summe 26.
Wenn nun die Summe größer als 26,00 ist, dann sollten die Tabellen farblich makiert werden. Vielleicht in einem freundlichen rot?
Ich verzweifel gleich! Könnt Ihr helfen?
Gruß Karschti

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter suchen

23.02.2006 12:57:09

u_
AW: Tabellenblätter suchen

23.02.2006 13:11:55

Karschti

AW: Tabellenblätter suchen

23.02.2006 12:57:09

Hallo,


Sub Makro1()
Dim wks As Worksheet
For Each wks In Worksheets
If Application.WorksheetFunction.Sum(wks.Columns(26)) > 26 Then
wks.Tab.ColorIndex = 3
End If
Next
End Sub

Gruß
Geist ist geil!

AW: Tabellenblätter suchen

23.02.2006 13:11:55

Karschti

Danke - ein Prost auf Dich!

Forumthread: Tabellenblätter suchen

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread