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
cosmo_kramer PaoloP „Ich versteh dich nicht, du musst doch nur noch das da rausschmeissen:...“
Optionen

@PaoloP :
Ich versteh das auch nicht ...

wenn ich aus
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

das mache :

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

bekomme ich einen Syntax-Fehler gemeldet in der Zeile.

Im Klartext :
Ich weiß nicht, was ich da machen kann. Ich bekomme Deinen Code nicht zum laufen in meiner Mappe.

Thats the Problem!
*schulterzuck*

Danke und Grüße.

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