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
476to480
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Bedingte Formatierung - Formel auslesen

VBA: Bedingte Formatierung - Formel auslesen
01.09.2004 19:01:35
Boris
Hi Leute,
in A1 ist eine bedingte Formatierung hinterlegt:
Formel ist:
=WOCHENTAG(A1;2)>5
Jetzt möchte ich diese Formel per VBA auslesen. Allerdings scheint es dabei notwendig zu sein, die Zelle A1 auch zu selektieren, da es sonst aufgrund der relativen Zellengabe in der bedingten Formatierung auch zu nem relativen Ergebnis kommt...Warum nur?

Sub test()
[a1].Select
MsgBox [a1].FormatConditions(1).Formula1 'ergibt =WOCHENTAG(A1;2)>5
[z100].Select
MsgBox [a1].FormatConditions(1).Formula1 'ergibt =WOCHENTAG(Z100;2)>5, obwohl ich [a1] voranstelle
End Sub

Also spielt die Referenz für die FormatConditions (hier: [a1]) dabei wohl überhaupt keine Rolle?!? Kann mir das jemand kurz erläutern?
Grüße Boris
AW: VBA: Bedingte Formatierung - Formel auslesen
FP
Hi Boris,
probier statt [a1].FormatConditions(1)....
Range("A1").FormatConditions(1).Formula1
... und schon paßt wieder alles ;-)
Servus aus dem Salzkammergut
Franz
AW: VBA: Bedingte Formatierung - Formel auslesen
Ulf
Das hast du aber jetzt nur mal so ins Blaue geschrieben, oder?
Ulf
AW: VBA: Bedingte Formatierung - Formel auslesen
FP
Hi Ulf,
bin gerade sprachlos :-o
aktive Zelle c2 enthält keine bedingte Formatierung !
a10 die bedingte Formatierung von Boris
debug.print Range("a10").FormatConditions(1).formula1
Antwort: =WOCHENTAG(C2;2)&gt5
d.h. das wäre die bedingte Formatierung in C2, falls C2 eine bedingte Formatierung enthalten würde
der Befehl
debug.print Range("a100").FormatConditions(1).formula1
verursacht einen Fehler, da A100 keine Bedingte Formatierung enthält ( ist soweit ja logisch )
Aber, warum wandelt VBA die bedingte Formatierung der Range-Angabe in die entsprechende bedingte Formatierung der gerade aktiven Zelle um ?
Sehr verwirrtes
Servus aus dem Salzkammergut
Franz
Anzeige
AW: VBA: Bedingte Formatierung - Formel auslesen
K.Rola
Hallo,
das ist doch die Grundlage, auf der das Übertragen von Formaten per Formatpinsel über-
haupt erst möglich ist, denk mal drüber nach.
Gruß K.Rola
Schön, dass ich nicht alleine verwirrt war...;-)
Boris
Hi Franz,
...aber K.Rola hat die - zumindest für mich - logische Erklärung geliefert.
Ich habe auch dort direkt die Folgefrage deponiert.
Danke und Grüße
Boris
AW: VBA: Bedingte Formatierung - Formel auslesen
ypsilon
hi Boris,
da hast du dir ja ein hübsches thema ausgesucht ;-)
kennst du das schon ?
http://home.media-n.de/ziplies/gepackt/fremd/bedingte_form_auslesen.zip
ansonsten nepumuk (ist momentan der einzige der mir so einfällt *grins*) mal direkt ansprechen (gib mal deine erkenntnisse in verständlicher form weiter)
cu Micha
Anzeige
AW: VBA: Bedingte Formatierung - Formel auslesen
K.Rola
Hallo,
hast du das mal gestestet? Ist vom Ansatz her schon falsch, weil Evaluate generell
nur mit englischen Formeln zurechtkommt. Wenn die Syntax der deutschen Formel zufällig
mit der der englischen übereinstimmt, klappts natürlich genauso zufällig.
Gruß K.Rola
AW: VBA: Bedingte Formatierung - Formel auslesen
yps
hi L.Vira
nö, ist ungetestet
nur durch zufall (Hajo treibt sich ja hier scheinbar nicht mehr rum) gefunden und an Boris weitergegeben
wenn das sowieso jetzt sein hobby wird ist es doch schön wenn wenigstens einer mir in verständlicher form erklären kann wie das funktioniert :-)
cu Micha
AW: VBA: Bedingte Formatierung - Formel auslesen
Boris
Hi Micha,
Hajo treibt sich ja hier scheinbar nicht mehr rum
Schau dir die Antworten einer gewissen Annett mal genauer an.
Irgendwie erinnern die mich sehr stark an Hajo... :p
Grüße Boris
Anzeige
Danke, aber...
Boris
Hi Micha,
...mir ging es hier mal wieder - wie sooft - nur um das Prinzip. Ich möchte die Dinge einfach kapieren. Diese Frage entstand aus einem heutigen Beitrag "Evaluate", weil ich damit noch ein wenig experimentiert hatte.
Danke und Grüße
Boris
AW: VBA: Bedingte Formatierung - Formel auslesen
01.09.2004 20:49:47
Christoph
Hi Boris,
ich hab's mal eben bei XP-probiert. Das gibt's das gleiche Phänomen. Allerdings wird bei bedingter Formatierung mit absoluten Zellbezug, die richtige Formel ausgegeben.
"=WOCHENTAG($A$2; 2) Ich kann mir das nur so vorstellen, dass beim Ausführen des Codes die Formel mit relativem Zellbezug auf die gerade selektierte Zelle interpretiert, bzw. berechnet wird.
übrigens wird bei dem folgenden Code der realtive Zellbezug falsch gesetzt, wenn nicht die Zelle "A2" selektiert ist:
Sub OhneSelect()
With Range("A2:A3")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WOCHENTAG(A2; 2) .FormatConditions(1).Interior.ColorIndex = 6
End With
End Sub

Mit dem Recorder aufgenommen (also selektiert) funktioniert das fehlerfrei:

Sub Makro1()
Range("A2:A3").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WOCHENTAG(A2; 2)<4"
Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub
Gruß
Christoph
Anzeige
Auch Dir vielen Dank...
Boris
Hi Christoph,
...ich denke, dass die Erläuterung von K.Rola das "Rätsel" gelöst hat.
Dort habe ich auch noch gefragt, wie man dennoch ohne Slektiererei die Formel (ohne Anpassung der Bezüge) auslesen kann.
Danke und Grüße
Boris
AW: VBA: Bedingte Formatierung - Formel auslesen
K.Rola
Hallo Boris,
selektiere mal z.B. F4 und führ den Code aus, dann wirds vielleicht klarer. Im Grunde
wird, je nach selektierter Zelle, der Bezug relativ ausgegeben, wenn er relativ festgelegt ist. Würdest du A1 weglassen, käm es zu einem Fehler, wenn die selektierte Zelle keine bedingte Formatierung hätte.
Gruß K.Rola
Die Antwort klingt eigentlich recht simpel...
Boris
Hi K.Rola,
dass es mit der relativen Referenz zusammenhängt, hab ich mir ja auch schon gedacht.
Also wird der Bezug - sofern relativ - immer an die gerade aktive Zelle angepasst - und [a1] liefert nur die Ursprungs(relativ)formel.
Folgefrage: Wie kann ich denn nun die Formel aus der bedingten Formatierung in A1 auslesen, ohne A1 zu selektieren - also ohne relative Anpassung der Bezüge?
Gibt´s da auch ne Möglicheit?
BTW: Das interessiert mich einfach nur mal - ich habe keine riesen Aktion damit vor.
Danke und Grüße
{Boris}
Anzeige
AW: Die Antwort klingt eigentlich recht simpel...
K.Rola
Hallo Boris,
also um sicher zu sein, könnte man ja einen Bereich aller Zellen mit FormatConditions
setten und dann selektieren. Ich weiß, das ist verpönt und deshalb werde ich mal nach einer Alternative suchen.
Das Ganze macht eigentlich nur Sinn, wenn man ermitteln will, ob die Bedingung eingetreten ist, wozu sonst sollte man die Formel auslesen wollen? Ist es das, was
du vorhast?
Gruß K.Rola
AW: Die Antwort klingt eigentlich recht simpel...
Boris
Hi K.Rola,
Ist es das, was du vorhast?
Prinzipiell ja, wobei ich - wie bereits erwähnt - derzeit nix Riesiges vorhabe.
Es war nur ein kleines Teilproblem, und diesem möchte ich nur gerne "auf die Schliche" kommen. Wer weiss, wofür es noch gut sein kann :p
Es beruhigt mich aber gewissermaßen, dass selbst die Meisterin aller Codezeilen keine Antwort aus der Pistole parat hat :p
Gleichwohl bin ich - wie immer - an deiner genialen Lösung sehr interessiert.
Grüße Boris
Anzeige
Erstmal: Danke an alle Beteiligten
Boris
Hi K.Rola, Franz, Micha, Christoph und Ulf,
musste leider kurzfristig den Rechner verlassen - daher erst jetzt ne Reaktion.
Werde mir jetzt erstmal alles genau anschauen - dann melde ich mich wieder.
Danke und bis gleich!
Grüße Boris

329 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellenformatierung mit Blattschutz
donald

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...
05.12.2008 08:25:00
Thread-ID: 1030343
2 Beiträge
Anzeige
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Formatierung mit VBA
Dave

Hallo zusammen
Ich will Zellen aufgrund des Inhalts, der mit einer Formel geholt wird, formatieren.
Ich habe es in der folgenden Datei versucht, jedoch wird die Formatierung nicht automatisch angepasst, sondern die Zelle muss jedesmal angewählt werden.
Könnt ihr Euch das mal in der...
27.01.2009 08:20:03
Thread-ID: 1044069
10 Beiträge
Bedinte Formatierung mittels VBA
Dinci

Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe...
27.01.2009 13:36:57
Thread-ID: 1044216
5 Beiträge
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
Inhalt Textfelder mit Formatierung kopieren
Tobias

Hi zusammen,
ich hab folgenes Problem. Ich habe 2 Textfelder (NICHT aus den Steuerelementen) und möchte den Inhalt des einen Textfeldes in das andere kopieren wobei jedoch die Formatierung beibehalten wird. Ich habe schon alles mögliche versucht (siehe Anhang) aber es funktioniert leider ni...
10.02.2009 11:41:00
Thread-ID: 1048975
10 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
7
1
5
1
19
5
9
4
4
9
3
4
1
5
3
4
2
3
1
5
2
4
1
2
3