Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Marko um Zellen zu färben nacht Text .

Marko um Zellen zu färben nacht Text .
12.07.2023 12:36:40
Bernd
Hallo Zusammen,

in meiner Beispieldatei befinden sich im Blatt Farben in den Zellen K2:K12 Bergiffe. Im Bereich L2:L13 befinden sich verschiedene Farb Indexe.
Wäre jemand so freundlich mir ein Makro zu schreiben, welches auf dem Blatt Ausgabe im Bereich J3:V2000 die Begriffe sucht in denen die Worte aus dem Blatt FArben vorkommen und die Zelle neben dem Begriff auf Blatt Aufgabe dann in dem dafür vorgesehenen Farbindex einfärbt ?

Ich habe schon alles Manuell gefärbt um es besser erklären zu können.
https://www.herber.de/bbs/user/159913.xlsm

Danke und Gruß Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: Marko um Zellen zu färben nacht Text .
12.07.2023 12:51:40
Daniel
HI
ist zwar ne Auftragsprogrammierung, aber probiers mal so:

Sub test()
Dim ZelleFarbe
Dim ZelleText
For Each ZelleText In Sheets("Ausgabe").Range("J:V").SpecialCells(xlCellTypeConstants, 2)
    ZelleText.Offset(0, 1).Interior.ColorIndex = xlNone
    For Each ZelleFarbe In Sheets("Farben").Range("K2:K12")
        If ZelleText Like "*" & ZelleFarbe & "*" Then ZelleText.Offset(0, 1).Interior.ColorIndex = ZelleFarbe.Offset(0, 1).Value
    Next
Next
End Sub
Gruß Daniel

AW: Marko um Zellen zu färben nacht Text .
12.07.2023 13:00:30
Bernd_
Hallo Daniel,
das war mir so nicht bewusst. Sorry
Danke für das Makro.
Habe Dein Makro getestet.

Es werden alle Farben die ich manuell gesetzt habe gelöscht. Mehr passiert leider nicht.

Gruß Bernd

Anzeige
AW: Marko um Zellen zu färben nacht Text .
12.07.2023 13:15:30
Daniel
Hi
das ist falsch.
ich setzte nur erst die Farben in der Zelle zurück, dann suche ich die Farbe aus der Liste heraus.
So bleiben die Texte, für die keine Zuordnung gefunden werden kann, weiß.
wenn manuell gefärbte Zellen nicht umgefärbt werden sollen, kannst du die Zeile "ZelleText.Offset(0, 1).Interior.ColorIndex = xlNone" löschen.

der Text berücksichtigt momentan Groß- und Kleinschreibung, dh wenn in der Zelle steht "warten auf Servicepersonal" wird nicht die Farbe von "Personal" zugeordnet, weil das "P" unterschiedlich geschrieben ist.
wenn auch hier die Farbe für Personal eingetragen werden soll, dann müsstest du das so abändern:

If LCase(ZelleText.Text) Like "*" & LCase(ZelleFarbe.Text) & "*" Then ...

ansontsten funktioniert mein Code mit deiner Beispieldatei.
Gruß Daniel

Anzeige
AW: Marko um Zellen zu färben nacht Text .
12.07.2023 13:22:11
Bernd_
Hallo Daniel,

sorry für meine falsche Antwort.

Ich habe keine Ahnung wohin ich den Code aus Deiner letzten Nachricht kopieren soll.

Ja und es sollen alle Wörten auf dem Blatt Ausgabe die die Wörter aus dem Blatt FArben beinhalten gefärt werden.
Alles wo z.B Störung drin vorkommt soll den Code 6 erhalten u.s.w-

Gru0 bernd

AW: Marko um Zellen zu färben nacht Text .
12.07.2023 13:32:56
Piet
Hallo Bernd

der Code von Daniel gehört in ein normales Modul. Du kannst es mit einem normalen CommandButton starten.
Bitte KEIN -ActiveXSteuerlement- nehmen, dem kann man das Makro NICHT direkt zuweisen!

mfg Piet

Anzeige
AW: Grundlkurs VBA
12.07.2023 13:36:57
Bernd_
Ich meinte diese Codezeile
If LCase(ZelleText.Text) Like "*" & LCase(ZelleFarbe.Text) & "*" Then ...
wohin muss die in diesem Code

 Sub test()
     Dim ZelleFarbe
     Dim ZelleText
     For Each ZelleText In Sheets("Ausgabe").Range("J:V").SpecialCells(xlCellTypeConstants, 2)
         ZelleText.Offset(0, 1).Interior.ColorIndex = xlNone
         For Each ZelleFarbe In Sheets("Farben").Range("K2:K12")
             If ZelleText Like "*" & ZelleFarbe & "*" Then ZelleText.Offset(0, 1).Interior.ColorIndex = ZelleFarbe.Offset(0, 1).Value
         Next
     Next
     End Sub

Anzeige
AW: Grundlkurs VBA
12.07.2023 13:41:12
Daniel
du musst die bereits vorhandene Zeile, die mit IF beginnt, entsprechend abändern
das LIKE vergleicht Texte unter berücksichtigung der Groß/Kleinschreibung.
das LCase wandelt im Text alle Großbuchstaben in Kleinbuchstaben um.
Grúß Daniel

AW: Grundlkurs VBA
12.07.2023 13:45:55
Bernd_
Habe ich gemacht.
Es werden abe immer noch alle mit z.B Material in unterschriedlichen Farben eingefärbt.

