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
@ 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
PaoloP cosmo_kramer „Dieser Code erfüllt meine Wünsche : Sub Vergleich Set wks1...“
Optionen

Ich hab das hier jetzt mal durch Excel gejagt, und es geht.


Private Sub CommandButton1_Click()
For ZeileB1 = 3 To 50
For ZeileB2 = 3 To 50
If ActiveWorkbook.Worksheets(Sheets.Count).Range("B" & ZeileB1) = ActiveWorkbook.Worksheets(Sheets.Count - 1).Range("B" & ZeileB2) Then
CopyRowValues ActiveWorkbook.Worksheets(Sheets.Count - 1), ZeileB2, ActiveWorkbook.Worksheets(Sheets.Count), ZeileB1
End If
Next ZeileB2
Next ZeileB1
End Sub

Du hast die Sub CopyRowValues mit Klammern um die Parameter also als Funktion aufgerufen
geht auch okay wenn man ein Call davor setzt bzw. besser einfach die Klammern weg nehmen.

Jedes mal wenn jemand "Cloud" sagt, verliert ein Engel seine Flügel.
bei Antwort benachrichtigen
@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