Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Felder farbig wenn Formel

Forumthread: Alle Felder farbig wenn Formel

Alle Felder farbig wenn Formel
02.03.2007 06:01:06
Fritz
Hallo,
ich suche nach einer Möglichkeit, alle markierten Felder mit gelbem Hintergrund zu formatieren,
sofern in der Zelle eine Formel steht (=1+3; =Summe(.., =teil(.., =2+3, etc.)
Geht das?
Danke für eine Antwort
Fritz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Felder farbig wenn Formel
02.03.2007 06:51:00
Hans
Hallo Fritz,
füge den nachfolgenden Code in das Klassenmodul der Arbeitsblattes ein: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlColorIndexNone
For Each rng In Target.Cells
If rng.HasFormula Then
rng.Interior.ColorIndex = 36
End If
Next rng
End Sub
Gruss hans
Anzeige
AW: Alle Felder farbig wenn Formel
02.03.2007 07:38:44
Fritz
Hallo Hans,
besten Dank es funktioniert, bloss ...
ich hätte gerne, das diese Formatierung so bleibt, bzw. das ich mittels eines Befehles,
diese Felder gelb für fix (bestehend) hinterlegen kann.
Ich benötige dies um nach evtl. Fehlern in einer Tabelle zu suchen.
Dieses Makro würde ich eh in meine MakroSammlung (Add-in) legen.
Besten Dank
Fritz
Anzeige
AW: Alle Felder farbig wenn Formel
02.03.2007 07:48:02
Hans
Hallo Fritz,
die nachfolgende Prozedur schaltet zwischen Markierung und Nichtmarkierung um: 
Sub MarkFormulasEinAus()
Dim rng As Range
Dim iColor As Integer
For Each rng In ActiveSheet.UsedRange
If rng.HasFormula Then
If rng.Interior.ColorIndex = 36 Then
iColor = -4142
Else
iColor = 36
End If
Exit For
End If
Next rng
For Each rng In ActiveSheet.UsedRange
If rng.HasFormula Then rng.Interior.ColorIndex = iColor
Next rng
End Sub
Gruss hans
Anzeige
;

Forumthreads zu verwandten Themen

Zellen farblich Markieren
Hans

Hallo Leute,
Mit den beiden Codes markiere ich bestimmte Zellen farbig (hellgelb, bzw. hellgrau), was auch funktioniert. Allerdings muss ich die Farben im Code festlegen, was ich eigentlich nicht möchte. Ist es möglich die Farbe aus bestimmten Zellen auszulesen und diese per Code einzutrag...
12.10.2008 12:08:00
Thread-ID: 1015830
7 Beiträge
Summe von je einem Wert von Mehrfachwerten
je

Hallo Profis,
ich bräuchte dringend Eure Hilfe.
Ich müßte in einer Reporting-Tabelle, gefüllt mit Mieterndaten (diese sind als Debitor angelegt), von Mehrfachwerten pro Mieter immer nur mit einen Wert die Summe und nach Möglichkeit auch das Teilergebnis bei Filterung ermitteln.
Als...
28.12.2008 00:09:35
Thread-ID: 1035508
9 Beiträge
Anzeige
Zellen kopieren wenn 2 werte stimmen
Andreas

hallo zusammen
ich habe ein problem an welchem ich bereits länger übe. aus einer datenbank möchte ich bestimmte werte in eine liste in einem anderen tabellenblatt einlesen.
vom ablauf her siehts so aus: wenn datum und nr aus der datenbank mit den werten im tabellenblatt "einladung" über...
28.01.2009 19:27:20
Thread-ID: 1044683
3 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Wertkopie wenn Zelle bestimmte Formel enthält
Marc

Hallo.
Ich brauche ein Makro, welches ein Arbeitsblatt Zelle für Zelle durchsucht und in Zellen, in denen Formeln mit =DBR, =DBS stehen eine Wertekopie der Zelle macht. Alle anderen Formeln etc. sollen so bleiben wie sie sind. Problem ist, es kann auch sein, dass z.B. eine wenn-Formel diese...
17.03.2009 15:28:17
Thread-ID: 1061136
3 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Zelle farblich wenn in zeile Wert MIN
PointOfView

Einen schönen guten Tag,
ich hoffe mir kann jemand helfen. Im Forum "Clever-Forum" habe ich´s schon mal versucht, bin jedoch kläglich gescheitert. Daher bitte nicht auf Crossposting hinweisen. Hab mich da wieder abgemeldet.
Ich habe eine Tabelle mit reichlich Spalten (kann bis Spalte "I...
17.04.2009 16:39:45
Thread-ID: 1069342
11 Beiträge
Anzeige
In Spalte leere Zelle erkennen /farblich markieren
Joachim

Hi,
ich mal wieder: ich lese Daten in mein Tabellenblatt "DATEN" ein. Dann möchte ich überprüfen, ob es in der Spalte B irgendwo eine Zelle gibt , die leer ist. Den Range des Datenbereichs ermittle ich so:
lngRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Range("B10:B"...
21.04.2009 08:56:19
Thread-ID: 1069952
17 Beiträge
Anzeige
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Wert berechnen auch wenn in Zelle nichts steht
Sascha

Hallo,
ich habe in Spalte A die Einnahmen zu stehen, in Spalte B die Ausgaben und möchte mir in der Spalte C den Bestand anzeigen lassen. Nun möchte ich aber nur dann einen Wert anzeigen lassen, wenn in einer Zelle A? oder Zelle B? etwas eingetragen wird. Dieses Problem löse ich mit folgend...
13.05.2009 11:30:47
Thread-ID: 1074765
11 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige