Excel Format Conditions

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Excel Format Conditions

Re: Excel Format Conditions

Beitrag von isabellaaa » 08. Sep 2021, 11:23

Hallo Daniel,

vielen vielen Dank! Genau das hat mein Problem gelöst!

Viele Grüße
Isabella

Re: Excel Format Conditions

Beitrag von slowboarder » 08. Sep 2021, 10:18

Hi Ralf
Nein das ist nicht der Fehler. Die Bedingte Formatierung ist die berühmte Ausnahme von der Regel, dass in VBA alles englisch sein muss, hier muss man die Formeln in Landessprache angeben.

Das Problem dürfte hier sein:
So wie der Code geschrieben ist, müsste in den angegeben Zellen die gewünschte Zelladresse stehen.
Sollte sich die Formel aber auf die angebenen Zellen beziehen, müsste man das so schreiben:
Code: Alles auswählen
... "=UND(" & Cells(ersteReihe, lngZiel).Address(0, 0) & " >= " ...

Das (0, 0) erzeugt hier die relativen Adressen ohne $.
Für die weiteren Cells() in der Formel dann entsprechend.

Gruß Daniel

Re: Excel Format Conditions

Beitrag von Ralf A » 08. Sep 2021, 10:00

...mach aus dem UND mal ein AND und aus den Semilkolons mal ein Komma. Das könnte es schon gewesen sein.....

Excel Format Conditions

Beitrag von isabellaaa » 08. Sep 2021, 08:50

Hallo zusammen,

ich komme einfach nicht mehr weiter und erhoffe mir bei euch Hilfe.

Ich möchte in meiner Formel Bezüge auf Zellen mit Variablen nehmen.

Das ist der momentane Code: (Die Variablen, z.B. lngZiel wurden vorher im Code bestimmt, z.B. 15)
Range(Cells(ersteReihe, lngZiel), Cells(letzteReihe, ersteSpalte)).Select

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND(" & Cells(ersteReihe, lngZiel) & " >= " & Cells(ersteReihe, StartSpalte) & ";" & Cells(ersteReihe, lngZiel) & " <= " & Cells(ersteReihe, EndSpalte) & ")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Der Fehlercode: "Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument" wird für folgenden Bereich angezeigt:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND(" & Cells(ersteReihe, lngZiel) & " >= " & Cells(ersteReihe, StartSpalte) & ";" & Cells(ersteReihe, lngZiel) & " <= " & Cells(ersteReihe, EndSpalte) & ")"

Ich würde mich sehr über Hilfe freuen!
Isabella

Nach oben

cron