Fadenkreuz / HairCross - Orientierung in großen Tabellen

[d'r Bastler]

Moin allerseits,

immer wieder taucht in Foren der Wunsch auf, zur besseren Übersichtlichkeit in großen Tabellen Zeile und Spalte einer Zelle (Target) farblich zu markieren. Dazu hat RPP_neu aka Ralf hier ein hübsche Lösung auf Basis Bedingter Formatierung gezeigt.

Meine dort ebenfalls vorgestellte (mangels Lesekompetenz nicht verstandene) VBA-Lösung fand zuvor nur dümmliche Beleidigungen durch notorische Stänkerer ...

Aber tatsächlich hatte sie einen Nachteil: Meine VBA formatierte Zeile und Spalten verloren ihre vorherigen Farben und Rahmen.

Also auf in Runde zwei: Angenommene Ausgangssituation: Eine Datentabelle, in der Formatierungen keine Rolle spielen, einheitliches Design aber schon. Zwei Arten des Fadenkreuzes zur Auswahl: Hintergrund - oder Textfarbe. Deaktivierung der Routine bei Erhalt der Markierung.

So sieht das Ganze aus: Man beachte Zelle A1

HairCross.jpg

Dort beliebiger Text/eine Spaltenüberschrift löst ein Fadenkreuz per Zellhintergrund aus, ein "@" die Textformatierung, ein "-" deaktiviert die Aktualisierung des Fadenkreuzes. So kann man Zellen rund um sein Ziel bearbeiten, ohne jedes Mal das Formatgezappel zu haben.

Den ausführlich kommentierten Code gibt's hier als

Tabelle1.cls

zum Download. Er enthält auch einige nützliche Hinweise zur Optimierung der Tabelle.

Viel Spaß damit!

[thowe]

Moin!

Im neuesten (aktuellen) Excel geht das via View (Ansicht) ganz einfach.

View > Focus Cell

Capture8.PNG

Wer noch nicht das aktuelle Excelhat, kann es alternativ auch wie folgt lösen (mit gaaaanz wenig VBA-Code....)

mit [STRG] + [T] eine intelligente Tabelle erstellen.
Hineinclicken
Bedingte Formatierung > neue Formatierungsregel > Formel zur Ermittlung der zu formatierenden Zelle verwenden, unter:

Regelbeschreibung bearbeiten folgende Formel:

Code: Alles auswählen

=ODER(ZELLE("Spalte")=SPALTE();Zelle("Zeile")=ZEILE())

Füllfarbe festlegen.

Und:
im VBA Editor beim entsprechenden Arbeitsblatt folgenden Code eintragen:

Code: Alles auswählen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	ActiveSheet.Calculate
End Sub

[xlKing]

Hi ihr.

das mit der bedingten Formatierung klappt leider immer nur für eine Zeile. Außerdem ist es zumindest in älteren Excel-Versionen so, dass bei einigen Zeilen das Format gar nicht oder nur teilweise auftaucht oder wirklich zappelt. Der Grund dafür ist, dass der gesamte Bereich geprüft werden muss ob sich die Zeile irgendwo im Bereich befindet. Siehe daher auch meinen Beitrag zu diesem Thema.

https://vbasteleien.de/viewtopic.php?t=514#p1943

Hier wird der zu prüfende Bereich an die Selection angepasst, sodass es kein Gezappel geben sollte. Zumindest solange nicht alle 1048576 Zeilen auf einmal ausgewählt werden. Einfach mal ausprobieren.

Gruß Mr. K.

PS: Dass Microsoft hier nachgebessert hat und das über Ansicht anbietet, finde ich eine Super Sache, Auch wenn ich noch kein Office 2024 habe.

[thowe]

Hi Du!

Ja, da hat MS bei Excel wirklich - extrem - verbessert.

Etwas Offtopic, dennoch:

zB bei Matrixformeln:

früher musste man um aus einem Datenbereich eindeutig sortiert aufzulisten zB folgende Formel verwenden:

Code: Alles auswählen

=IFERROR(INDEX(Inventario!A:A;AGGREGATE(14;6;ROW(Inventario!A$2:A$99000)/(COUNTIF(Inventario!A$2:A$99000;">="&Inventario!A$2:A$99000)=AGGREGATE(14;6;COUNTIF(Inventario!A$2:A$99000;">="&Inventario!A$2:A$99000)/(COUNTIF(B$1:B1;Inventario!A$2:A$99000)=0); 1))/(COUNTIF(B$1:B1;Inventario!A$2:A$99000)=0)/(Inventario!A$2:A$99000>0); 1));"")

heute mit dem aktuellen Excel geht das - ganz einfach - so:
nur in die erste Zelle klicken, diese Formel eintragen:

Code: Alles auswählen

=SORT(UNIQUE(InvReferencia))

.
Excel spillt automatisch den gesamten notwendigen Bereich....

@d'rBastler: dein geschultes Auge sollte in der ersten Formel erkennen, wofür diese Formel bestimmt ist...

lg