Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrer Werte in Bereich suchen.

mehrer Werte in Bereich suchen.
28.06.2004 01:14:16
Thomas
Hallo Leute.
Ich möchte im Bereich F10:T40 einer Tabelle 4 festgelegte Werte suchen, das sind A1, A2, A3 und A4.
Diese Werte können bis zu 3x vorkommen, aber auch gar nicht.
Die Zellen mit diesen Werten sollen dann unterschiedliche Schriftfarben bekommen, alos A1 soll dann rot werden, A2 grün, A3 blau und A4 gelb.
Gibts da ne schnelle, kurze VBA-Lösung?
Bedingte Formatierung funzt ja leider nicht, da es um 4 Werte geht.
MfG
Thomas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrer Werte in Bereich suchen.
WernerB.
Hallo Thomas,
was hältst Du hiervon?

Sub Thomas()
Dim c As Range
Application.ScreenUpdating = False
Range("F10:T40").Font.ColorIndex = 0
For Each c In Range("F10:T40")
If c.Text = Range("A1").Text Then
c.Font.ColorIndex = 3
ElseIf c.Text = Range("A2").Text Then
c.Font.ColorIndex = 10
ElseIf c.Text = Range("A3").Text Then
c.Font.ColorIndex = 5
ElseIf c.Text = Range("A4").Text Then
c.Font.ColorIndex = 6
End If
Next c
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: mehrer Werte in Bereich suchen.
Josef
Hallo Thomas!
Füge einen CommandButton ein und weise ihm diesen Code zu.

Private Sub CommandButton1_Click()
Dim rngC As Range
Dim rngBereich As Range
Dim intC As Integer
Dim vFind As Variant
Dim vColor() As Variant
Dim sfirst As String
vColor = Array(3, 4, 5, 6)              'Farben rot, grün, blau, gelb
Set rngBereich = Range("F10:T40")       'Suchbereich
rngBereich.Interior.ColorIndex = xlNone 'Farbe zurücksetzen
vFind = Range("A1:A4")                  'Array der Suchbegriffe
For intC = 1 To 4
Set rngC = rngBereich.Find(What:=vFind(intC, 1), _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rngC Is Nothing Then
sfirst = rngC.Address
rngC.Interior.ColorIndex = vColor(intC - 1) 'Hintergrundfarbe zuweisen
Do
Set rngC = rngBereich.FindNext(after:=rngC) 'Suche nach weiteren Fundstellen
If Not rngC Is Nothing Then
If rngC.Address = sfirst Then Exit Do
rngC.Interior.ColorIndex = vColor(intC - 1) 'Hintergrundfarbe zuweisen
End If
Loop
End If
sfirst = ""
Set rngC = Nothing
Next
Set rngBereich = Nothing
Set rngC = Nothing
End Sub

Gruß Sepp
Anzeige
Du wolltest ja die Schriftfarbe ändern...
Josef
...dann muss es so heisen!

Private Sub CommandButton1_Click()
Dim rngC As Range
Dim rngBereich As Range
Dim intC As Integer
Dim vFind As Variant
Dim vColor() As Variant
Dim sfirst As String
vColor = Array(3, 4, 5, 6)                  'Farbenarray - rot, grün, blau, gelb
Set rngBereich = Range("F10:T40")           'Suchbereich
rngBereich.Font.ColorIndex = xlAutomatic    'Schriftfarbe zurücksetzen
vFind = Range("A1:A4")                      'Array der Suchbegriffe
For intC = 1 To 4
Set rngC = rngBereich.Find(What:=vFind(intC, 1), _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rngC Is Nothing Then
sfirst = rngC.Address
rngC.Font.ColorIndex = vColor(intC - 1) 'Schriftfarbe zuweisen
Do
Set rngC = rngBereich.FindNext(after:=rngC) 'Suche nach weiteren Fundstellen
If Not rngC Is Nothing Then
If rngC.Address = sfirst Then Exit Do
rngC.Font.ColorIndex = vColor(intC - 1) 'Schriftfarbe zuweisen
End If
Loop
End If
sfirst = ""
Set rngC = Nothing
Next
Set rngBereich = Nothing
Set rngC = Nothing
End Sub

Gruß Sepp
Anzeige
AW: mehrer Werte in Bereich suchen.
28.06.2004 08:31:08
Uwe
Hallo Thomas,
hier mein Vorschlag:

Sub ZellenFaerben()
Dim varWert(1 To 4)
Dim byteZ As Byte
Dim byteCol As Byte
Dim rngBereich As Range
Dim rngZelle As Range
For byteZ = 1 To 4
varWert(byteZ) = Cells(byteZ, 1)
Next byteZ
Set rngBereich = Range("F10:T40")
rngBereich.Font.ColorIndex = xlAutomatic
For Each rngZelle In rngBereich.Cells
For byteZ = 1 To 4
If rngZelle = varWert(byteZ) Then
rngZelle.Font.ColorIndex = Choose(byteZ, 3, 4, 5, 6)
Exit For
End If
Next byteZ
Next rngZelle
End Sub

Gruß Uwe

308 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
3
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6