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

mehrer Werte in Bereich suchen.

Forumthread: 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
Anzeige

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
Anzeige
;

Forumthreads zu verwandten 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
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
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
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
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
Anzeige
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
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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