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

Formel ColorIndex

Forumthread: Formel ColorIndex

Formel ColorIndex
Josef
Hallo!
Wenn ich in der Spalte G in der Tabelle1 einen ColorIndex 15 habe (Grau) möchte ich in der spalte B in der gleichen Zeile ein ü setzen.
=WENN(G2;ColorIndex=15;"ü") ?
Wie würde hier bitte eine funktionierende Formellösung lauten?
Danke
Josef
Anzeige
AW: Formel ColorIndex
hary
Hallo
wie kommt die Farbe in SpalteG.
Geht ME nur mit VBA oder einer UDF.
gruss hary
AW: Formel ColorIndex
Josef
Hallo!
Danke für Deine Antwort. Die Farbe wurde mittels einer bedingten Formatierung in die Spalte G eingetragen.
Josef
Dann benutze die Regel dieser
Renee
bedingten Formatierung um eine Formel zu konstruieren, Josef
GreetZ Renée
Anzeige
AW: Dann benutze die Regel dieser
Josef
Hallo Renee!
Wenn ich nur wüßte wo ich damit anfangen soll. Ein paar Tests habe ich gemacht. Aber allesamt waren für die Katz.
Josef
Dann zeig uns doch die Bedingung! (owT)
Renee

AW: Dann benutze die Regel dieser
hary
Hallo
so in etwa.
=wenn("hier die Formel der Regel";"ü";"")
gruss hary
Anzeige
AW: Dann benutze die Regel dieser
Josef
Hallo!
Hier wäre die Formel der bedingten Formatierung, wobei der Wert "hygiene" über eine Variable mittels VBA eingetragen wird.
siehe https://www.herber.de/forum/messages/1142579.html
=ODER(ZÄHLENWENN(G4232;"*hygiene*"))
Deswegen wollte ich das "ü" über den ColorIndex ermitteln.
Josef
Anzeige
Was soll ein ODER mit nur 1 Bedingung? (owt)
Renee

AW: Was soll ein ODER mit nur 1 Bedingung? (owt)
Josef
Normalerweise war die formel für drei abfragen gedacht. Deswegen ODER.
Nachdem mir bei einer Abfrage kein Fehler kam, ließ ich das ODER drinnen. Nehme ich es halt jetzt raus.
Danke
josef
Sorry ich bin raus "Würmer aus der Nase" (owT)
Renee

Anzeige
AW: Was soll ein ODER mit nur 1 Bedingung? (owt)
hary
Hallo
so?
Tabellenblattname: Tabelle1
 

B

C

D

E

F

G

4232

ü

 

 

 

 

aaahygiene


Benutzte Formeln:
B4232: =WENN(ZÄHLENWENN(G4232;"*hygiene*");"ü";"")
gruss hary
Anzeige
AW: Was soll ein ODER mit nur 1 Bedingung? (owt)
Josef
Hallo hary!
Danke nochmals für Deine Antwort. dies würde im Prinzip alles passen. Mein Problem ist jetzt jedoch noch, dass sich der Text jederzeit ändern kann. Also statt "hygiene" kann jetzt der Wert "kontrast" oder ein anderes Mal der Wert " Institut" usw. eingetragen sein.
Die Werte werden in einer Zelle in einem Tabellenblatt eingetragen über eine Variable mittels VBA wird dann die Bedingte Formel nach Markierung der Spalte G in diese eingetragen.
Aber Deine Lösung ist im Prinzip das was ich suchte.
Josef
Anzeige
AW: Was soll ein ODER mit nur 1 Bedingung? (owt)
Josef
Hallo hary!
So würde es glaube ich klappen:
=WENN(ZÄHLENWENN(G4;[Masterprog.xla]Tabelle1!$BE$1);"ü";"")
Einfach die Zelle mit dem Eintrag abfragen.
Danke, Du hast mir sehr geholfen.
Schöenen Tag noch.
Josef
AW: evtl auch...
hary
Hallo
...ungetestet in den Code. 

