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
@PaoloP : Vielen Dank für Deine Antwort - leider bin ich ihrer nicht ... cosmo_kramer
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
cosmo_kramer PaoloP „Da war was hinsichtlich der ThisObjects in Excel ich erinner mich. Es ist so das...“
Optionen

@ Borlander :
zu ActiveWorkbook.Worksheets :
Danke - geändert .

zu "Wo hakt es ?" :

Der Code "färbt" nur - das funktioniert gut !
For ZeileB1 = 3 To 150
For ZeileB2 = 3 To 150
If ActiveWorkbook.Worksheets(Sheets.Count).Range("B" & ZeileB1) = ActiveWorkbook.Worksheets(Sheets.Count - 1).Range("B" & ZeileB2) Then
ActiveWorkbook.Worksheets(Sheets.Count).Range(ZeileB1 & ":" & ZeileB1).Select
With Selection.Interior
.Color = 5287936
End With
End If
Next ZeileB2
Next ZeileB1

Er soll aber bei Übereinstimmung die komplette Zeile aus der "Vorwoche"(.Count - 1) auf die entsprechende Zeile der "aktuellen Woche"(.Count) kopieren, "damit aber wirklich nur die neu hinzugekommenen Aufträge geprüft werden".

Danke und Grüße.

bei Antwort benachrichtigen
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