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
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach gleiche Zellen suchen und einfärben

Nach gleiche Zellen suchen und einfärben
01.06.2006 16:46:34
Kay
Hallo,
ich versuche verzweifelt in einer automatisch erzeugten Tabelle in der Spalte A nach gleichen Zellen zu suchen und dann die ganze Zeile mit der selben Farbe einzufärben.
Das heißt, jede gleiche Positionsnummer in der Spalte soll eine eindeutige Farbe bekommen, die am besten mit RGB und Zufallsgenerator erzeugt wird, da ich nie weiß wieviel Zeilen es gibt.
Kann mir da einer helfen?
Hier meine Tabelle mit Modul (bestimmt ne Katastrophe :-) )
https://www.herber.de/bbs/user/34085.xls
mfg
Kay

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach gleiche Zellen suchen und einfärben
01.06.2006 18:15:54
Franz
Hallo Kay,
habe deinen Code mal etwas umgestrickt. :-)

Sub colourieren()
Dim iRow1 As Long, iRow2 As Long, iRowL As Long
Dim col As Integer
Dim col2 As Integer
Dim col3 As Integer
Dim icolor as Integer
Dim SpalteA() As Boolean
iRowL = WorksheetFunction.CountA(Columns(1))
ReDim SpalteA(1 To iRowL)
icolor = 2
For iRow1 = 1 To iRowL
If Not SpalteA(iRow1) = True Then 'prüft ob Zeile bereits coloriert wurde
SpalteA(iRow1) = True
col = Int((255 - 0 + 1) * Rnd + 0)
col2 = Int((255 - 0 + 1) * Rnd + 0)
col3 = Int((255 - 0 + 1) * Rnd + 0)
Rows(iRow1).Interior.ColorIndex = icolor
'        Rows(iRow1).Interior.Color = RGB(col, col2, col3)
For iRow2 = iRow1 + 1 To iRowL
If Cells(iRow1, 1).Value = Cells(iRow2, 1) Then
SpalteA(iRow2) = True
If Cells(iRow1, 1).Value = "KW" Then
Cells(iRow1, 1).EntireRow.Interior.ColorIndex = 0
Cells(iRow1, 1).EntireRow.Font.Bold = True
Else
Rows(iRow2).Interior.ColorIndex = icolor
'             Rows(iRow2).Interior.Color = RGB(col, col2, col3)
End If
End If
Next iRow2
icolor = icolor + 1
If icolor = 40 Then icolor = 2
End If
Next iRow1
Range("A1").Select
End Sub

Du kannst dir ja noch einrichten, ob du die Farben per Zufallsgenerator als RGB wählst oder mit dem Colorindex arbeiten willst. Ich halte den Colorindex für günstiger als RGB, da sich das Farbschema nicht bei jedem Makrodurchlauf ändert. Und die ca. 40 Farben, die Colorindex ermöglicht sind ja auch schon ganz schön bunt.
Gruß
Franz
Anzeige
AW: Nach gleiche Zellen suchen und einfärben
06.06.2006 07:27:54
Kay
Hi Franz,
vielen Dank für deine Hilfe. Ein bißchen umgestrickt ist gut :-) !!
Klappt ja schon vorzüglich. Habe jetzt nur noch ein kleines Problem damit.
Wie bekomme ich das hin, das "nur" die doppelten Zeilen farbig werden? Jetzt ist es ja so, das jede Zeile farbig ist und die gleichen eben dieselbe Farbe haben. Ich würde mir eigentlich es so wünschen, dass nur die wirklich Doppelten farbig angemalt werden.
Wie baue ich es denn dann auch noch ein, das nicht nur nach der ersten Spalte verglichen wird, sondern auch noch nach spalte B und F?
Vielen Dank schon mal im Voraus.
mfg
Kay
Anzeige
AW: Nach gleiche Zellen suchen und einfärben
07.06.2006 12:06:38
Kay
Hallo Allerseits,
erst einmal Danke an Franz. Geht soweit schon mal super.
Jetzt wird nur leider der Ausdruck bei vielen Zeilen sehr unübersichtlich, da leider jeder Zeile eine Farbe bekommt. Lieb wäre mir, wenn nur die Zeilen farbig gemalt werden, die auch wirklich doppelt vorkommen. Das heißt, es müsste nicht die ganze Zeile gleich sein, sondern nur Spalte A,B und F, da die anderen Werte nie gleich sind.
Also noch mal zur Verständigung. Es sollen alle Zeilen farbig markiert werden, die in den Spalten A,B und F gleich sind, ausgenommen den Zeilen mit dem Text "KW" in Spalte A.
Ob der Franz mir da noch mal helfen kann ? :-)
mfg
Kay
Anzeige

300 Forumthreads zu ähnlichen Themen

Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige
teilstring suchen nachfolgende zellen nach links
maruseru

Hallo werte Profis
Ich konsolidiere zwangzig Arbeitsblätter mit je etwa 1000 Zeilen in ein Arbeitsblatt.
Leider haben vier der Arbeitsblätter jeweils eine Spalte mehr, dessen Inhalt ich nicht brache.
Nun möchte ich im konsolidierten Arbeitsblatt per Marko folgendes lösen:
Suche...
17.10.2008 12:26:00
Thread-ID: 1017118
11 Beiträge
Nach Zelleninhalt suchen und zurückgeben
Hans

Hallo,
Benötige für ein Makro folgende Funktionen
Suche ab der aktiven Zelle nach oben, die Spalten von B bis E nach folgendem Zelleninhalt durch.
Gesucht werden sollen nur die Zelleninhalte "Mat 01"; "Mat 02" usw. bis "Mat 15".
Wird z.B. als erstes der Wert "Mat 06" gefunden,...
23.10.2008 16:55:00
Thread-ID: 1018748
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
erste gefüllte Zelle finden
maart

Hallo,
ich möchte mittels Excel (kein VBA) in einem Bereich die erste gefüllte Zelle finden. Dies soll wie folgend umgesetzt werden:
Bereich A1:E1 beinhaltet eine gefüllte Zelle, bzw. es soll von A1 beginnend die erste gefüllte Zelle gefunden werden. Diese Zelle möchte ich in einer weit...
05.05.2009 19:18:34
Thread-ID: 1073175
4 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
4
2
10
2
2
15
9
7
4
3
3
19
2
7
3
1
10
2
2
4
1
7
5
19
6