Hallo,
ich bin ziemlich unbeholfen in Sachen VBA-Syntax, müsste aber schnellstmöglich folgendes Problem lösen:
1.) Zeileninhalte von Tabellenblatt1 (TB1) mit Tabellenblatt2 (TB2) vergleichen (Spalten A und G bilden dabei jeweils das Vergleichskriterium, Zeilen 3 bis 3000 sind relevant für den Vergleich)
1.1) Neuer datensatz in TB1 vorhanden, jedoch nicht in TB2, dann Zeile in TB2 an selbe Stelle wie in TB1 kopieren, nachfolgende Zeilen um eins nach unten verschieben
1.2) Neuer datensatz in TB2 vorhanden, jedoch nicht in TB1, dann Zeile in TB1 an selbe Stelle wie in TB2 kopieren, nachfolgende Zeilen um eins nach unten verschieben
Hier vllt. ein Ansatz in (schlechtem) pseudocode:
int i=0; // i entspricht Zeile in TB1
int j=0; // j entspricht Zeile in TB2
for(i=3; i<= TB1.length; i++){
for(j=3; j<= TB2.length; j++){
if(i!=j){
füge neue zeile an Position j ein;
copy i an position j;
}elseif(j!=i){
füge neue zeile an Position i ein;
copy j an position i;
}else{
msgbox: keine Abweichungen gefunden!
}
}
}
TB1 und TB2 sind also fast identisch.
TB1, Zeile1, Spalte A + G sollen TB2, Zeile1, Spalte A + G entsprechen.
Wird eine Abweichung gefunden, dann kopiere die komplette Zeile.
Falls ich zu schwammig formuliert habe, versuche ich es gerne noch einmal.
Vorab vielen Dank!
|