Office: (Office 2016) Excel: Bedingte Formatierung mit zwei Feldern

Hallo,
ich habe mal wieder zwei Ideen zum Umsetzen und hoffe, dass man mir wieder weiterhelfen kann.
Diesmal geht es um die bedingte Formatierung.

Das erste scheint mir nicht Umsetzbar, aber das denke ich ja oft:
Ich würde gerne die Zeile, in der sich der Cursor Aktuell befindet umfärben, bzw. hervorheben, so dass man in großen Tabellen gleich sieht, in welcher Tabelle man sich befindet. Vielleicht geht das ja auch anders. Mich wundert, dass es kein "Standard-Feature" ist. Speziell wenn man die Tabelle offen hat und dann auf dem zweiten Monitor etwas anderes macht (z.B. die Werte abschreiben will), sieht man nicht mehr, in welcher Zeile man eben noch war (z.B. beim Rechnungsvergleich)

Das zweite ist vielleicht auch nicht so kompliziert:
In der angehängten Mappe handelt es sich um eine Liste, wo wir die täglichen Einnahmen auflisten. Dabei gibt es Kunden, die mehrmals am Tag kommen.
In der Regel werden diese wie in Zeile 6 mit allen Quittungsnummern (Kurzform) und den Beträgen hinten zusammengerechnet (bzw. mit Zusammengerechneten Einzelbeträgen) dargestellt, da auch jeden Tag die Rechnungen erstellt werden und jeder eine Rechnung bekommt (bzw. sind diese nur fürs System zum buchen, da die Kunden ja schon bezahlt haben).
Ich hatte schon mal eine Bedingte Formatierung erstellt, wo der Name Rot dargestellt wurde, wenn dieser Doppelt vorkommt. Wobei dies auch manchmal nicht so funktionierte, was ich auch nicht verstanden habe. Weiteres Problem war noch, dass es unabhängig vom Datum markierte und das Rot beim Drucken gestört hätte, wodurch ich die Formatierung auch immer ein- und ausgeschaltet hatte.

Manche Kunden kaufen halt mehrmals am Tag oder auch in der Woche und ich möchte jetzt einfach eine Formatierung in der Form:
Wenn Datum und Name Gleich sind, den Namen Rot und Fett markieren.
Ich habe das schon mit Plus und Und-Zeichen probiert, funktionier aber alles nicht.
Ist allerdings logisch, meine Formel vergleicht halt nur das was sowieso da steht, deswegen kann die Formel nicht funktionieren. Allerdings habe ich gerade keinen Plan, wie ich das in eine Formel pressen kann, dass nur dann markiert werden soll, wenn der Tag und der Name gleich sind..

Ich hoffe, ich konnte alles gut erklären.

Vielen Dank für die Hilfe

 

Hola,
1) das geht nicht mit der bedingten Formatierung, evtl aber mit VBA - leider nicht mein Gebiet
2) natürlich wird bei dir alles rot markiert da du in deine Formel alle Zellen absolut fixiert hast. Das heißt das in jeder Zeile nur auf C2 und F2 geprüft wird. Mach es so: =ZÄHLENWENNS($C$2:$C$7;C2;$F$2:$F$7;F2)>1
Gruß,
steve1da

 

Moin Andreas,
steve hat Recht, Dein erstes Thema ist mit VBA lösbar. Es gibt eine API, mit man die Mausposition auslesen kann. Das Problem dabei ist die Relation zur dahinterliegenden Zeile herzustellen. Dazu müssten die Koordinaten aller Zellen erfasst werden und bei Mausbewegungen abgeglichen. Ein riesen Aufwand, den man aber leicht vermeiden kann:

Code siehe nächsten Post

Grüße

 

Nachdem ich gesehen habe, dass Du mit Bedingten Malereien arbeitest, habe ich Dir ein Code gebastelt, der nicht die ganze Zeile, aber die ersten fünf Zellen hervorhebt. Der Code gehört in das Arbeitsblatt (Rechtsklick auf Tabellennamen > Code anzeigen).

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer

For i = 1 To 5              'entfernt die Formatierungen in den Spalten A-E ANPASSEN!
    Columns(i).ClearFormats
Next i
For i = 1 To 5              'verpasst den Zellen A-E der ausgewählten Zeile ein liebliches Zartrosa ANPASSEN
    Cells(Target.Row, i).Interior.Color = RGB(255, 200, 200)
Next
End Sub

Nach der gleichen Methode kann man auch nur die tatsächlich aktive einzelne Zelle einfärben und -falls formatiert- die vorherige Malerei beim Verlassen wieder herstellen. Ist aber etwas aufwändig.

Grüße

 

Und hier noch eine zweite Variante, bei der Du Dir eine Zelle per Doppelklick markieren kannst und dann dort, aber auch in anderen weiter arbeiten. Erst ein weiterer Doppelklick auf die markierte Zelle setzt sie wieder zurück.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iDX As Integer
Cancel = True

With Target.Interior
    iDX = .ColorIndex
    Select Case iDX
        Case 38
            ActiveCell.ClearFormats
        Case Else
            .ColorIndex = 38
    End Select
End With
End Sub

So lassen sich auch mehrere Zellen markieren.

Viel Spaß damit!

 

Und hier gibt's beide Vorschläge noch etwas optimiert und kombiniert.

Grüße

 

Ich danke für die Hilfe. Wo der Fehler lag, wurde mir gestern schon beim schreiben hier bewusst, ich wollte nur meinen Thread nicht noch dicker machen :D

Auf jeden Fall danke für die Antwort, das hat gepasst. Funktioniert und das ist im Grunde genommen alles, was ich wollte.
Allerdings verstehe ich die Formel nicht komplett, da sich das Ergebnis ja im Prinzip auf C2, bzw F2 "bezieht", aber funktioniert ja in jeder Zeile. Ich vermute mal, dass sich Excel die Formel entsprechend des Bereiches "umstellt". Aber ich wäre da nie drauf gekommen...

Den Code probiere ich mal aus, allerdings ist die Tabelle bisher noch VBA-Frei, wodurch es auch keine Freigabe-Frage gibt, was ich hier auf dem Firmenrechner auch nicht abschalten möchte. Muß ich mir mal durch den Kopf gehen lassen :)
Wie gesagt; Schade, dass Excel da nicht von Haus aus eine Möglichkeit hat, ich kann mir nicht vorstellen, dass ich der einzige bin, der z.B. vorne eine Lieferscheinnummer anklickt und weiter hinten einen Wert ablesen möchte..

 

Du vermutest richtig. Excel passt das intern an und zwar für den Bereich, der in "wird angewendet auf" steht.

 

Ok, muß man aber auch wissen..

Den Code bekomme ich nicht zum laufen... Wenn ich es einfüge (Als "Allgemein" und "Deklarationen" und der entsprechenden Tabelle), bekomme ich gleich die Fehlermeldung "Fehler beim Kompilieren: Außerhalb einer Prozedur ungültig".

 

Moin Andreas,

"außerhalb" bedeutet, dass Du keine Prozedur eröffnet und nur einen Teil des Codes eingefügt hast. Dann kann's nicht funktionieren. Option explicit darf (muss aber) nur einmal pro Worksheet oder Modul am Anfang stehen, andere Codes immer mit Sub ...() beginnen und End Sub schließen.

Grüße

 

So, jetzt funktioniert es. Ich Trottel habe "Code:" mit kopiert.. Das geht natürlich nicht :D
Funktioniert toll, leider löscht es auch sämtliche Formatierung in der Tabelle - was natürlich nötig ist, damit nicht hinterher alles Rosa ist... Also auch Schriftgröße und Fettdruck in der Überschrift, was die Tabelle am Ende doch wieder unübersichtlicher macht..
Trotzdem Danke für die Hilfe, vielleicht kann ich das mal in anderen Tabellen anwenden.

 

Hi,

wenn Schriftgröße etc. beibehalten werden sollen, dann ersetze .ClearFormats durch .Interior:ColorIndex = xlColorIndexNone

 

Moin Helmut,
Danke für diesen Tipp, von dem ich wusste, dass es ihn gibt - ich mich aber vor Kurzem danach doof gesucht habe ...
Grüße