Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

[Excel 2007] Tabellenspalten vergleichen

cosmo_kramer / 15 Antworten / Flachansicht Nickles

Hallo Leute,

ich habe zwei Fragen :

Dieser Makro-VBA-Code prüft eine Spalte von 2 verschiedenen Tabellenblättern und markiert Übereinstimmungen im aktiven Blatt grün.

For ZeileB1 = 3 To 150
For ZeileB2 = 3 To 150
If ThisWorkbook.ActiveSheet.Range("B" & ZeileB1) = Sheets("8.KW").Range("B" & ZeileB2) Then
ThisWorkbook.ActiveSheet.Range("B" & ZeileB1 & ":" & "B" & ZeileB1).Select
With Selection.Interior
.Color = 5287936
End With
End If
Next ZeileB2
Next ZeileB1

1. Frage :
Wie bringe ich das Makro dazu, statt zu Färben gleich die komplette Zeile zu übernehmen?

2. Frage :
Wie bringe ich das Makro dazu, Spalte B des aktiven Blattes mit Spalte B des vorherigen Blattes miteinander zu vergleichen ?
Erklärung dazu : In der Mappe kommt jede Woche ein neues Blatt hinzu, welches nur mit der Vorwoche verglichen werden muss. Im oberen Code wird der Vergleich zwischen ActiveSheet und 8.KW angestoßen, ich benötige aber eher Vergleich zw. ActiveSheet und ActiveSheet-1.

Vielen Dank.

bei Antwort benachrichtigen
cosmo_kramer Nachtrag zu: „ Set wks1 ThisWorkbook.Worksheets Sheets.Count Set wks2 ThisWorkbook.Worksheets...“
Optionen

Dieser Code erfüllt meine Wünsche :

Sub Vergleich()

Set wks1 = ThisWorkbook.Worksheets(Sheets.Count)
Set wks2 = ThisWorkbook.Worksheets(Sheets.Count - 1)

For ZeileB1 = 3 To 100
For ZeileB2 = 3 To 100
If wks1.Range("B" & ZeileB1) = wks2.Range("B" & ZeileB2) Then
wks2.Range(ZeileB2 & ":" & ZeileB2).Copy Destination:=wks1.Range(ZeileB1 & ":" & ZeileB1)
End If
Next ZeileB2
Next ZeileB1

MsgBox "Vergleich abgeschlossen...", vbInformation
Range("D3").Select

End Sub

Vielen Dank.

grüße

bei Antwort benachrichtigen