Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählenwenn Blattregisterfarbe rot

Zählenwenn Blattregisterfarbe rot
28.07.2008 08:48:51
Remo
Hallo zusammen,
kann man eigentlich irgendwie mit einer Formel oder so sagen wir mal L27 von allen Blättern die rot eingefärbt sind zählen lassen?
Besten dank schon im voraus.
Gruss Remo

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zum Beispiel mit einer UDF
28.07.2008 09:30:45
Backowe
Hi,
einfach =registerzaehlen(a1) in die Tabelle schreiben.
VBA-Code:
Function RegisterZaehlen(Bereich)
'Code in ein Modul!
Dim ws As Worksheet
Dim i As Integer
Application.Volatile
For Each ws In Worksheets
  If ws.Tab.ColorIndex = 3 Then i = i + 1
Next
RegisterZaehlen = i
End Function
Gruss Jürgen

Anzeige
AW: Zum Beispiel mit einer UDF
28.07.2008 10:17:00
mpb
Hallo,
ich habe Remo so verstanden, dass er die Werte in L27 Addieren will (auch wenn er von "zählen lassen" schreibt). Für Diesen Fall müsste man Jürgens Code etwas modifizieren, z.B.

Function WerteInRegisterSummieren(Bereich As Range)
'Code in ein Modul!
Dim ws As Worksheet
Dim i As Long
Application.Volatile
For Each ws In Worksheets
If ws.Tab.ColorIndex = 3 Then i = i + ws.Range(Bereich.Address)
Next
WerteInRegisterSummieren = i
End Function


Aufruf mit
=WerteInRegisterSummieren(L27)
Wenn die Farbe variabel gehalten werden soll, müssen 2 Parameter übergeben werden:


Function WerteInRegisterSummieren(Bereich As Range, ColInd As Integer)
'Code in ein Modul!
Dim ws As Worksheet
Dim i As Long
Application.Volatile
For Each ws In Worksheets
If ws.Tab.ColorIndex = ColInd Then i = i + ws.Range(Bereich.Address)
Next
WerteInRegisterSummieren = i
End Function


Aufruf für "rot" mit
=WerteInRegisterSummieren(L27; 3)
Gruß
Martin

Anzeige
Ich habe es wörtlich genommen, ...
28.07.2008 10:28:09
Backowe
Hallo Martin,
... da L27 ja auf jedem Sheeet vorhanden ist, zähle ich nur die roten Blattregister! ;) Wahrscheinlich hast Du Recht mit der Summierung, aber spätestens bei der Rückmeldung von Remo wäre, die Ungleichung aufgelöst worden.
Gruss Jürgen

AW: Ich habe es wörtlich genommen, ...
28.07.2008 11:18:35
Remo
Tach mitteinander besten Dank an euch alle. Ja ich habe mehrere blätter in einer mappe und die register haben verschidene farben rot, orange und blau. und nun will ich das das die zahlen in L27 zusammengezählt werden.
PS: könnt ihr mir ev. ein beispiel mitsenden? habe das oben von euch probieren wollen aber habe es nicht geschafft!

Anzeige
Noch etwas vergessen!
28.07.2008 12:17:00
Backowe
Hi Remo,
es könnte ja auch sein, daß Du auch mal einen Bereich addieren möchtest, anbei eine kleine Modifikation.
Function SummewennRegisterFarbe(Bereich As Range, Farbe As Integer)
'Code in ein Modul!
Dim ws As Worksheet
Dim Zelle As Range
Dim Summe As Double
Application.Volatile
Summe = 0
For Each ws In Worksheets
  If ws.Tab.ColorIndex = Farbe Then
    For Each Zelle In Bereich
      Summe = Summe + ws.Range(Zelle.Address)
    Next
  End If
Next
SummewennRegisterFarbe = Summe
End Function
Gruss Jürgen

Anzeige
AW: Noch etwas vergessen!
31.07.2008 08:57:00
Remo
Ich habe noch eine frage!
und zwar klappt beim pc alles wunderbar aber mit dem mac geht es nicht! hatt immer einen fehler bei Application.Volatile

Die Anweisung heißt nichts anderes, ...
31.07.2008 09:04:51
Backowe
Hi Remo,
... bei jeder Neuberechnung wird die Funktion auch aktualisiert. Wahrscheinlich gibt es sowas auch beim Mac, da ich aber noch nie das Vergnügen mit einem Mac hatte, obwohl ich mir fast vor ein paar Monaten Einen gekauft hätte, kann ich Dir da keine Auskunft geben, die Dich weiterbringt.
Gruss Jürgen

AW: Die Anweisung heißt nichts anderes, ...
31.07.2008 15:03:00
Remo
Function WerteInRegisterSummieren(Bereich As Range, ColInd As Integer)
Sorry hier bringt der Mac das Prob.

Anzeige
Ich habe vom Mac keine Ahnung! Sorry! ;o)
31.07.2008 15:06:52
Backowe

AW: Ich habe vom Mac keine Ahnung! Sorry! ;o)
31.07.2008 15:11:30
Remo
besten dank für deine bemühnungn. vieleicht krig ich es noch selber raus

AW: Zählenwenn Blattregisterfarbe rot
28.07.2008 13:55:00
Remo
Danke leute es hatt geklappt! Ihr seit doch die besten... :)
Gruss Remo

303 Forumthreads zu ähnlichen Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Mehr als 7 Wenn-Dann-Verschachtelungen
Bernd

Hallo Leute,
ich habe eine WENN DANN Formel mit mehr als 7 Verschachtelungen. Hat jemand eine Idee wie ich diese Formel so umschreiben kann, dass ich Sie nutzen kann?
Hier ist sie:
=WENN(Monat($D$2)=1;SVERWEIS($D$2;'01'!$G$7:$R$43;2);WENN(Monat($D$2)=2;SVERWEIS($D$2;'02'!$G$7:$R$43...
13.10.2008 17:23:11
Thread-ID: 1016134
4 Beiträge
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Wenn-Dann
Jenny

Hallo,
also in meiner Tabelle habe ich mehrere Daten z.B. 01.12.1990. Excel soll mir nun alle Daten die vor dem 01.10.2005 waren als 01.10.2005 anzeigen...alle Daten die nach dem 01.10.2005 sind soll er mir auch genau anzeigen. Geht das?
Lieben Gruß
23.10.2008 10:31:00
Thread-ID: 1018545
7 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
15
5
4
2
6
3
2
6
2
9
6
1
10
4
14
2
2
7
4
3
2
10
2
4