Tabellen Vergleiche Makrproblem

Bild

Betrifft: Tabellen Vergleiche Makrproblem
von: Thorsten
Geschrieben am: 09.12.2003 10:16:53

Hi,

ich habe eine sehr kniffelige Aufgabe zu lösen und sämtliche meiner Versuche sind bisher gescheitert. Deswegen würde ich mich sehr freuen, wenn von euch vielleicht jemand eine gute Idee hätte.
Und zwar geht es darum, dass ich Spalten aus zwei Tabellenblätter (Tabelle2 und Tabelle3) miteinander vergleichen möchte.

Meine Tabellen sehen wie folgt aus:

Tabelle1
ABCDEFGHIJKLMNOPQ
1abcdeSerienummer1xyzDatum1axxxcdeb1
2kkkkvSerienummer2assDatum2kxxxkkvk2
3dmgnlksadöfmäösdgmpsemgsäpgmSerienummer3dfqweqwDatum3dmgnlksxxxäösdgmpsemgsäpgmadöfm2
4prgkmsprgmsüprgpsgrsümSerienummer4fefeqfwdeqwwqDatum4prgkmxxxsüprgpsgrsümsprgm2
Tabelle2
ABCDEFGHIJKLMNOPQ
1abcdeSerienummer1xyzDatum1a40781900cdeb1
2kkkkvSerienummer1assDatum1k40782000kkvk1
3dmgnlksadöfmäösdgmpsemgsäpgmSerienummer1dfqweqwDatum1dmgnlks40782500äösdgmpsemgsäpgmadöfm1
4prgkmsprgmsüprgpsgrsümSerienummer1fefeqfwdeqwwqDatum1prgkm40782000süprgpsgrsümsprgm1
5XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
6dmgnlksadöfmäösdgmpsemgsäpgmSerienummer3dfqweqwDatum3dmgnlks40782000äösdgmpsemgsäpgmadöfm1
7prgkmsprgmsüprgpsgrsümSerienummer4fefeqfwdeqwwqDatum4prgkm40782000süprgpsgrsümsprgm1
Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 2.0 Download Konkret soll das Makro folgende Aufgabe erfüllen: Es vergleicht jeweils die Spalten F und J miteinander und soll die Übereinstimmungen finden (Z.B. F1 und J1 entsprechen in Tabelle3 F5 und J5). Das klappt soweit. Nun kommt aber das entscheidene Problem: Abhängig von dem Eintrag in Spalte Q des Tabellenblattes2 dürfen auf dem Tabellenblatt 3 nur bestimmte Eintragungen stehen. Das heißt: steht in Q in Tabellenblatt2 eine 1, dann darf auf Tabellenblatt 2 die entsprechende Seriennummer und das Datum auf Tabellenblatt3 in einer Zeile stehen, wenn in der Spalte L der Wert 40781900 steht Taucht eine Weitere Zeile mit gleichem Wert in F und J auf (verglichen mit Tabelle2), so soll die entsprechende Zeile rot makiert werden. steht in Q in Tabellenblatt2 eine 2, dann darf a)auf Tabellenblatt 2 die entsprechende Seriennummer und das Datum auf Tabellenblatt3 in 2 Zeilen stehen, wenn in der jeweiligen Spalte L der Wert 40781900 steht b) auf Tabellenblatt 2 die entsprechende Seriennummer und das Datum auf Tabellenblatt3 in 1 Zeile stehen, wenn in der jeweiligen Spalte L der Wert 40782000 steht. Taucht eine Weitere Zeile mit gleichem Wert in F und J auf (verglichen mit Tabelle2), so soll die entsprechende Zeile rot makiert werden. (hoffe, das ist einigermaßen verständlich). Hat jemand eine Lösung, wie man das Umsetzten kann? Meine Idee das per Makro zu lösen funktioniert nicht... mein Makro sieht wie folgt aus:
Sub Thorsten() Dim EndeA As Integer Dim I As Integer Dim j As Integer Dim intRow As Integer EndeA = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row EndeB = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row For I = 1 To EndeA For j = 1 To EndeB Select Case Worksheets("Tabelle2").Cells(I, 17).Value Case "1" If Sheets(2).Cells(I, 6) = Sheets(3).Cells(j, 6) _ And Sheets(2).Cells(I, 10) = Sheets(3).Cells(j, 10) And _ Sheets(3).Application.CountIf(Columns("F"), Cells(j, 6)) > 2 And _ Sheets(3).Cells(j, 12).Value <> "40781900" Then Sheets(3).Rows(j).Interior.ColorIndex = 3 End If End Select Next Next Thorsten2 End Sub Sub Thorsten2() Dim EndeA As Integer Dim I As Integer Dim j As Integer EndeA = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row EndeB = Worksheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row For I = 1 To EndeA For j = 1 To EndeB Select Case Worksheets("Tabelle2").Cells(I, 17).Value Case "2" If Sheets(2).Cells(I, 6) = Sheets(3).Cells(j, 6) _ And Sheets(2).Cells(I, 10) = Sheets(3).Cells(j, 10) And _ Sheets(3).Application.CountIf(Columns("F"), Cells(j, 6)) > 1 And _ Sheets(3).Cells(j, 12).Value = "40782000" Then Sheets(3).Rows(j).Interior.ColorIndex = 3 End If End Select Next Next If Sheets(3).Cells(j, 12).Value <> "40782000" And Sheets(3).Cells(j, 12).Value <> "40781900" Then Sheets(3).Rows(j).Interior.ColorIndex = 3 End If End Sub
Code eingefügt mit Syntaxhighlighter 2.5 Wäre wirklich nett, wenn mir da jemand weiter helfen könnte, bin mit meinem Latein am Ende. LG T.
Bild


Betrifft: AW: Tabellen Vergleiche Makrproblem
von: Karl-Otto Reimann
Geschrieben am: 09.12.2003 10:42:33

Hallo Thorsten
http://www.synkronizer.com
Viel Spaß KO


Bild


Betrifft: Danke, hilft aber nicht weiter
von: Thorsten
Geschrieben am: 09.12.2003 11:11:32

.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellen Vergleiche Makrproblem"