Vergleich zweier Spalten
22.02.2017 15:33:18
Christian
ich muss für die Arbeit 2 Spalten (auf 2 verschiedenen Sheets) in Excel vergleichen (also jeden Zelleninhalt der einen Spalte mit jedem Zelleninhalt der anderen Spalte) und wenn dieser Inhalt identisch ist, die Zeile farbig markieren.
Zudem sind manche Zellen leer. Diese sollen dann logischerweise nicht farbig markiert werden, wenn 2 leere Zellen beim Vergleichen "aufeinander treffen".
Ich habe bereits einen (notdürftigen) Code geschrieben, der aber wahrscheinlich bei der großen Anzahl der Daten nicht funktioniert.
Hat daher jemand eine bessere Idee für einen Code, der funktioniert?
Zudem habe ich als Inhalt in mehreren Zeilen den Wert Fehler 2042 entdeckt und daher die Frage, wie ich dieses Problem lösen/umgehen kann, da das Programm mir beim Debuggen eben eine Fehlermeldung ("Laufzeitfehler 13: Typen unverträglich" bringt) und in der Zeile stoppt, in der dieser Fehler steht. (mit dem aktuellen Code läuft das Programm aber nicht mal bis zu dieser Zelle, das habe ich nur bei einem früheren Code entdeckt, da ich hier einen Fehler eingebaut hatte.)
Also im Großen und Ganzen benötige ich in erster Linie einen Code, der mir die Spalten vergleicht und Zellen mit gleichem Inhalt farbig markiert.
Hoffentlich habe ich mich verständlich ausgedrückt, ansonsten gerne fragen.
Hier mein bisheriger Code:
Sub Spaltenvergleichen()
Dim zeile1 As Long
Dim zeile2 As Long
Dim spalte1 As Long
Dim spalte2 As Long
zeile1 = 2
zeile2 = 7
spalte1 = 4
spalte2 = 8
Text2 = MsgBox("Test", vbInformation, "Test")
'Tabelle1 durchlaufen und mit Tabelle2 vergleichen
Do While Sheets("NES").Cells(zeile1, spalte1).Value "STOPMARKE"
Do While Sheets("AM").Cells(zeile2, spalte2).Value "STOPMARKE"
'Leerzellen in Spalte NES abfangen
If Sheets("NES").Cells(zeile1, spalte1).Value = "" Then
zeile1 = zeile1 + 1
Else
If Sheets("NES").Cells(zeile1, spalte1).Value = Sheets("AM").Cells(zeile2, _
spalte2).Value Then
'Einfärben von Zeilen in Tabelle1
Sheets("NES").Cells(zeile1, 1).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 2).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 3).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 4).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 5).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 6).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 7).Interior.Color = vbRed
Sheets("NES").Cells(zeile1, 8).Interior.Color = vbRed
'Einfärben von Zeilen in Tabelle2
Sheets("AM").Cells(zeile2, 2).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 3).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 4).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 5).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 6).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 7).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 8).Interior.Color = vbRed
Sheets("AM").Cells(zeile2, 9).Interior.Color = vbRed
End If
End If
End If
zeile2 = zeile2 + 1
Loop
Zelleninhalt = Sheets("NES").Cells(zeile1 + 1, spalte1).Value
zeile1 = zeile1 + 1
zeile2 = 7
'Fehler in Zellen abfangen
'Do While IsError(Sheets("NES").Cells(zeile1, spalte1))
' zeile1 = zeile1 + 1
'Loop
Loop
Text3 = MsgBox("Prozess ist abgeschlossen!", vbInformation, "Info")
End Sub
https://www.herber.de/bbs/user/111632.xlsx
Vielen Dank schonmal für eure Hilfe.
MfG
Christian