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.
Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge
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