Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
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
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autoform bedingte Formatierung

Forumthread: Autoform bedingte Formatierung

Autoform bedingte Formatierung
MarFe
Hallo Gemeinde,
habe ein Problem mit der bedingten Formatierung von Autoformen.
Ansatz: Wenn in Zelle "A1" der Wert "Auf" steht, soll die Autoform grün gefüllt werden und andersherum auf "Zu" mit rot gefüllt sein.
Das habe ich soweit hinbekommen (mit einem Makro aus diesem Forum), dass ich die Autoform anklicken muss und die Farbe ändert sich (zum Zellenbezug).
Wie bekomme ich das jetzt aber hin, dass sich die Farbe der Autoform sofort nach Eingabe in "A1" ändert?
Beispielbild:
Userbild
Schonmal DANKE!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Autoform bedingte Formatierung
27.02.2012 16:33:33
Rudi
Hallo,
schreib den Code in 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
'Code
End If
End Sub

Gruß
Rudi
AW: Autoform bedingte Formatierung
27.02.2012 16:34:21
Beverly
Hi,
versuche es mit diesem Code im Codemodul des Tabellenblattes: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "Auf"
ActiveSheet.Shapes("AutoShape 1").Fill.ForeColor.SchemeColor = 3
Case "Zu"
ActiveSheet.Shapes("AutoShape 1").Fill.ForeColor.SchemeColor = 10
End Select
End If
End Sub


Anzeige
AW: Autoform bedingte Formatierung
27.02.2012 19:48:33
MarFe
Irgendwie raff' ich es nicht :((
Klicke die Form rechts an, "Makro zuweisen", "Neu" und kopiere den Code von Beverly ins Modul1.
Leider funktioniert das aber nicht.
Könnt Ihr mir bitte dazu nochmal helfen?
Danke!
AW: Autoform bedingte Formatierung
27.02.2012 22:02:16
Beverly
Hi,
Rechtsklick auf den Reiter des Tabellenblattes -&gt Code anzeigen und den Code ins Codefenster des Tabellenblattes kopieren.

Anzeige
AW: Autoform bedingte Formatierung
28.02.2012 16:30:36
MarFe
Vielen vielen Dank, Beverly!!!
Hat so geklappt und funktioniert auch so wie ich es mir vorgestellt habe!
;

Forumthreads zu verwandten Themen

Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
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
Formel in bedingter Formatierung
ludicla

Hallo Profis,
ich möcht folgende "bedingte Formatierung2 umsetzen und krieg die Kurve nicht.
Ich hab in einer Zeile in diversen Feldern (nicht zusammenhängend) z. B. B1+B3+B5+B7
ein Maximum.
Nun möcht ich z. B. den Wert in B3 farbig markieren wenn er kleiner als 80 %
des Ma...
28.10.2008 11:54:23
Thread-ID: 1019875
6 Beiträge
Pfeilfarbe- und Bewegung abhängig von Zellwerten
Zellwerten

Hallo zusammen,
unter Online-FAQ bin ich über folgenden Code gestolpert.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub With Shapes("Autoform 1") If Range("A1").Value > Range("B1") Then .Rotation = 90# .Fill.ForeCol...
06.11.2008 20:47:00
Thread-ID: 1022428
8 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
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
Bedingte Formatierung und
Kurt

Guten Abend Zusammen,
habe diese bedingte Formatirieung:
=I14>="08:30" dann wird <b>dunkelblau.</b>
Damit habe ich leider auch alle 3 Bedingungen ausgeschöpft.
Nun möchte ich aber wenn ein U oder F drin steht die Zelle hellgrün wird.
Habe dies gefunden :
...
12.12.2008 17:36:00
Thread-ID: 1032482
17 Beiträge
Bedingte Formatierung mit Formeln beschränkt?
Vera

Hallo. Stoße gerade auf ein seltsames Phänomen:
wenn ich eine bedingte Formatierung auf ein Formelergebnis lege, klappt das gut. Das Formelergebnis habe ich dann runterkopiert - auch dann ist die bedingte Formatierung noch ok. Aber ab einer gewissen Anzahl Zeilen klappts dann nicht mehr.
16.01.2009 10:39:21
Thread-ID: 1040464
9 Beiträge
Bedingte Formatierung Formel
Karel

Hallo Forum,
Zellen werde durch bedingte markierung nach Minmale (Farbe ROT) und Maximale wert (Farbe Grun)markiert.
Wenn zelle Leer oder Inhalt wert NULL (0) Zelle werd GELB Markiert
mein Problem ist wenn Zelle Leer ist Funktioniert Min und Max .
Aber wenn Zelle inhalt Wert NU...
02.03.2009 16:37:10
Thread-ID: 1055657
5 Beiträge
Farbe von bedingte Formatierung übertragen
bedingte

Hallo,
Wie kann ich die Farbe von bedingte Formatierung von ZellBereich 2 übertagen nach ZellBereich 1
Hintergrund ist dass in Bereich 2 Prozentuelle anteilige Wert je Warengruppe (WGR) ausgerechnet wird.
Ich suche ein möglichkeit diese Farbe eins zu eins von Bereich 2 nach Bereic...
05.03.2009 12:14:23
Thread-ID: 1056767
3 Beiträge
Anzeige
Bedingter Formatierung Formel übergeben
Jeziro

Hallo,
Ich möchte via VBA eine bedingte Formatierung für eine Zelle erzeugen. Die bedingte Formatierung soll eine Formel zur Erzeugung der bedingten Formatierung heranziehen. Diese Formel greift auf einen Bereich zurück, der während der Routine berechnet wird. Ich habe den Abschnitt folgend...
25.05.2009 17:49:42
Thread-ID: 1077177
8 Beiträge
Formel für bedingte Formatierung
Ernst

Hallo Vba Experten !
Ich habe ein Problem und zwar habe in Range A8:A105 Schriftfarbe rot ich möchte nun wenn die jeweillige Nachbarzelle gefüllt ist das sich die Schriftfarbe auf grün Ändert.
wenn ich das einzeln mache funktioniert es einwandfrei. jedoch habe ich Probleme wenn ich da...
05.06.2009 12:40:30
Thread-ID: 1079430
6 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