Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung mit S-Verweis

Forumthread: Bedingte Formatierung mit S-Verweis

Bedingte Formatierung mit S-Verweis
22.12.2022 11:01:41
marco
Hallo Liebe Excelprofis,
Ich suche nach einer Lösung in VBA
Wo ich das aktive Tabellenblatt mit einem Vorlageblatt vergleiche und mir die Farbe der Zelle wo die Überinstimmung ist im Aktuellen Tabellenblatt eingetragen wird.
Bsp. aktive Tabellenblatt ist in Spalte F ein Wert eingetragen im Volageblatt "Vorgänge" ist in Spalte "A "auch dieser wert. Jetzt soll die Farbe aus Spalte A vom Vorlageblatt in das aktive Tabellenblatt in spalte E eingefügt werden.
=SVERWEIS($F14;Vorgänge!$A$10:$A$615;1;FALSCH) Wird angewendet aus E10bis E615
Ist denn sowas mit VBA möglich?
Danke
Gruß
Marco
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 12:45:26
migre
Hallo!
Bin mir ob Deiner Beschreibung nicht ganz sicher, meinst Du so:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsTemp As Worksheet: Set WsTemp = Wb.Worksheets("Vorgänge")
Dim WsAct As Worksheet, r As Range, c As Range
Dim rSearch As Range, f
Application.ScreenUpdating = False
Set WsAct = ActiveSheet
With WsTemp
Set rSearch = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
With WsAct
Set r = .Range(.Cells(1, 6), _
.Cells(.Rows.Count, 6).End(xlUp))
For Each c In r
f = Application.Match(c.Text, rSearch, 0)
If Not IsError(f) Then
c.Offset(, -1).Interior.Color = _
rSearch(f).Interior.Color
End If
Next c
End With
Set Wb = Nothing: Set WsTemp = Nothing: Set WsAct = Nothing
Set r = Nothing: Set c = Nothing: Set rSearch = Nothing
End Sub
Geht im aktiven Blatt F1:Fx (letzte gefüllte in F:F) durch und sucht den jeweiligen Zell-Eintrag in Vorgänge!A1:Ax (letzte gefüllte in A:A); wenn der Eintrag gefunden wird, wird die Zellfarbe aus Vorgänge!Ax auf AktivesBlatt!Ex (x = Zeile jener Zelle in F:F, nach der gerade Vorgänge! durchsucht wurde) angewendet.
LG Michael
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 13:27:21
Marco
Hallo Michael
, vielen Dank für die schnelle Hilfe, aber leider habe ich es nicht hinbekommen
Ich habe mal eine Musterdatei, vielleicht wir es da ersichtlicher.
https://www.herber.de/bbs/user/156896.xlsm
Gruß
Marco
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 15:29:39
migre
Hi!
Der Code passt schon, hab nur eine Kleinigkeit geändert, da Du tatsächlich nach Werten abgleichst, und nicht nach Begriffen:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsTemp As Worksheet: Set WsTemp = Wb.Worksheets("Vorgänge")
Dim WsAct As Worksheet, r As Range, c As Range
Dim rSearch As Range, f
Application.ScreenUpdating = False
Set WsAct = ActiveSheet
With WsTemp
Set rSearch = .Range(.Cells(1, 1), _
.Cells(.Rows.Count, 1).End(xlUp))
End With
With WsAct
Set r = .Range(.Cells(1, 6), _
.Cells(.Rows.Count, 6).End(xlUp))
For Each c In r
f = Application.Match(c, rSearch, 0)
If Not IsError(f) Then
c.Offset(, -1).Interior.Color = _
rSearch(f).Interior.Color
End If
Next c
End With
Set Wb = Nothing: Set WsTemp = Nothing: Set WsAct = Nothing
Set r = Nothing: Set c = Nothing: Set rSearch = Nothing
End Sub
Sollte auch in Deinem Beispiel funktionieren.
LG Michael
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 15:41:12
Marco
Hallo Michael,
Perfekt Vielen lieben Dank
genau das habe ich gesucht
ist es denn möglich, dass man das Makro erweitert,
Wenn ich jetzt die Bezugszelle im aktiven Arbeitsblatt lösche bleibt die Hintergrundfarbe , dass diese dann wieder weiß wird
Vielen Dank nochmal
Gruß Marco
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 16:10:29
migre
Hi!
Bitte künftig bei Fragen in Foren alle Anforderungen gleich beim ersten Beitrag anführen; es kann durchaus sein, dass ein Code komplett umgearbeitet werden muss, wenn nach und nach neue Infos bzw. Anforderungen nachgefragt werden, und das schafft ggf. Unmut.
Bzgl. Deiner Erweiterung: Hab den Code ergänzt, jetzt wird auch geprüft ob die jew. Zelle in F:Fx leer ist oder nicht, wenn sie leer ist, wird die Füllfarbe aus Ex entfernt, wenn nicht, erfolgt die Prüfung auf Vorgänge!A1:Ax und die Färbung, wie bisher:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsTemp As Worksheet: Set WsTemp = Wb.Worksheets("Vorgänge")
Dim WsAct As Worksheet, r As Range, c As Range
Dim rSearch As Range, f
Application.ScreenUpdating = False
Set WsAct = ActiveSheet
With WsTemp
Set rSearch = .Range(.Cells(1, 1), _
.Cells(.Rows.Count, 1).End(xlUp))
End With
With WsAct
Set r = .Range(.Cells(1, 6), _
.Cells(.Rows.Count, 6).End(xlUp))
For Each c In r
Select Case True
Case c.Value = ""
c.Offset(, -1).Interior.Pattern = xlNone
Case Else
f = Application.Match(c, rSearch, 0)
If Not IsError(f) Then
c.Offset(, -1).Interior.Color = _
rSearch(f).Interior.Color
End If
End Select
Next c
End With
Set Wb = Nothing: Set WsTemp = Nothing: Set WsAct = Nothing
Set r = Nothing: Set c = Nothing: Set rSearch = Nothing
End Sub
Hoffe das passt, ich bin für heute raus ;-), viel Erfolg und ein frohes Fest!
Michael
Anzeige
AW: Bedingte Formatierung mit S-Verweis
22.12.2022 16:20:44
Marco
Hallo Michael,
vielen Dank nochmal für deine Hilfe .
Es läuft perfekt :-)
Ja du hat recht, aber ich wusste es ehrlich gesagt nicht. es fiehl mir erst auf, al ich es getestet habe
Sorry
Dir auch ein frohes Fest und einen guten Start ins neue Jahr.
Gruß
Marco
;

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Bedingte formatierung mit Wenn
kdl

Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
Meine e...
12.09.2008 14:06:00
Thread-ID: 1009364
2 Beiträge
Anzeige
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Anzeige
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
bedingte Formatierung mit Datum
Andy

