Programmieren - alles kontrollieren 4.935 Themen, 20.621 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
PaoloP cosmo_kramer „@PaoloP : zu 1. Es wird Spalte B des letzten 9.KW mit dem vorletzten 8.KW...“
Optionen

Sicher nicht die eleganteste Lösung aber mehr ist aus dem Stand nicht drin.
Benutzt sich hoffentlich Selbsterklärend. Ungetestet.


Private Sub CopyRowValues(SourceSheet As Excel.Worksheet, lRowSourceIndex As Long, _
DestinationSheet As Excel.Worksheet, lRowDestIndex As Long)


Dim rSource As Excel.Range
Set rSource = SourceSheet.Rows(lRowSourceIndex)
Dim rDest As Excel.Range
Set rDest = SourceSheet.Rows(lRowDestIndex)

Dim rCell As Excel.Range

For Each rCell In rSource.Cells

rDest.Cells(, rCell.Column).Value = rCell.Value

Next rCell


End Sub

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