Letztes Tabellenblatt als relativen Bezug als Formel für bedingte Formatierung angeben (Mit...

Hallo,

wenn ich dich richtig verstehe, willst du dich immer auf das vorhergehende Blatt beziehen. Dann probiere es mal so:

Sub Makro3()

Dim sh As String

sh = Sheets(Sheets.Count - 1).Name
With ActiveSheet

    .Range("A2:Z150").Select

    With Selection

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formula1:="=A2<>" & sh & "!A2"

    End With

    With Selection.FormatConditions(1).Interior

        .PatternColorIndex = xlAutomatic

        .ThemeColor = xlThemeColorAccent4

        .TintAndShade = 0.399945066682943

    End With

End With

End Sub

Sub Makro10()

Dim myButton As Object

    ActiveSheet.Shapes("Button 1").Delete

    Sheets.Add After:=ActiveSheet

    Makro3

    Set myButton = ActiveSheet.Buttons.Add(120.75, 15, 179.25, 44.25)

    With myButton

      .OnAction = "Makro10"

      .Characters.Text = "Neu"

   End With

End Sub

Claus

Hi,

ja genau so meinte ich das. Ich hab den Code kopiert und durch meinen alten ersetzt. Der Code hat bei der zweiten Seite funktioniert, aber bei der dritten nicht mehr. Beispiel:

Tabelle1, A2-Wert: 8,10

Tabelle2, A2-Wert: 8,11

Tabelle3, A2-Wert: 8,12

Und jetzt würde er mir bei Tabelle2 den A2-Wert markieren, aber bei der dritten Tabelle nicht mehr, obwohl die Daten nicht identisch sind. Ich würde es aber gerne so haben, dass er mir immer Veränderungen des vorherigen Tabellenblattes makiert. (Ich hoffe,
ich hab mich richtig ausgedrückt ^^)

Vielen Dank.

ich habe mein Problem so gelöst, dass ich die komplexe Formel in eine Zelle eingefügt und mit der WENN Funktion Werte abfrage. Die bedingte Formatierung der Zielzelle bezieht sich auf diese Zelle und formatiert sie entsprechend. Somit muss ich die bedingte Formatierung mit dem relativen Bezug auf die WENN Zelle und dieselbe kopiert nur je 12 mal einfügen, was mir in NeoOffice erspart geblieben ist.
Nochmals allen, die mir geantwortet haben, herzlichen Dank.

Hallo Richard,

hast du aus einer anderen Mappe ein Tabellenblatt in deine Mappe verschoben?

Dann kann es sein, dass in der Bedingten Formatierung oder in der Datengültigkeit (Liste oder Benutzerdefiniert) durch das Kopieren ein externer Bezug erstellt wurde.

Es kann auch sein, dass im Namensmanager ein Name statt Zellbezügen ein Formel hat.

Claus

Hallo Claus,



danke für die schnelle Antwort, das trifft es jedoch noch nicht ganz. Hier ein Link zu einer Beispieldatei mit der Problemstellung:

https://skydrive.live.com/redir?resid=4062EA27B8FC6B9F!162&authkey=!AE1qf8DmU9gA_yM

(Ich hoffe mal, der funktioniert, ich benutze Skydrive zum ersten Mal).

Der Knackpunkt ist:

Das Ergebnis D soll sich immer aus dem Produkt von B * C einer Zeile ergeben.

Das Maximum für das Ergebnis D für die bedingte Formatierung soll sich immer aus dem Produkt A*B der jeweiligen Zeile ergeben.



Bei der Formel für das Maximum kann ich aber nur absolute Formel eingeben, sodass beim Ziehen sich das Maximum nicht pro Zeile automatisch anpasst und ich das für jede Zeile von Hand editieren muss. Extrem lästig.

Wird das so deutlicher? Irgendeine Idee?

VG, Colin