Vergleich zweier Spalten
21.02.2017 11:45:27
Christian
ich sitze hier seit Tagen vor einem Problem. Ich soll für die Arbeit in Excel zwei Spalten (auf 2 verschiedenen Tabellen-Blättern) vergleichen und bei (grober) Übereinstimmung die entsprechenden Zeilen farbig markieren.
Da es sich hierbei um einige tausend Zeilen handelt, wäre ein automatisches Programm/Makro sehr sinnvoll. Allerdings habe ich noch nicht so viel mit Makros/VBA gearbeitet und nur einige Grundkenntnisse mit der Programmiersprache C.
Könntet Ihr mir bei meinem Problem weiter helfen?
Hier mein bisheriger (notdürftiger) Code:
(Anmerkung: Der String "STOPMARKE" steht quasi am Ende der beiden Spalten und soll somit als _ Abschluss meiner while-Schleife dienen)
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) "STOPMARKE"
'Graphische Testverfolgung
Sheets("NES").Cells(zeile1, spalte1).Interior.Color = vbGreen
Do While Sheets("AM").Cells(zeile2, spalte2) "STOPMARKE"
If Sheets("NES").Cells(zeile1, spalte1) = Sheets("AM").Cells(zeile2, spalte2) 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
'Graphische Testverfolgung
Sheets("AM").Cells(zeile2, spalte2).Interior.Color = vbGreen
zeile2 = zeile2 + 1
Loop
zeile1 = zeile1 + 1
Loop
Text3 = MsgBox("Prozess ist abgeschlossen!", vbInformation, "Info")
End Sub