Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

Verfolgung starten Optionen

[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
1. komplette Zeile im Sinne der ganzen Row? 2. Über ... PaoloP
@PaoloP : zu 1. Es wird Spalte B des letzten 9.KW mit dem vorletzten 8.KW ... cosmo_kramer
Sicher nicht die eleganteste Lösung aber mehr ist aus dem Stand nicht drin. ... PaoloP
cosmo_kramer PaoloP „Sicher nicht die eleganteste Lösung aber mehr ist aus dem Stand nicht drin....“
Optionen

@PaoloP :
Vielen Dank für Deine Antwort - leider bin ich ihrer nicht würdig, weil : ich komm nicht klar...


For ZeileB1 = 3 To 150
For ZeileB2 = 3 To 150
If Worksheets(Sheets.Count).Range("B" & ZeileB1) = Worksheets(Sheets.Count - 1).Range("B" & ZeileB2) Then
Worksheets(Sheets.Count).Range(ZeileB1 & ":" & ZeileB1).Select
With Selection.Interior
.Color = 5287936
End With
End If
Next ZeileB2
Next ZeileB1

Die ist mein aktueller Code, welcher Spalte B von Blatt X innerhalb der Zeilen von 3 bis 150 mit Spalte B von Blatt X-1 vergleicht und bei gefundenen gleichen Werten die Zeilen in Blatt X farbig markiert.

In der genannten Excel-Mappe werden Woche für Woche Aufträge geprüft (für jede KW ein Blatt) und manuell um weitere Informationen ergänzt. Einige Aufträge aus der Vorwoche sind noch nicht erledigt -stehen also im aktuellen Blattmit drin-, andere sind erledigt und wiederum andere sind hinzugekommen.
Damit aber wirklich nur die neu hinzugekommenen Aufträge geprüft werden, benötige ich diese Funktion des Vergleichens und Kopieren/Einfügen.

Danke und Grüße.

bei Antwort benachrichtigen
Wo genau hakt es denn nun jetzt noch? Das sieht doch optisch erstmal gar ... Borlander
ActiveWorkbook.Worksheets Lieber ThisWorkbook verwenden - das bezieht sich ... Borlander
Da war was hinsichtlich der ThisObjects in Excel ich erinner mich. Es ist so ... PaoloP
@ Borlander : zu ActiveWorkbook.Worksheets : Danke - geändert . zu Wo hakt ... cosmo_kramer
Ich versteh dich nicht, du musst doch nur noch das da rausschmeissen: ... PaoloP
@PaoloP : Ich versteh das auch nicht ... wenn ich aus For ZeileB1 3 To 150 ... cosmo_kramer
Set wks1 ThisWorkbook.Worksheets Sheets.Count Set wks2 ... cosmo_kramer
Dieser Code erfüllt meine Wünsche : Sub Vergleich Set wks1 ... cosmo_kramer
Ich hab das hier jetzt mal durch Excel gejagt, und es geht. Private Sub ... PaoloP
@PaoloP: Du wirst wieder mit der Schulter zucken, aber ich habe Deinen Code ... cosmo_kramer
Das kann sein ja, die Auflistungsobjekte sind erstmal nur Variant und ByRef ... PaoloP