Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Färben, wenn Bedingung erfüllt

Zellen Färben, wenn Bedingung erfüllt
20.05.2022 17:28:36
Andreas
Hallo,
ich bin auf der Suche nach einem Makro, welches mir beim Click auf die
"CMD Finde gleiche Werte"
alle Zellen "A" im "Worksheets Bearbeiten" gelb färbt,
die den gleichen Textinhalt in der Zelle "B" besitzen,
wie der Wert der Zelle "C2" im Worksheets Hilfstabelle".
Habe dazu mal ein kleines Beispiel hochgeladen.
https://www.herber.de/bbs/user/153183.xlsm
Wie könnte der Code dafür aussehen?
Gruß Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 17:54:12
onur
Da brauchst du kein VBA für, denn "Zellen Färben, wenn Bedingung erfüllt" ist ein Musterbeispiel für eine bedingte Formatierung.
Du musst natürlich dafür sorgen, dass alle Zellen in SPALTE B alle Text ODER Zahl sind - und C2 muss dann das selbe Format haben, und nicht sowas wie in deiner Datei.
https://www.herber.de/bbs/user/153184.xlsx
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 18:02:08
Andreas
Danke für den Hinweis,
das mit dem Format bekomme ich so nicht hin. Dort können auch Texte und Zahlen stehen.
Ich hätte das schon in Form eines Makros. Das ist auch nur ein Beispiel.
Vielöeicht gibt es ja eine Makro-Lösung
Grüße Andreas
Anzeige
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 18:17:27
onur
Es ist egal, ob Zahl oder Text, aber du kannst nicht einmal "123" schreiben (Text) und einmal 123 (Zahl) - da versagt auch VBA-Code bei sowas.
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 20:23:47
Andreas
Ich möchte dies mit VBA erledigen.
Habe mal einen Code zusammen gesetzt- aber der färbt "A" noch nicht nach dem eingegeben Text.
Das entfärben klappt schon mal.
Vieleicht gibt es ja einen funktionelleren VBA Code? 

Private Sub Spalte_A_gelb()
'markiert die zu Bearbeiteten Zeilen in der Spalte A für eine Optik gelb
Dim i&
i = 1
Do
If (i Mod 1)  1 Then
Range("A" & i).Interior.Color = vbYellow
i = i + 1
Else
i = i + 1
End If
Loop While i  1 Then
Range("A" & i).Interior.ColorIndex = xlNone
i = i + 1
Else
i = i + 1
End If
Loop While i
https://www.herber.de/bbs/user/153185.xlsm
Anzeige
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 20:32:47
onur
Lustiger Code.
Übrigens: 

i Mod 1
ist IMMER ungleich 1, da jede ganze Zahl mod 1 eine 0 ergibt.
AW: Zellen Färben, wenn Bedingung erfüllt
20.05.2022 20:49:54
onur
SO geht das:
https://www.herber.de/bbs/user/153186.xlsm
Du brauchst keine Buttons - wenn du was zum Suchen eingibst, wird gefärbt (falls vorhanden), wenn du wieder löschst, ist die Farbe wieder weg.
AW: Zellen Färben, wenn Bedingung erfüllt
21.05.2022 10:20:41
Andreas
Hallo,
Danke- das mit der bedingten Formatierung- funktioniert- aber ich möchte doch etwas mit VBA- auch Testweise für ein anderes Projekt.
Nun habe ich diesen Code, der noch etwas angepasst werden müsste.

Sub Einfaerben()
Dim rngZelle As Range
Dim strStart As String
Set rngZelle = Columns("B").Find("428", lookat:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
If rngZelle.Row > 1 Then Range(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 1)).Interior.Color = vbYellow
Set rngZelle = Columns("B").FindNext(rngZelle)
Loop While Not rngZelle Is Nothing And rngZelle.Address  strStart
End If
Set rngZelle = Nothing
End Sub
Problem 1
wie schreibe ich nun 

Set rngZelle = Columns("B").Find("428", lookat:=xlWhole)
dort wo die 428 derzeit steht- das der Wert, der zu finden ist- sich in der Zelle C2" im Worksheet Hilfstabelle befindet?
Problem 2
Das funktioniert nur mit Zahlen- es soll aber auch mit Buchstaben laufen.
Danke für die Hilfe
Anzeige
AW: Zellen Färben, wenn Bedingung erfüllt
21.05.2022 10:23:16
onur
Hey, was soll der Mist?
Ich habe dir einen VBA-Code gepostet und keine bedingte Formatierung !

355 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Anzeige

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
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9