Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Warnzelle basteln

Warnzelle basteln
15.10.2022 01:18:17
sophie
Guten Abend!
Ich möchte am Anfang einer Zeile eine Art "Warnzelle" haben.
Wenn ein bestimmter Text in derselben Zeile (D3:O3) steht, soll die Zelle A3 rot eingefärbt sein und zb. ein x enthalten. Wenn der Wert nicht enthalten ist, soll A3 leer bleiben.
Besonders cool wäre auch: 1) statt dem x ausgeben zu lassen in welcher Spalte der text steht und 2) mehrere texte in dem Bereich zu suchen und wenn vorhanden in A3 auszugeben, getrennt mit Beistrich oder so.
Ich habe die Formel =WENN(D3:O3="Text";A3;"x") probiert, sie spuckt mir aber nur eine 0 aus. Das bringt also leider nix.
Danke schon mal!
lg, Sophie

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Warnzelle basteln
15.10.2022 12:03:30
volti
Hallo Sophie,
Du könntest das z.B. mit einer benutzerdefinierten Funktion erledigen. Da diese leider keine Farbformatierung des Feldes erlaubt, kannst Du hierfür eine bedingte Formatierung einsetzen. Siehe hierzu Beispiel in der Datei...
Beispielmappe WarnZeile.xlsm
Code:


Function Warnzelle(Rng As Range, sSuch As String) As Variant
  Dim C As Range, W As String
 
  For Each C In Rng
      If C.Value Like "*" & sSuch & "*" Then
         W = W & C.Address & ", "
      End If
  Next C
  If W <> "" Then Warnzelle = Replace(Left$(W, Len(W) - 2), "$", "")
End Function
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
Für das "x" bzw. ""
15.10.2022 12:04:04
RPP63
Moin!
In A3 kommt die Formel:

=WENNFEHLER(TEXT(VERGLEICH("Text";D3:O3;0);"x");"")
Diese formatierst Du jetzt bedingt:
→ bedingte Formatierung
→ neue Regel
→ Formel zur Ermittlung:

=A3="x"
→ Hintergrundfarbe zuweisen
Gruß Ralf
AW: Warnzelle basteln
15.10.2022 19:08:28
Daniel
Hi
Für das Färben von A3 nimmst du am besten die bedingte Formatierung mit der Regelformel:

=ZählenWenn(D3:O3;"Text")
Entsprechend dann für das "x" mit dieser Formel in A3:

=Wenn(ZählenWenn(D3:O3;"Text");"x";"")
Die Ausgabe der Spalte bzw der Zelle bekommst du mit:

=WennFehler(Wechseln(Adresse(1;Vergleich("Text";C3:O3;0)+2;4);"1"; "");"")
Wenn du mehrere Texte hast, die angezeigt werden sollen wenn sie in dem Bereich vorkommen, dann vielleicht so (ggf Matrixformelabschluss STRG+SHIFT+ENTER erforderlich)

=Textverketten("-"; wahr;Wenn(ZählenWenn(D3:O3;{"Text1";"Text2";"Text3"});{"Text1";"Text2";"Text3"}; ""))
Gruß Daniel
Anzeige
AW: Warnzelle basteln
16.10.2022 02:11:51
Sophie
Ich danke Euch sehr! Eure Formeln haben mir echt weitergeholfen!
Habe damit zum ersten Mal mit VBA probiert - halt nur copy&paste aus dem warnzellentest-datei, weil ich in VBA noch weniger Syntax kann als bei excel. Aber ich bin froh, dass hier so nett geholfen wird!
Jedenfalls danke nochmal!
Lg, Sophie

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige