Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenvergleich

Tabellenvergleich
11.07.2002 11:42:44
Juergen
Hallo Excel-Spezialisten!

Da ich noch nicht recht beschlagen in der VBA Programmierung bin, eine Frage:
Wie kann man die Feldinhalte zweier Excel-Tabellen miteinander vergleichen und die abweichenden Felder in eine dritte Tabelle schreiben lassen?

Ist so etwas generell eigentlich möglich?

Vielen Dank im voraus!!

Gruß,

Jürgen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenvergleich
11.07.2002 14:29:04
L.Vira
Klar, möglich ist fast alles, das hängt von der Anzahl der Zellen ab, die verglichen werden müssen, damit das noch einigermaßen schnell geht.
Re: Tabellenvergleich
12.07.2002 15:40:35
Juergen
Hallo L.Vira!

Konkret handelt es sich um eine Tabelle mit 47 Spalten und 300 Zeilen. Alle paar Wochen bekomme ich Änderungen über eine neue Tabelle, leider ohne Angaben, in welchen Zellen sich etwas geändert hat.

Es gibt ja den nachfolgenden Code hier auf der Homepage, der sich auf Textdateien bezieht:

Sub Vergleich()
Dim lngCounter As Long
Dim strPath As String, txtA As String, txtB As String
strPath = "c:\temp\"
Open strPath & "test1.txt" For Input As #1
Open strPath & "test2.txt" For Input As #2
Open strPath & "test3.txt" For Output As #3
Do Until EOF(1)
lngCounter = lngCounter + 1
If lngCounter Mod 10000 = 0 Then
Application.StatusBar = "Bearbeite Zeile " & lngCounter
End If
Line Input #1, txtA
Line Input #2, txtB
If txtA <> txtB Then
Print #3, txtA
End If
Loop
Close
Application.StatusBar = False
End Sub


Nur wie ich den zur Anwendung auf Excel-Dateien umschreibe, übersteigt meine VBA Kenntnisse.

Die umwandlung in txt Dateien wäre möglich, eleganter wäre aber der Vergleich in Excel...

Vielleicht weißt Du Rat?

Danke nochmals,

Gruß,

Jürgen

Anzeige
Re: Tabellenvergleich
13.07.2002 16:23:36
L.Vira
Jetzt kommst noch darauf an, wie der Vergleich dargestellt werden soll. Am einfachsten, wäre es mit bedingter Formatierung.
Wenn du allerdings z.B. die Zelladresse o.Ä. irgendwie protokollieren willst, geht das damit nicht.
Gib mal Meldung, wie das passieren soll.
Re: Tabellenvergleich
13.07.2002 18:45:31
L.Vira
Wenn du willst, maile ich dir mal ein Beispiel.
Re: Tabellenvergleich
15.07.2002 09:02:12
Juergen
Hallo L.Vira!

Danke für Deine Antwort!
Zu der Art des Vergleichs: Wegen dem Umfang der Daten wäre es zwar schon praktisch, die Zelladressen zu protokollieren.
Wenn das aber zu viel Aufwand darstellt, könnten auch nur die Zeilen ausgegeben werden, die Veränderungen beinhalten.

Bringen die spärlichen Angaben etwas mehr?

Gruß,

Jürgen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige