Thema Datum  Von Nutzer Rating
Antwort
Rot Datensätze vergleichen & Laufzeit
 05.09.2012 08:44:55 Gunther
NotSolved

Ansicht des Beitrags:
Von:
Gunther		 Datum:
05.09.2012 08:44:55		 Views:
2601		 Rating:
     
Antwort:
  Ja
Thema:
Datensätze vergleichen & Laufzeit

Hi,

ich habe ein Problem mit der Laufzeit meiner Anwendung. Ich möchte aus zwei Tabellenblätter die Datensätze miteinander vergleichen und dann die übereinstimmenden Datensätze in ein neues Tabellenblatt schreiben.
So sind meine Tabellenblätter aufgebaut:
Tabellenblatt 1:
Spalte 1 | Spalte 2 | Spalte 3 | ....
KundenNr | Name | Vorname |....

Tabellenblatt 2:
Spalte 1 | Spalte 2 | Spalte 3 | ....
Straße | PLZ | KundenNr |...

Neues Tabellenblatt 3:
Spalte 1 | Spalte 2 | Spalte 3 | ....
KundenNr | Name | Straße |....

Bisher habe ich es mit zwei Schleifen und eine IF-Abfrage gelöst.
z.B.:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For i = 1 To AnzahlZeilenTabellenblatt1
For j = 1 To AnzahlZeilenTabellenblatt2
If Tabellenblatt1.Cells(i,1) = Tabellenblatt2.Cells(j,1) Then
Tabellenblatt3.Cells(i,1) = Tabellenblatt1.Cells(i,1)
Tabellenblatt3.Cells(i,2) = Tabellenblatt1.Cells(i,2)
Tabellenblatt3.Cells(i,3) = Tabellenblatt2.Cells(j,1)
Else
End If
Next j
Next i
 
Das funktioniert auch grundsätzlich, nur ist die Laufzeit extrem lang, wenn viele Datensätze vorhanden sind. Und eigentlich sind die Tabellenblätter in unterschiedlichen Excel-Dateien enthalten (bisher kopiere ich zuerst ein Tabellenblatt in eine der Dateien und lösche nach der Abfrage das Tabellenblatt wieder.
 
 Jetzt meine Frage: Gibt es eine einfachere/schnellere Möglichkeit die Datensätze miteinander zu Vergleichen und in ein neues Tabellenblatt zu schreiben?
 
 Vielen Dank
 LG Gunther

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Datensätze vergleichen & Laufzeit
 05.09.2012 08:44:55 Gunther
NotSolved