Bedingte Formatierung - Formula1 mit Variable Laufzeitfehler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo onur,

Vielen Dank für den Hinweis und die Beispiel-Datei. Dein Ansatz ist für mich aber leider nicht anwendbar.
Ich versuche es noch weiter zu erläutern.
Dies ist nur eine Beispiel-Tabelle für ein größeres Projekt. Es ist notwendig, dass die "Bedingte Formatierung" über eine VBA-Routine eingebracht wird, da dies aus einem Workbook in ein anderes Workbook zugegriffen, auf einer bestimmten Seite mit einer benannten Tabelle geschehen soll.
Da sich der Spalten-Umfang dieser Tabelle aber verändern kann und die ausschlaggebende Spalte "Diff" nicht grundsätzlich in der 3. Spalte (also C) liegen kann, muss ich mit einer Variablen arbeiten, die bei der Übertragung sowas wie ... Formula1:="=$C1>0" ... produziert. Analog zu der Spalte in der eben die "Diff" sich befindet. Kann also auch heißen Formula1:="=$E1>0"
Ich hab noch einmal eine Beispieldatei mit der Beispiel-Tabelle und einer VBA-Routine (Makro) im Modul "mod_BedFormat" hochgeladen. Darin sind noch weitere Details und Hinweise vermerkt. Die Sub darin formatiert die Tabelle genau so wie ich es mir vorstelle.
ABER sie ist eben auf die Spalte "C" fixiert. Und das ist genau die Einschränkung, die ich gerne überwinden möchte. Und das geht aus meiner NuBi-Sicht wohl eher nur mit einer Variablen in der zu übergebenden Formel. Aber die Variante Formula1:="=$" & columnDiff & "1>0" funzt eben nicht. Ich denke, ich hab auch eine ungefähre Vorstellung. Es hat wahrscheinlich mit der Verteilung und der Anzahl der Anführungszeichen und &-Zeichen zu tun. Aber ich hab es nicht geschafft, das Prinzip zu erkennen. :-(

Vielleicht hast Du, oder ein anderer Profi noch eine Lösung für dieses vielleicht doch nicht so "unkomplizierte" Code-Problem ;-)

Die besagte Beispieldatei: https://www.herber.de/bbs/user/166924.xlsm

Besten Dank!
Eggi

' Spaltenbuchstaben für die Spalte "Diff" ermitteln columnDiff = Split(ws.Cells(1, Application.Match("Diff", ws.Rows(1), 0)).Address, "$")(1) ' Letzte Zeile in der Spalte "Diff" finden lastRow = ws.Cells(ws.Rows.Count, columnDiff).End(xlUp).Row

Hallo onur,

Du hast natürlich recht. In meinem Code war ein Fehler, da ich nicht an allen Stellen berücksichtigt habe, dass die Tabelle ja eine Überschrift hat, und deshalb die relevanten Daten erst mit Zeile 2 beginnen.
In der angehangenen Beispieldatei hab ich das geändert. jetzt müsste die Zuordnung stimmen. Ich hab jetzt auch die Spalte C mit "Diff" bezeichnet. was aber eigentlich bis jetzt noch nicht wirklich relevat war, da die Bedingte Formatierung ja in der Formel mit z.B. Formula1:="=$C1>0" selektiert wird.

Ok, jetzt noch einmal zum eigentlichen Problem.

Der User, der später diese Funktion auf eine seiner Tabelle anwenden soll, hat zwar einen gleichen Typ Tabelle, aber es ist nicht garantiert, dass die Spalte "Diff", in denen die relevanten Daten zur Farbentscheidung stehen, auf der Position C-Spalte(!) zu finden ist. Es muss also vor der Übertragung der "Bedingten Formatierungsformeln" gesucht werden, in welcher Spaltenposition sich "Diff" nun wirklich befindet.
Kein Problem - aber dann besteht die Formatierungsformel aus einer Variablen, oder ein teil davon zumindest aus einer Variablen. Z.B. eben etwa so: Formula1:="=$" & columnDiff & "1>0
Und denau da liegt das Problem! Diese Art von Formeln kann rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=$" & columnDiff & "1>0) nicht über nehmen! Es entsteht dabei ein Fehler.
Ich hoffe, dass ich es jetzt noch einmal besser eingrenzen konnte.

Besten Dank
Eggi

Besagte geänderte Beispieldatei: https://www.herber.de/bbs/user/166928.xlsm

PS: Ich bin ja neu hier. Deshalb noch eine Frage. Sollte ich beim Antworten auf einen Beitrag das Optionskästchen "Frage noch offen" anklicken, solange das Anliegen noch nicht abschließend geklärt ist? Ich hab es jetzt mal getan. Hoffe, es war richtig.

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung - Formula1 mit Variable Laufzeitfehler

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung - Formula1 mit Variable Laufzeitfehler

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread