Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblätter vergleichen, Abweichungen in jeweilige Tabellenblätter kopieren
 11.06.2012 17:12:44 Daniel
NotSolved
13.06.2012 11:00:34 Gast62186
NotSolved

Ansicht des Beitrags:
Von:
Daniel		 Datum:
11.06.2012 17:12:44		 Views:
2292		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter vergleichen, Abweichungen in jeweilige Tabellenblätter kopieren

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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblätter vergleichen, Abweichungen in jeweilige Tabellenblätter kopieren
 11.06.2012 17:12:44 Daniel
NotSolved
13.06.2012 11:00:34 Gast62186
NotSolved