Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Schriftfarbe suchen

Nach Schriftfarbe suchen
Jockel
Hallo,
ich habe in einer Mappe zwei Tabellenblätter, die in Prinzip jeweils die gleichen Daten beinhalten, nur mit dem Unterschied, auf dem ersten Tabellenblatt sind in der Spalte A manche Einträge farblich rot markiert, auf dem zweiten Tabellenblatt ist dies nicht der Fall.
Einträge sehen so aus:
A____
GD1234
RF4321
GF8761
Kann ich nun per Makro die Spalte A im ersten Tabellenblatt durchlaufen, überprüfen, in welchen Zellen ist die schriftart ROT und dann diese entsprechenden Einträge auf dem zweiten Tabellenblatt ebenfalls in der Spalte A Schriftart rot zu machen ?
Dankee mal
Jockel

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

Betreff
Benutzer
Anzeige
AW: Nach Schriftfarbe suchen
22.10.2010 08:58:26
selli
hallo jockel,
wenn die rote farbe aus einer bedingten formatierung kommt, kannst du diese formel ja zu deiner suche heranziehen.
wurde die rotfärbung per hand ausgelöst geht das nur mit vba.
gruß selli
AW: Nach Schriftfarbe suchen
22.10.2010 09:09:13
Jockel
Hi,
nein, das ist keine bedingte Formatierung, die wurden manuell gesetzt.
Gruß
Jockel
AW: Nach Schriftfarbe suchen
22.10.2010 09:24:46
urmila
Hallo Jockel,
versuchs mal hiermit....
Dim x As Integer
For x = 1 To 100
If Sheets("Tabelle1").Cells(x, 1).Interior.ColorIndex = 3 Then
Sheets("Tabelle2").Cells(x, 1).Interior.ColorIndex = 3
Else
Sheets("Tabelle2").Cells(x, 1).Interior.ColorIndex = xlNone
'Falls die Farbe sein soll wie im Tabellenblatt 1, dann "xlNone" durch dies hier
'ersetzen: Sheets("Tabelle1").Cells(x, 1).Interior.ColorIndex
End If
Next
Rückmeldung wäre nett.
LG
Urmila
Anzeige
AW: Nach Schriftfarbe suchen
22.10.2010 10:01:54
hary
Hallo
@Urmila: Jockel moechte die Schriftfarbe.
Teste mal so: 

Dim x As Integer
For x = 1 To 100
If Sheets("Tabelle1").Cells(x, 1).Font.Color = vbRed Then
Sheets("Tabelle2").Cells(x, 1).Font.Color = vbRed
Else
Sheets("Tabelle2").Cells(x, 1).Font.Color = vbBlack
End If
Next

gruss hary
autsch, meinte ich doch :)
22.10.2010 10:07:57
urmila
Urmila
AW: Nach Schriftfarbe suchen
22.10.2010 13:10:58
Jockel
Hallo Harry,
kann es sein, dass ser Code nicht nach den Einträgen schaut, sondern sich an der Position orientiert. Habe folgendes Problem:
Tabelle 1
BF1234
BF1234
BF1234
CD4321
BN3451
BN3451...
Tabelle 2
BF1234 farblich
CD4321 farblich
BN3451 farblich
GR1254
UM8521
CG4521
Wenn es , wie hier vorkommt, dass in der Tabelle1 zB 3 gleiche DS nacheinander vorkommen, dann werden auch in der Tabelle 2 drei DS nach dem ersten DS farblich markiert, auch wenn sie nicht dem Eintrag aus Tabelle1 entsprechen.
Kann man das ändern ?
Danke
Gruß
Jockel
Anzeige
AW: Nach Schriftfarbe suchen
22.10.2010 14:49:17
hary
Hallo
evtl. gehts auch eleganter, aber er tut's. 

Sub farbe()
Dim x As Integer
Dim zelle As Range
With Sheets("Tabelle1")
Sheets("Tabelle2").Range("A:A").Font.Color = vbBlack
For x = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(x, 1).Font.Color = vbRed Then
Set zelle = Sheets("Tabelle2").Range("A1:A" & Sheets("Tabelle2").Cells(Rows.Count,  _
1).End(xlUp).Row).Find(what:=.Cells(x, 1).Value, Lookat:=xlWhole, LookIn:=xlValues)
If Not zelle Is Nothing Then zelle.Font.Color = vbRed
End If
Next
End With
Set Zelle = Nothing
End Sub

gruss hary
Anzeige
geht auch ohne VBA ...
22.10.2010 10:49:07
Klaus
... allerdings mit Hilfsspalte und Excel4-Makro über Namensvergabe. Schau dir mal diesen Thread an, da wirds beschrieben:
http://www.office-loesung.de/ftopic116971_0_0_asc.php
Über die Hilfsspalte kannst du dann das zweite Tabellenblatt bedingt formatieren.
Grüße,
Klaus M.vdT.
(die VBA-Lösung halte ich aber für eleganter)

300 Forumthreads zu ähnlichen Themen

Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Anzeige
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Anzeige
In ListBox nur gefilterte Zeilen Anzeigen lasse
Vulferin

Hallo zusammen
ich hab folgenen Code imgebrauch
'In dieser Routine laden wir alle vorhandenen
'Eintr_ge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die †berschriften
'Schleife solange etwas in der ersten Sp...
24.07.2014 20:01:30
Thread-ID: 1372194
6 Beiträge
Alle nicht leeren Zellen der Spalte C markieren
Marco

Hallo,
in der Spalte C befinden sich unter einander weg Zahlenwerte. ich möchte nun alle Zellen dieser Spalte markieren, die nicht leer sind.
Kann mir Jemand helfen?
Vielen Dank im Voraus.
LG Marco
31.07.2014 08:02:24
Thread-ID: 1373282
4 Beiträge
nicht farbige Zellen - Zeile ausblenden
Andreas

Hallo,
ich bräuchte bitte eure Hilfe!
Ich habe eine große Tabelle (11Spalten - 180234 Zeilen!) wo einige Zellen mit unterschiedlichen Farben markiert sind.
Nun möchte ich dass diese Zeilen, wo eine Zelle farblich gekennzeichnet ist, entweder kopiert und in eine neue Tabelle eingefü...
28.04.2015 09:02:00
Thread-ID: 1423419
4 Beiträge
Nach Zellen Farbe suchen
Falo

Hallo,
ich habe eine Tabelle, wo alle Duplikate einen Roten Zellen Hintergrund haben. ich möchte mit einer Hilfs Spalte das alle Roten Zeilen z.b. in "G" eine eins steht
könnt Ihr mir einen Tipp geben
LG
Olaf
19.05.2016 17:40:53
Thread-ID: 1494301
10 Beiträge
Nach Zellen Farbe suchen
Falo

Hallo,
ich habe eine Tabelle, wo alle Duplikate einen Roten Zellen Hintergrund haben. ich möchte mit einer Hilfs Spalte das alle Roten Zeilen z.b. in "G" eine eins steht
könnt Ihr mir einen Tipp geben
LG
Olaf
19.05.2016 17:41:01
Thread-ID: 1494302
2 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
2
5
2
3
21
5
3
3
9
1
2
5
12
7
5
1
4
5
1
11
6
7
7
2
1