Es wäre schön wenn alles was z.B Material beinhaltet alles die gleiche FArbe bekommt.

AW: Grundlkurs VBA
12.07.2023 14:02:28
Daniel
Hi
also bei mir wird alles mit Material einheitlich blau.
in deiner aktuellen Beispieldatei kann ich das nicht nachvollziehen.
Lade wenn bitte deine Datei mit deinem Code hoch, in der das Problem besteht.

Wo du aufpassen musst, ist folgendes:
wenn der Text in der Zelle mehrere Wörter aus der Farbenliste enthält, wird die Zelle immer in der Farbe gefärtbt, die in der Liste am weitesten unten steht.
wenn sowas vorkommt, musst du über die Anordnung der Liste "Farbe" festlegen, welches Wort priorität hat.
Gruß Daniel

Anzeige
AW: Marko um Zellen zu färben nacht Text .
12.07.2023 14:23:41
Piet
Hallo Bernd

probiere bitte mal meinen Code aus. Er stammt von Daniel, wurde aber von mir verbessert. Würde mich freuen wenn es damit klappt.
Er löscht beim Starten zuerst alle Innenfarben, markiert die Zellen aber wieder, wenn der Text mit dem Text ZellFarbe übereinstimmt.

mfg Piet

  • Dim ZelleFarbe As Range, ZelleText As Range
    For Each ZelleText In Sheets("Ausgabe (2)").Range("J:V").SpecialCells(xlCellTypeConstants, 2)
    ZelleText.Offset(0, 1).Interior.ColorIndex = xlNone
    For Each ZelleFarbe In Sheets("Farben").Range("K2:K12")
    If InStr(ZelleText, ZelleFarbe) Then
    ZelleText.Offset(0, 1).Interior.ColorIndex = _
    ZelleFarbe.Offset(0, 1).Value
    ElseIf ZelleFarbe = "Personal" And InStr(ZelleText, "Fachpersonal") Then
    ZelleText.Offset(0, 1).Interior.ColorIndex = _
    ZelleFarbe.Offset(0, 1).Value
    End If
    Next
    Next
    End Sub


    • Anzeige
    AW: Marko um Zellen zu färben nacht Text .
    12.07.2023 14:29:27
    Piet
    Nachtrag

    Like ist eine moderne Methode, ich verwende aber immer noch gerne die alten Befehle Instr() zum Textvergleich.
    Wenn mein code zufriedenstellend läuft sollte es egal sein ob alter oder neuer Befehlscode. Hauptsache es klappt.

    mfg Piet

    301 Forumthreads zu ähnlichen Themen

    Userform Textboxinhalte in Zellen schreiben
    Gerd

    Guten Tag zusammen!
    Bitte helft mir bei folgendem Problem:
    In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
    Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
    11.08.2008 14:33:59
    Thread-ID: 1000866
    3 Beiträge
    Anzeige
    Zeilen in Zellen suchen und löschen
    Daniel

    Hallo,
    ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
    Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
    Weiß jemand wie ich am besten vorgehe?...
    13.08.2008 12:52:02
    Thread-ID: 1001495
    9 Beiträge
    Wert in farbiger Zelle addieren
    thomas

    Hallo,
    ich möchte den Wert in farbigen Zellen addieren.
    Z.B.
    Zelle A1 :C1 Zellfarbe gelb, in jeder Zelle steht der Wert 1 ; Ergebnis soll 3 sein
    oder
    Zelle A2 = grün Wert =1, B2 = gelb Wert=2, C2 = gelb Wert =2; Ergebnis soll 4 sein
    gibt es dafür eine Funktion oder is...
    13.08.2008 12:56:00
    Thread-ID: 1001497
    4 Beiträge
    Anzeige
    unterschiedliche Buchstaben in Textzellen finden
    Rob

    Liebe xls-Profis,
    ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
    2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
    Einfache Beispiele:
    A1 B1
    Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
    20.08.2008 10:26:10
    Thread-ID: 1003114
    8 Beiträge
    Textteile in Zellen mit Liste vergleichen
    susidimarca

    Hallo,
    ich habe derzeit ein kniffeliges Excelproblem.
    ich möchte gerne den Text in Zellen
    hjgshgjdf Kriterium2 kjhfkjhfksdjhf
    dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
    daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
    mit den Kriterium eine anderen Tabelle vergleichen...
    21.08.2008 10:05:00
    Thread-ID: 1003378
    6 Beiträge
    Suchfunktion - TextBox kein Text sondern Datum
    Frank

    Hallo Liebe Excelgemeinde!!!
    In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
    Was muss ich ändern, damit auch nach...
    21.08.2008 15:35:00
    Thread-ID: 1003541
    4 Beiträge
    Wenn nur Text in Zelle...
    MichiM

    Hallo,
    ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
    Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
    E...
    22.08.2008 16:24:44
    Thread-ID: 1003960
    4 Beiträge
    Hintergrundfärbung in UserForm Textbox in Zelle...
    Josef

    Guten Morgen!
    wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
    Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
    Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
    28.08.2008 06:57:47
    Thread-ID: 1005257
    10 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    CommandButton Frame

    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
    2
    4
    8
    3
    16
    7
    5
    3
    3
    9
    5
    3
    3
    2
    1
    4
    5
    14
    11
    4
    2
    4
    5
    1
    7