Guten Tag,
ich habe eine Frage.
Ich würde gerne die folgende Bedienung in einer bedingten Formatierung umsetzen.
wenn ein Datum in einer Zelle (A1) nach dem Datum in einer anderen Zelle (A2) ist und eine dritte Zelle (A3) leer ist, dann mache die Zelle (A1) rot.
geht das?
vi...
21.01.2009 16:33:00
Thread-ID: 1042306
3 Beiträge
Excel2007: bedingte Formatierung mit Forme
Thorsten

Hallo,
ich habe ein Problem mit bedingten Formatierungen, die auf Formeln basieren, im Excel 2007.
Ich habe in Exel XP bzw. 2002 Dateien mit bedingten Formatierungen auf Formelbasis erstellt und diese werden im Excel 2007 nicht mehr korrekt abgebildet.
Ich habe dazu eine Datei als...
27.01.2009 15:15:00
Thread-ID: 1044267
8 Beiträge
Bedingte Formatierung mit VBA
Steffen

Hallo,
habe schon viele Einträge gelesen, aber noch keiner war für mein Problem hilfreich oder ich stelle mich nur zu dämlich an. Folgendes Problem:
1. In einer Tabelle, die vom SQl-Server gefüllt wird, ist außerhalb des benannten Bereiches eine Spalte M, deren Zellen eine bestimmte Far...
13.02.2009 09:44:00
Thread-ID: 1050348
4 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
16.03.2009 10:15:21
Thread-ID: 1060621
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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