Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gezählte Zellen markieren

gezählte Zellen markieren
03.08.2006 13:04:04
Nothhaft
Wahrscheinlich stehe ich auf der Leitung, aber hier eine Frage, deren Antwort mir das Leben sehr-sehr-sehr erleichtern würde.
Ich zähle über die ZählenWenn-Funktion Zeiten , die mit einem bestimmten Codewort verknüpft sind. z.B. B3: "Schreibtisch" C3: "10 Minuten". Am Ende weiß ich also, wie OFT eine Person am Schreibtisch saß. Über die SummeWenn-Funktion weiß ich auch, WIE LANGE die Person insgesamt am Schreibtisch saß.
Jetzt würde ich gerne Zellen, die von ZÄHLENWENN oder SUMMEWENN gezählt wurden, automatisch markieren lassen (fett oder kursiv oder farbig). Der Grund ist der, dass ich dann am Ende sehe, welche Zeilen noch NICHT gezählt wurden (weil entweder ein falschgeschriebenes Codewort drinsteht - oder ein Codewort, für das ich das ZÄHLENWENN noch nicht angelegt habe).
Kann man also eine von SUMMEWENN- oder ZÄHLENWENN angesprochene Zelle durch eine Formel markieren lassen?
Kann mir jemand helfen? Das muss doch möglich sein?! Aber ich krieg's einfach nicht hin.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gezählte Zellen markieren
03.08.2006 13:08:18
Specke
Hallo Nothhaft,
vielleicht hilft Dir Bedingte Formatierung weiter?
Gruß Specke
AW: gezählte Zellen markieren
03.08.2006 15:01:37
Nothhaft
Vielen Dank für den Vorschlag, Specke, aber ich weiß nicht, wie ich Excel dazu bekomme, beim Durchlauf der ZählenWenn-Funktion eine bedingte oder anderweitige Formatierung auf die AKTUELL GEZÄHLTE Zelle anzuwenden. Ich habe drei Dutzend Codewörter, die ich mit drei Dutzend ZÄHLENWENN-Funktionen abfrage. Am besten wäre es also, an jede Funktion noch einen Befehl ranzuhängen, der dafür sorgt, dass die Zelle, wenn Sie das Codewort enthielt, markiert wird.
Vielleicht weiß jemand Rat.
AW: gezählte Zellen markieren
03.08.2006 15:09:04
Specke
Hallo Nothhaft,
ich denke, daß das ohne VBA nicht möglich ist.
Gruß Specke
Anzeige
AW: gezählte Zellen markieren
03.08.2006 15:30:33
Specke
Hallo Nothhaft,
in etwa so:
Set Suchbereich = Worksheets(1).Range("A1:A10")
Zähler1 = 0
Suchwort1 = "ABC"
Farbe1 = 3
Zähler2 = 0
Suchwort2 = "XYZ"
Farbe2 = 5
For Each Zelle In Suchbereich
If Zelle.Value = Suchwort1 Then
Zelle.Interior.ColorIndex = Farbe1
Zähler1 = Zähler1 + 1
Zeit1 = Zeit1 + Zelle.Offset(0, 1).Value
ElseIf Zelle.Value = Suchwort2 Then
Zelle.Interior.ColorIndex = Farbe2
Zähler2 = Zähler2 + 1
Zeit2 = Zeit2 + Zelle.Offset(0, 1).Value
End If
Next Zelle
Werd's ausprobieren. Danke!
04.08.2006 10:13:04
Nothhaft
Vielen Dank, Specke. Ich werde es ausprobieren und das Ergebnis meiner Bemühungen mitteilen. Könnte aber ein bisschen dauern. Auf jeden Fall vielen Dank für den Vorschlag und die Hilfe!
Anzeige
AW: Werd's ausprobieren. Danke!
04.08.2006 17:13:34
Nothhaft
Super, es hat geklappt. Mehr oder weniger so, wie von Specke vorgeschlagen. Also über ein Makro, das die einzelnen Codewörter mit If... then abfragt und abgefragte Zellen dann fett macht. Der Code vermutlich nicht sehr elegant, aber...
Attribute VB_Name = "Modul2"

Sub searcher()
For Counter = 1 To 598 ; ***Anzahl der Zeilen in Spalte 3***
Set curCell = Worksheets("Sessions").Cells(Counter, 3)
Worksheets("Sessions").Activate
Worksheets("Sessions").Cells(Counter, 3).Activate
If curCell.Value = "***CODEWORT***" Then ActiveCell.Font.Bold = True
Next Counter
End Sub

Gruß und vielen Dank.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige