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
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Addieren von makierten Zellen

Addieren von makierten Zellen
28.11.2006 16:16:39
makierten
Hallo
ich habe eine Liste von gelb-makierten Zellen. (ohne Zahlen) Ist es möglich all diese gelb-makierten Zellen automatisch zu zählen?

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

Betreff
Datum
Anwender
Anzeige
AW: Addieren von makierten Zellen
28.11.2006 16:33:00
makierten
Hallo Christian,
versuchs mal so:

Sub GelbeZellen()
Dim Zelle As Range
Dim Zählen As Long
For Each Zelle In Sheets(1).UsedRange.Cells
If Zelle.Interior.ColorIndex = 6 Then Zählen = Zählen + 1
Next
MsgBox Zählen
End Sub

Gruß
Bertram
AW: Addieren von makierten Zellen
29.11.2006 00:30:28
makierten
Hallo
versuchs mal mit diesem Makro.
Könnte bei Grossen Tabellen etwas schneller sein, da nicht jede einzelne Zelle geprüft werden muß.

Sub Makro2()
Dim i As Long
Dim Zelle As Range
Dim StartZelle As String
Application.ScreenUpdating = False
Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
StartZelle = ActiveCell.Address
Do
i = i + 1
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
Loop Until ActiveCell.Address = StartZelle
Application.ScreenUpdating = True
MsgBox (i & " gelbe Zellen")
End Sub

Gruß, Daniel
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige