Bedingte Formatierung

Guten Tag zusammen
Ich habe eine Liste mit ca. 10'000 Einträgen über die Ausgestaltung von Infrastruktur unserer Firma. Die Excelliste besagt, was wir wo in welcher Ausprägung installiert haben. In der Spalte A ist der Ort angegeben und in der Spalte B bis O weitere Angaben zum Ort (Gemeinde, Postleitzahl, ...). In den nachfolgenden Spalten sind dann spezifische Angaben zu den installierten Infrastruktur enthalten (z.B. Haus, 100 Quadratmeter, 3 Stöckig, ... oder Garten, Blumen, guter Zustand). Da ein Ort mehrere Infrastruktur-Elemente haben kann (Haus, Garten, Garage, ...) kommt der Ort in der Spalte A sowie alle anderen Angaben der Spalten B bis O auf jeder Zeilen vor.
Mein Problem(chen): Wenn nun nach einem Kriterium gefiltert wird (z.B. Region), erscheinen mehrere Einträge zu mehreren Orten, z.B. total 15 Zeilen mit Bezug zu 3 Orten (also rund 5 Einträge pro Ort). Die Ortsangaben werden 15x angezeigt, obschon je Ort 1x ausreichen würde und übersichtlicher wäre.
Mein Wunsch: Gerne möchte ich die Tabellen (ggf. mittels VBA) so formatieren, dass jeweils nur die erste Ortsangabe sichtbar ist. Die weiteren Ortsangaben (des gleichen Orts) sollen nicht sichtbar sein, also z.B. weisse Schrift auf weissem Grund oder "ausgeblendet". Dies aber nur, wenn die Orte direkt über/unter einander sind. Sobald auf Grund einer Sortierung oder so die Orte nicht gruppiert sind, soll jeweils einfach die erste Orts-Beschriftung ersichtlich sein. Also: Ist Ort gleich wie in der Zelle darüber, dann Angaben A:O ausblenden (weiss auf weiss). Sind die Angaben unterschiedlich, dann normal anziegen.
Option: wenn die unterste und/oder oberste Zeile dann jeweils noch einen Trennstrich erhält, wird das ganze perfekt. So hätte ich pro Ort 1x die Ortsangaben und danach einfach leer bis zum nächsten Ort. Dank den Strichen ist auch klar, von wo bis wo der Ort gültig ist. Ähnlich der Funiktion "Zelle verbinden".
Uff - versteht man das? :-)
Ob es mittels VBA auf Knopfdruck so formatiert wird oder generell so ist, spielt mir keine Rolle. Einfach das, was einfacher ist. Die Benutzer filtern oft, können aber schon auch einen Button klicken, wenn es "schön" dargestellt sein muss.
Merci tuuusig!
Viele Grüsse
Rolf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
geht über Bedingte Formatierung:
markiere den Bereich ab Zelle A2 und verwende folgende Formel als Regel:
=UND($A2=INDEX($A:$A;ZEILE()-1);TEILERGEBNIS(3;INDEX($A:$A;ZEILE()-1))=1)
als Format dann idealerweise das benutzerdefinierte Zahlenformat ";;;"
alternativ auch Schriftfarbe gleich Hintergrundfarbe, aber beim Zahlenformat funktioniert es unabhängig von der Hintergrundfarbe.
wenn du auch die Linie haben willst, müsstest du über die normale Formatierung jede Zeile mit einer Rahmen Linie oben versehen und diese dann in der bedingten Formatierung ausblenden.
Für die Rahmen musst du natürlich eine zweite bedingte Formatierung anlegen mit gleicher Formel, aber dem Gülitgeitsbereich auch für die restlichen Spalten.
Gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Integer '4.Doppelte Werte werden wie Hintergrund gefärbt Application.ScreenUpdating = False 'Bildschirmaktualisierung aus For k = 2 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'Schleife von 2. Zeile bis zur letzten genutzten; Anfangsspalte anpassen If Range("A" & k) = Range("A" & k - 1) Then 'wenn z. B. A2 gleich A1, dann Schriftfarbe wie Hintergund, Spalte anpassen Range("A" & k, "O" & k).Font.Color = Range("A" & k, "O" & k).Interior.Color 'Schriftfarbe in A:O wird in Hintergundfarbe geändert, Spalten anpassen End If Next k Application.ScreenUpdating = True 'Bildschirmaktualisierung ein End Sub

If Range("A" & k) Range("A" & k - 1) Then 'wenn A2 A1, dann With Range("A" & k, "Z" & k).Borders(xlEdgeTop) 'über A- Linie .LineStyle = xlContinuous 'durchgehend .Weight = xlThin 'dünn End With 'Else 'ansonsten 'Range("A" & k, "Z" & k).Borders(xlEdgeTop).LineStyle = xlDashDot 'Punkt-Strich-Linie zwischen den Zeilen, wenn A2=A1 End If

Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Integer Application.ScreenUpdating = False 'Bildschirmaktualisierung aus For k = 2 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'Schleife von 2. Zeile bis zur letzten genutzten; Anfangsspalte anpassen If Range("A" & k) = Range("A" & k - 1) Then 'wenn z. B. A2 gleich A1, dann Schriftfarbe wie Hintergund, Spalte anpassen Range("A" & k, "O" & k).Font.Color = Range("A" & k, "O" & k).Interior.Color 'Schriftfarbe in A:O wird in Hintergundfarbe geändert, Spalten anpassen End If If Range("A" & k) Range("A" & k - 1) Then 'wenn A2 A1, dann With Range("A" & k, "Z" & k).Borders(xlEdgeTop) 'über A- Linie .LineStyle = xlContinuous 'durchgehend .Weight = xlThin 'dünn End With Next k Application.ScreenUpdating = True 'Bildschirmaktualisierung ein End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread