Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
AW: evtl auch...
hary
Hallo
...ungetestet in den Code. 

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

gruss hary
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
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.
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
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
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

300 Forumthreads zu ähnlichen 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
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
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
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 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
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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