Vergleich von Zeilen - Spaltenübergreifend

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Boris,
danke für deine Hilfe.
Ich vergaß zu erwähnen, dass die Abbildung nur ein Auszug der Tabelle ist. Die ganze Tabelle ist über 400 Zeilen lang.
Das nächste Problem:
Die Einfärbungen sollen nicht nur in dieser Tabelle angewendet werden, sondern später auch automatisiert auf andere Tabellen übernommen werden. Diese Tabellen unterscheiden sich dann aber in:
* der Anzahl der Positionen
* den Querschnitten
* den Leitungsarten
Hintergrund der Sache: Mein "Auftraggeber" erhält regelmäßig .txt Listen, die er in Excel einlesen und automatisiert formatieren möchte.
So bin ich dabei einen VBA-Code zu schreiben. Nur hänge ich gerade an besagter Stelle.
Ich hatte gehofft, dass man mein Problem in einem Code zusammenfassen kann nach dem Prinzip:
Vergleiche "F3+G3" mit "F4+G4"
wenn * Unterschied, dann andere Hintergrundfarbe
* kein Unterschied, dann Hintergrundfarbe beibehalten
Vergleiche "F4+G4" mit "F5+G5"
...

Hallo,
@Boris: Deine Variante ist nachvollziehbar, funktioniert bei mir aber leider nur fehlerhaft, wenn ich sie auf den 3-Spalten-Vergleich umschreibe. Den Fehler habe ich auch nach langer Suche nicht finden können. Deshalb habe ich mir jetzt erst mal Doris' Variante angeschaut. Ich Danke dir aber trotzdem vielmals!
@ Doris: Danke für deine Alternative. Ich habe mir den Code angeschaut und in Groben Zügen auch verstanden und versucht, ihn auf mein Problem umzuschreiben. Sprich: Der Vergleich findet zwischen den Spalten A, F und G statt. Das ganze sieht dann so aus:

Sub Aenderung_Leitungsnummer_Leitungsart_Querschnitt()
' vergleicht die Spalten A,F und G (Leitungsnummer, Leitungsart und Querschnitt) miteinander
' färbt Zeilen bei Änderung des Inhaltes abwechselnd in grau und weiß ein
Dim Zeilen_Zahl As Integer                          ' belegte Zeilen
Dim i As Integer                                    ' Zähler aktuelle Zeile
Dim l As Integer                                    ' Zähler aktuelle Zeile - 1
Dim Farbe As Long                                   ' 0 = keine Farbe u. 15395562 = grau
Sheets("Tabelle1").Activate
Zeilen_Zahl = Cells(Rows.Count, "F").End(xlUp).Row
Farbe = 0
For i = 2 To Zeilen_Zahl
l = i - 1
If Range("A" & l) & Range("F" & l) & Range("G" & l)  Range("A" & i) & Range("F" & i) & _
Range("G" & i) Then
If Farbe = 15395562 Then Farbe = 0 Else Farbe = 15395562
End If
If Farbe = 0 Then Range("F" & i & ":G" & i).Interior.Pattern = xlNone
If Farbe = 15395562 Then Range("F" & i & ":G" & i).Interior.Color = Farbe
Next i
Range("A1").Select
End Sub

Nun möchte ich es aber noch so gestalten, dass nicht nur die Zellen der Spalten A, F und G eingefärbt werden, sondern jeweils die ganzen Zeilen, mit Ausnahme der Spalten H und J, die sollen immer weiß bleiben, weil es nur Leerspalten sind. Ich habe mit den letzten beiden If-Zeilen des Codes einiges probiert, aber es kommt immer ein Fehler dabei heraus.
Ich weiß mir nicht mehr weiter zu helfen
Ich danke euch, für eure Geduld mit mir :D

Sub Aenderung_Leitungsnummer_Leitungsart_Querschnitt() ' vergleicht die Spalten A,F und G (Leitungsnummer, Leitungsart und Querschnitt) miteinander ' färbt Zeilen bei Änderung des Inhaltes abwechselnd in grau und weiß ein Dim Zeilen_Zahl As Integer ' belegte Zeilen Dim i As Integer ' Zähler aktuelle Zeile Dim l As Integer ' Zähler aktuelle Zeile - 1 Dim Farbe As Long ' 0 = keine Farbe u. 15395562 = grau Sheets("Tabelle1").Activate Zeilen_Zahl = Cells(Rows.Count, "F").End(xlUp).Row Farbe = 0 For i = 2 To Zeilen_Zahl l = i - 1 If Range("A" & l) & Range("F" & l) & Range("G" & l) Range("A" & i) & Range("F" & i) & _ Range("G" & i) Then If Farbe = 15395562 Then Farbe = 0 Else Farbe = 15395562 End If If Farbe = 0 Then Range("F" & i & ":G" & i).Interior.Pattern = xlNone If Farbe = 15395562 Then Range("F" & i & ":G" & i).Interior.Color = Farbe Next i Range("A1").Select End Sub

Sub Aenderung_Leitungsnummer_Leitungsart_Querschnitt() ' vergleicht die Spalten A,F und G (Leitungsnummer, Leitungsart und Querschnitt) miteinander ' färbt Zeilen bei Änderung des Inhaltes abwechselnd in grau und weiß ein Dim Zeilen_Zahl As Integer ' belegte Zeilen Dim i As Integer ' Zähler aktuelle Zeile Dim l As Integer ' Zähler aktuelle Zeile - 1 Dim Farbe As Long ' 0 = keine Farbe u. 15395562 = grau Sheets("Tabelle1").Activate Zeilen_Zahl = Cells(Rows.Count, "F").End(xlUp).Row Farbe = 0 For i = 2 To Zeilen_Zahl l = i - 1 If Range("A" & l) & Range("F" & l) & Range("G" & l) Range("A" & i) & Range("F" & i) & _ _ Range("G" & i) Then If Farbe = 15395562 Then Farbe = 0 Else Farbe = 15395562 End If If Farbe = 0 Then Range("A" & i & ":Z" & i).Interior.Pattern = xlNone If Farbe = 15395562 Then Range("A" & i & ":G" & i).Interior.Color = Farbe Range("I" & i).Interior.Color = Farbe Range("K" & i & ":Z" & i).Interior.Color = Farbe End If Next i Range("A1").Select End Sub

Beliebteste Forumthreads (12 Monate)

Vergleich von Zeilen - Spaltenübergreifend

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread