Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
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
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung per VBA

Bedingte Formatierung per VBA
13.04.2018 11:31:57
Domi
Hallo Liebes Forum,
bis jetzt war ich immer nur passiver Leser aber jetzt habe ich zum ersten mal keine Lösung für mein Problem gefunden.
Ich habe eine bedingte Formatierung (BF) via VBA: (ausschnitt aus dem Code) 

With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If Application.Intersect(Range("H:H"), Target) Is Nothing Then Exit Sub
If .Value

In Spalte H ist eine Simple Multiplikation mit einer Formel hinterlegt:
=WENN(G22*F220;G22*F22;"")
wenn jetzt die Formel einen Wert ausspuckt greift die BF nicht automatisch. Das funktioniert nur wenn ich per Mauspull die Formel für die Zeile "aktualisiere".
Was mach ich falsch?
Danke im Voraus für eure Hilfe
LG Domi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung per VBA
13.04.2018 11:39:44
EtoPHG
Hallo,
Bitte: Immer vollständigen Code!
Die Helfer stochern ungern im Nebel!
Ziemlich sicher benutzt du das _Change Ereignis. Das wird nur bei manueller Zelländerung angestossen. Änderungen der Zellinhalte durch Formeln kannst du theoretisch nur im _Calculate Ereignis 'abfangen', oder du beobachtest Zellen die durch manuelle Änderung, die Formelresultate beieinflussen!
Gruess Hansueli
AW: Bedingte Formatierung per VBA
13.04.2018 12:10:32
Domi
Sorry,
Korrekt ich habe mit dem _Change Eregnis gearbeitet.
Zur Eingabe: Ich nutze in Spalte F (6) und G (7) Manuelle Eingaben und in H wie gesagt die Formel.
Brauche ich dann zwei verschiedene Subs?
Danke für deine Hilfe!
Hier der volsltändige Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = xlNone
End Select
End If
If Target.Column = 7 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
End Select
End If
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If Application.Intersect(Range("H:H"), Target) Is Nothing Then Exit Sub
If .Value

Anzeige
...und in H wie gesagt die Formel. Zeig sie! (owT)
13.04.2018 13:48:51
EtoPHG

AW: ...und in H wie gesagt die Formel. Zeig sie! (owT)
13.04.2018 13:59:57
Domi
Ich glaube ich komme mit der Art des Forums nicht so ganz klar :D sorry,
Die Formel hab ich im ersten Beitrag geschrieben. Also nochmal hier Code und Formel: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 6), Cells(Target.Row, 6)).Interior.ColorIndex = xlNone
End Select
End If
If Target.Column = 7 Then
Select Case Target.Value
Case "1": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 43
Case "2": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 44
Case "3": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 45
Case "4": Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = 9
Case Else: Range(Cells(Target.Row, 7), Cells(Target.Row, 7)).Interior.ColorIndex = xlNone
End Select
End If
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If Application.Intersect(Range("H:H"), Target) Is Nothing Then Exit Sub
If .Value
Formel in Spalte H (Zeile 51): =WENN(G51*F510;G51*F51;"")
Und das Problem ist, dass in Spalte F & G bei manueller Eingabe zwar die Richtige Farbe hinterlegt wird, aber bei der Formel in Spalte H nur das Ergebnis und nicht automatisch auch die Farbe hinterlegt wird.
Anzeige
AW: ...und in H wie gesagt die Formel. Zeig sie! (owT)
13.04.2018 15:24:43
EtoPHG
Hallo Domi,
Entschuldige, aber ich hab in der Eile deine Formel übersehen.
Also, dieser Code sollte eigentlich Deine Bedürfnisse abdecken: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cWithFormula As Range
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 Or Target.Column = 7 Then
Select Case Target
Case 1: Target.Interior.ColorIndex = 43
Case 2: Target.Interior.ColorIndex = 44
Case 3: Target.Interior.ColorIndex = 45
Case 4: Target.Interior.ColorIndex = 9
Case Else: Target.Interior.ColorIndex = xlNone
End Select
Set cWithFormula = Target.Offset(, IIf(Target.Column = 6, 2, 1))
Select Case cWithFormula
Case Is
Gruess Hansueli
Anzeige
AW: ...und in H wie gesagt die Formel. Zeig sie! (owT)
16.04.2018 08:53:13
Domi
Klasse funktioniert wie vorhergesagt. Wenn du die Zeit findest könntest du mir die eine Zeile erklären? 
Set cWithFormula = Target.Offset(, IIf(Target.Column = 6, 2, 1))
Ansonsten vielen Dank für deine Hilfe!! (Chef zufriedengestellt :P)
Beste grüße aus Bayern
Domi
AW: ...und in H wie gesagt die Formel. Zeig sie! (owT)
16.04.2018 11:32:58
EtoPHG
Hallo Domi,
Die Codezeile macht folgendes:
Sie setzt die Zelle in der sich die Formel befindet, je in welcher Spalte die Eingabe erfolgte, d.h. Eingabe in F (Spalte 6), dann 2 Spalten nach rechts, sonst eine Spalte nach rechts.
Gruess Hansueli
AW: ...und in H wie gesagt die Formel. Zeig sie! (owT)
16.04.2018 15:18:39
Domi
Hey Hansueli,
nochmals 1000 Dank.. da wäre ich im Leben nicht drauf gekommen :D
schönen Tag noch und bis zum nächsten Problem.
LG Domi
Anzeige

305 Forumthreads zu ähnlichen Themen

bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Anzeige
Bedingte formatierung mit Wenn
kdl

Hallo, ich freue mich dieses Forum gefunden zu haben. An Hand eurer Beiträge konnte ich schon einiges dazulernen. In der letzten Zeit habe ich mich damit beschäftigt mit Excel zu zeichnen, über bedingte Formatierung (Rahmen zu weisen) erstelle ich die Draufsicht einer Arbeitsplatte.
Meine e...
12.09.2008 14:06:00
Thread-ID: 1009364
2 Beiträge
Bedingte Formatierung mit Bereich
Burghard

Hallo,
ich habe einen Fotokalender gebastelt (für jeden Monat ein Blatt).
Das Jahr läßt sich im 1. Tabellenblatt in Zelle A1 einstellen. Alle anderen Tabellenblätter ändern sich entsprechend.
In den Monaten habe ich verschiedene Bereiche mit einer bedingten Formatierung versehen, um...
05.10.2008 16:09:12
Thread-ID: 1014259
6 Beiträge
Anzeige
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Bedingten Formatierung mit MIN; gr. als Mittelwert
Eva

Hallo,
ich habe ein Problem mit einer Bedingten Formatierung.
Ich möchte mir in mehreren Zeilen die MIN Were grün anzeigen lassen und die Werte, welche größer oder gleich dem Durchschnitt sind rot. Leider haut es so gut wie nie in den Zeilen hin. Oft markiert er nur eine Zelle, die ande...
18.12.2008 16:01:00
Thread-ID: 1033913
7 Beiträge
Formatierung mit in die Formel einarbeiten
Jochen

Hallo,
habe folgende Formel:
=WENN(A8"";VERKETTEN(SVERWEIS(A8;B2:E5;2;FALSCH);ZEICHEN(10);SVERWEIS(A8;B2:E5;3;FALSCH);" / "; SVERWEIS(A8;B2:E5;4;FALSCH));"") .
Diese Formel verkettet "Name" - "Vorname" - "/" und eine weitere "Bezeichnung" miteinander.
Die Zelle ist Fett und Schr...
12.01.2009 10:57:00
Thread-ID: 1038800
4 Beiträge
Anzeige

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
1
5
1
5
7
6
6
19
6
3
8
5
2
2
7
3
4
1
3
7
4
6
2
7
7