bereich.FormatConditions(1).Interior.ColorIndex = 15
bereich.offset(0,-7) = "ü"   'neu

gruss hary
Anzeige
AW: evtl auch...
Josef
Hallo hary!
Habe es gerade getestet.
Bekomme hier einen Fehler:
bereich.offset(0,-7) = Anwendungs-oder objektdefinierter Fehler
Josef
AW: evtl auch...
Josef
Hallo hary!
Mit
bereich.Offset(1, -5) = "ü" 'neu
wird das ü in der Spalte B jetzt eingetragen.
Aber leider in jeder Zeile. Ich nehme an, weil der Bereich abgefragt wird. Und der Bereich ist die ganze Spalte G.
Josef
Anzeige
AW: teste mal...
hary
Hallo Josef
versuchs mal so mit Schleife und einer neuen Variablen c. Ungeprueft da ich sonst die Mappen nachbauen muesste. 

Dim c As Range 'neue Variable
'------------ bis hier alter Code-----------
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(I2;""*" & wx & "*"");ZÄHLENWENN(I2;""*" & xy & "*"");ZÄHLENWENN(I2;""* _
_
" & yz & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
'----- Schleife für bereich einfügen, prueft ob im bereich die Zelle Zahl >0 hat  ---------- _
For Each c In bereich
If c > 0 Then c.Offset(0, -5) = "ü"
Next
'------------ ende Schleife ------------
End With
' ---------------weiter alter Code-------------

gruss hary
Anzeige
AW: teste mal...
Josef
Hallo hary!
Danke für diesen Lösungsvorschlag. Werde ihn gleich morgen früh in der FA. testen.
Melde mich morgen wieder.
Schönen Abend noch.
Josef
AW: teste mal...
Josef
Hallo hary!
Guten Morgen!
Konnte erst heute den Code testen. War erst heute in der Firma.
Es wird auch mit diesem Code in jeder Zeile im Bereich, also überall ein ü eingetragen.
Wahrscheinlich deshalb, weil es in der Spalte G in jeder Zeile einen Wert gibt.
'----- Schleife für bereich einfügen, prueft ob im bereich die Zelle Zahl >0 hat
Der gesuchte Wert soll ja in der Spalte G gefunden und markiert werden. und bei jedem gefundenen Wert sollte in der jeweiligen Zeile in der Spalte B ein ü eingetragen werden.
Josef
Anzeige
AW:mal mit instr
hary
Hallo
Hab mal mit Instr() gebastelt.
Hier als separates Makro fuer Deine Beispielmappe: 

Sub b()
Dim c As Range
Dim bereich As Range
Dim wks As Worksheet
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
For Each c In bereich
If InStr(c, "Grund")  0 Then c.Offset(0, -5) = "ü"
Next
End Sub

und hier mal ungetestet wegen fehlender 2.Mappe 

'----- Schleife für bereich einfügen, prueft ob im bereich die Zelle inhalt wx hat  ----------  _
_
For Each c In bereich
If InStr(c, wx)  0 Then c.Offset(0, -5) = "ü"
Next
'------------ ende Schleife ------------

gruss hary
Anzeige
AW: AW:mal mit instr
Josef
Hallo hary!
Guten Morgen. Danke für Deine Rückantwort.
Bin jetzt den Test mit folgendem Makro gefahren:
Sub BedingtesFormat_KapitelG_1()
Dim wx
Dim wx1
Dim c As Range 'neue Variable
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
wx = wks.Range("BE1")
wx1 = wks.Range("BE2")
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(G2;""*" & wx & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
For Each c In bereich
If InStr(c, wx)  0 Then c.Offset(0, -5) = "ü"
Next
End With
End Sub

Eingetragen wurde jetzt schon mal in der Zelle B2 ein ü. In den restlichen Zellen in der Spalte B blieb bei einem gefundenen Wert "grund" alles leer.
Josef
Anzeige
AW: AW:leider ein Irrtum
Josef
Hallo hary!
War kein Eintrag, war der alte Eintrag über eine Formel.
Josef
AW: AW:leider ein Irrtum
Josef
Hallo hary!
Auch mit folgendem Makro kein Eintrag in Spalte B.
Neu ist wx2 = "BE3"
"BE3" wäre "Grund" mit den Anführungszeichen
Sub BedingtesFormat_KapitelG_1()
Dim wx
Dim wx1
Dim wx2
Dim c As Range 'neue Variable
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
wx = wks.Range("BE1")
wx1 = wks.Range("BE2")
wx2 = wks.Range("BE3")
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(G2;""*" & wx & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
For Each c In bereich
If InStr(c, wx2)  0 Then c.Offset(0, -5) = "ü"
Next
End With
End Sub

Josef
Anzeige
AW: mmh
hary
Moin
hier mal mit 2 Makros, ausfuehren durch Button. Evtl. liegt's an der gross und kleinschreibung.
https://www.herber.de/bbs/user/68370.xls
gruss hary
Ansonsten werde ich heute Nachmittag mal beide Mappen nachbauen und es dann nochmal versuchen.
Ich kann ja nur vom Beispiel ausgehen.
Anzeige
AW: mmh
Josef
Hallo hary!
Habe es jetzt mit Deinem 1. Makro Beispiel versucht:
Siehe Makro " 

Sub Kapitel_G_SpalteB_1() weiter unten.


Sub BedingtesFormat_KapitelG_1()
Dim wx
Dim wx1
Dim c As Range 'neue Variable
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
wx = wks.Range("BE1")
wx1 = wks.Range("BE2")
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(G2;""*" & wx & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
End With
Call Kapitel_G_SpalteB_1
End Sub




Sub Kapitel_G_SpalteB_1()
Dim c As Range
Dim bereich As Range
Dim wks As Worksheet
Dim wx2
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
wx2 = wks.Range("BE3")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
For Each c In bereich
If InStr(c, wx2)  0 Then c.Offset(0, -5) = "ü"
Next
End Sub


Mit Deinem Makro mit der Zeile If InStr(c, "Grund")  0 Then c.Offset(0, -5) = "ü"

würde es funktionieren.

Mit meinem Umbau nicht:

If InStr(c, wx2)  0 Then c.Offset(0, -5) = "ü"

Warum eigentlich nicht. Jetzt sollte ja eigentlich alles nur mehr von einem kleinen Fehler abhängen. Habe ich die Variable falsch angelegt?

Josef
Anzeige
AW: mmh
Josef
Hallo hary!
Ich glaube, dank Deiner letzten Meldung weiss ich jetzt woran es liegt.
Gebe ich in der UserForm "Grund" (ohne Anführungszeichen) ein dann passt alles. Gebe ich den "grund" klein geschrieben ein, dann gibt es keinen Eintrag. Es wäre aber mit *Wildcard* für mich wichtig, da es ja diese Werte manchmal auch zwischen den Wörten zu finden gibt.
Sub BedingtesFormat_KapitelG_1()
Dim wx
Dim wx1
Dim c As Range 'neue Variable
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
wx = wks.Range("BE1")
wx1 = wks.Range("BE2")
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(G2;""*" & wx & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
End With
Call Kapitel_G_SpalteB_1
End Sub


Sub Kapitel_G_SpalteB_1()
Dim c As Range
Dim bereich As Range
Dim wks As Worksheet
Dim wx
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
wx = wks.Range("BE1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
For Each c In bereich
If InStr(c, wx)  0 Then c.Offset(0, -5) = "ü"
Next
End Sub

Josef
Anzeige
AW: mmh
hary
Hallo
Mit Ucase wandelt man den Text in Grossbuchstaben um. Also Zellinhalt und Suchtext wird in Grossbuchstaben(nur im Code) umgewandelt.
https://www.herber.de/bbs/user/68373.xls
gruss hary
AW: mmh
Josef
Hallo hary!
So gelingt es jetzt mit einem Suchbegriff in der TextBox2:
Sub BedingtesFormat_KapitelG_1()
Dim wx
Dim wx1
Dim c As Range 'neue Variable
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim bereich As Range
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
Set wks1 = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
wx = wks.Range("BE1")
wx1 = wks.Range("BE2")
With wks1
bereich.FormatConditions.Delete
bereich.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(G2;""*" & wx & "*""))"
bereich.FormatConditions(1).Interior.ColorIndex = 15
End With
Call Kapitel_G_SpalteB_1
End Sub


Sub Kapitel_G_SpalteB_1()
Dim c As Range
Dim bereich As Range
Dim wks As Worksheet
Dim wx
Set wks = Workbooks("Masterprog.xla").Worksheets("Tabelle1")
wx = wks.Range("BE1")
Set bereich = ActiveSheet.Range("G2:G" & ActiveSheet.Range("A65536").End(xlUp).Row)
For Each c In bereich
'If InStr(c, wx)  0 Then c.Offset(0, -5) = "ü"
If InStr(UCase(c), UCase(wx))  0 Then c.Offset(0, -5) = "ü"
Next
End Sub

Wenn ich das Ganze jetzt noch auf die zwei anderen Suchbegriffe, also insgesamt 3 lösen könnte, wäre es super.
Du hast mir auf jeden Fall mit Deiner Lösung sehr geholfen. Dafür möchte ich Dir jetzt nochmals herzlich danken.
Josef
Anzeige
AW: mit drei
hary
Hallo
dann verbinde diese mit Or. Hier mal Beispiel mit 2 Vergleichen. Begriffe in Spalten 11 und 10. 

If InStr(UCase(c), UCase(Cells(1, 11)))  0 Or InStr(UCase(c), UCase(Cells(1, 10)))  0 Then  _
c.Offset(0, -5) = "ü"

gruss hary
AW: mit drei
Josef
Hallo hary!
Danke nochmals für Deine Hilfe und Deine Geduld. Jetzt passt alles.
Josef
Anzeige
;

Forumthreads zu verwandten Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Listenbox - Einträge bedingt farblich formatieren
Frank

Hallo Excelfreunde!!!
Ich hoffe dass jemand für meine Frage eine Antwort parat hat, besser gesagt für 2 Fragen!!!
In einem Listenfeld auf einer UserForm lasse ich mir alle Suchtreffer anzeigen. In der Listenbox befinden sich zwei Spalten! Nun möchte ich gern für die Optik, wenn der Name...
23.08.2008 08:21:47
Thread-ID: 1004070
4 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Anzeige
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
Formelsuche Zelleninhalt trennen
Christian

Hallo,
ich bräuchte 3 Formel die mir einen Zelleninhalt trennen
...habs nie so mit der Finden-formel :-)
Zelleneintrag in A1 : 6 / 0  (6)
soll getrennt werden
B1:6
C1:0
D1:6
Es gibt nie Leereinträge!
Danke für Hilfe
06.10.2008 10:21:22
Thread-ID: 1014349
3 Beiträge
Anzeige
Before print Ereignis nach Seitenvorschau verhinde
Ingo

Hallo zusammen,
wie kann ich verhindern, dass das Before print Ereignis , schon nach Klick auf den Button Seitenansicht ausgelöst wird. Es soll es dann kommen, wenn der Anwender tatsächlich einenechten Druckbefehl abgesetzt hat.
mfG
Ingo Christiansen
08.10.2008 10:10:08
Thread-ID: 1014916
2 Beiträge
Wahrscheinlichkeitsformel
MikeS

Hallo Leute,
mit der Funktion WAHRSCHBEREICH zur Berechnung der Wahrscheinlichkeit komme ich nicht wirklich weiter. Ich möchte berechnen, wie groß die Wahrscheinlichkeit ist, daß ich mein Ziel erreiche.
Vergangenheit = 5
Aktuell = 8
Ziel = 12
Bitte um Hilfe. Vielen Dank.
...
14.10.2008 15:32:59
Thread-ID: 1016373
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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