Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
18.04.2024 15:00:48
Datum als Datum sehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert aus zwei Dateien vergleichen

Wert aus zwei Dateien vergleichen
11.10.2006 11:15:08
Mikey
Hallo Excelfreunde,
ich habe mal wieder eine Frage.
Ich habe ein Makro aufgezeichnet, das Daten aus einen Bericht in eine Datenbank übernimmt. Die zwei Dateien heißen(_Bericht.xls) und (Datenbank.xls).
Jetzt möchte ich aber bevor das Makro den Bericht überträgt folgendes überprüft.
Ist die Nr. die im Bericht immer in der Zelle "K2" steht gleich der Nr. die in der Datenbank immer in der letzten Zeile in der Spalte "J" steht. Wenn die Nummern gleich sind sollte das Makro weiterlaufen, wenn sie ungleich sind sollte eine Meldung kommen und das Makro abgebrochen werden.
Ich hoffe ich habe mich verständlich ausgedrückt und ihr könnt mir weiter helfen!
Vielen Dank im voraus für euer Bemühen!
Gruß
Mikey

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus zwei Dateien vergleichen
11.10.2006 12:14:11
Reinhard
Hi Mikey,
poste mal den Code...
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Wert aus zwei Dateien vergleichen
11.10.2006 13:04:33
Mikey
Hallo Reinhard,
ich habe schon etwas rumgebastelt, greife aber eben auf eine feste Zelle zu nicht auf die letzte ZEILE!!
If Workbooks("_Bericht.xls").Sheets("Tabelle1").Range("K2") Workbooks("_Makro Bericht Mini-PS Test.xls").Sheets("Datenbank").Range("J4") Then
Sub Makro2()
Dim MeldungI As String
MeldungI = "Abbruch"
'Bildschirm wird nicht aktuallisiert
' Application.ScreenUpdating = False
Windows("_Makro Bericht Mini-PS Test.xls").Activate
Sheets("Datenbank").Activate
'Datenbank sortieren
Columns("A:I").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'UserForm starten
UserForm1.Show
Sheets("Makro").Activate
ActiveWorkbook.Save
'Bericht Mini-PS wird geöffnen
Workbooks.Open FileName:= _
"\\lud\Aufgaben\Bericht MiniPS\_Bericht.xls"
If Workbooks("_Bericht.xls").Sheets("Tabelle1").Range("K2") Workbooks("_Makro Bericht Mini-PS Test.xls").Sheets("Datenbank").Range("J4") Then
MsgBox (MeldungI)
Exit Sub
End If
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A2:A34").FormulaR1C1 = "=RC[1]*1"
....
Ich hoffe du kannst mir weiterhelfen.
Gruß
Mikey
Anzeige
AW: Wert aus zwei Dateien vergleichen
11.10.2006 13:12:52
Reinhard
Hi Mikey,
anfangs des Codes:
Set wsT = Workbooks("_Bericht.xls").Sheets("Tabelle1")
Set wsD = Workbooks("_Makro Bericht Mini-PS Test.xls").Sheets("Datenbank")
ZeiD = wsD.Range("J65536").End(xlUp).Row ' letzte Zeile in J von wsD
dann kannst du später mit kürzeren Zeilen arbeiten:
If wsT.Range("K2") wsd.Range("J" & ZeiD) Then
oder auch
With wsT
If .Range("K2") wsD.Range("J" & ZeiD) Then
'...
End If
End With
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Wert aus zwei Dateien vergleichen
11.10.2006 13:37:21
Mikey
Hallo Reinhard,
ich habe den Code in mein Makro eingebaut, leider kommet jetzt eine Fehlermeldung
Fehler beim Kompilieren: Methode und Datenbank nicht gefunden! es wird dann folgendes markiert:
wsd.Range im Code
Zeid = wsd.Range("J65536").End(xlUp).Row ' letzte Zeile in J von wsD
Kannst du mir noch sagen was fehlt?
Vielen Dank
Mikey
Anzeige
AW: Wert aus zwei Dateien vergleichen
11.10.2006 13:50:34
Reinhard 

Hi Mikey,
schreibe mal
Option Explicit
zualleroberst in das Modul, also oberhalb der Sub, dann werden die Variablenschreibweise
geprüft und du wirst gezwungen Dim zu benutzen. Tipp: Schreibe den ersten Buchstaben
aller Variablen in der Dim Anweisung groß. Wenn du dann im Code die Variablen eingibst
und der erste Buchstabe wird nicht automatisch groß gemacht (nach Verlassen der Zeile)
hast du sie falsch geschrieben.
Wenn dann der Fehler immer noch kommt liegt es wohl an deiner Excelversion. melde dich
dann nocmal und poste den kompletten neuen Code.

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Wert aus zwei Dateien vergleichen
11.10.2006 14:03:53
Mikey
Hallo Reinhard,
leider kommt der fehler immer noch!!!
Ich habe das wie folgt eingegeben:
Dim MeldungI As String
Dim WsT As Workbooks, Wsd As Workbooks
Set WsT = Workbooks("_Bericht.xls").Sheets("Tabelle1")
Set Wsd = Workbooks("_Makro Bericht Mini-PS Test.xls").Sheets("Datenbank")
Zeid = Wsd.Range("J65536").End(xlUp).Row ' letzte Zeile in J von wsD
Hast du noch eine Idee?
Danke für dein Bemühen
Gruß
Mikey
AW: Wert aus zwei Dateien vergleichen
11.10.2006 23:26:52
Reinhard
Hi Mikey,
Dim MeldungI As String
Dim WsT As Worksheet, WsD As Worksheet, ZeiD as long
Set WsT = Workbooks("_Bericht.xls").Sheets("Tabelle1")
Set Wsd = Workbooks("_Makro Bericht Mini-PS Test.xls").Sheets("Datenbank")
Zeid = Wsd.Range("J65536").End(xlUp).Row ' letzte Zeile in J von wsD
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
Vielen Dank
12.10.2006 07:34:31
Mikey
Hallo Reinhard,
vielen DANK für die Geduld mit mir. Jetzt läuft es wie es sein sollte.
Gruß
Mikey

43 Forumthreads zu ähnlichen Themen

2 Zellen aus verschiedenen Dateien vergleichen
Joni

Hi,
ich sollte die Werte aus 2 Zellen aus verschiedenen Dateien miteinander vergleichen und verwende dafür folgende Zeile:
If .Cells(j, 2) = Workbooks(DNSB).Worksheets(Bericht1).Cells(jj, 2) Then
Leider erhalte ich immer eine Fehler. Ich habe auch schon andere Varianten probiert. Do...
08.06.2009 00:57:53
Thread-ID: 1079774
8 Beiträge
Anzeige
2 Tabellen aus 2 Dateien miteinander vergleichen
Frank

Hallo zusammen,
Ich habe hier noch mal was für die Excel Cracks
Ausgangslage:
Protokolldatei (in dieser Datei befinden sich die Makros; und letztendlich die kopierten Zeilen in denen Unterschiede gefunden wurden)
Aus der Protokolldatei heraus (Datei1 Tabelle Monat07; Datei2 Tabe...
10.09.2009 02:30:35
Thread-ID: 1101552
2 Beiträge
zwei Dateien vergleichen
Selina

Guten Tag !
Ich stehe vor einem bisher für mich unlösbaren Problem. Zwar bin ich auf meiner Suche zu unzähligen ähnlichen Posts gestossen, allerdings fand ich bisher die beste Lösung noch nicht :-(
Und zwar gehts um folgendes:
Ich möchte mittels einem Makro zwei Excel Dateien zusamm...
12.12.2011 12:40:17
Thread-ID: 1241670
18 Beiträge
Anzeige
Zwei Dateien Vergleichen und Differenz berechnen
Nina

Hallo zusammen!
Ich habe jetzt schon eine ganze Weile ein Problem in der vba-Programmierung. Leider habe ich noch nie vba programmiert :(
Es geht um folgendes: Ich möchte zwei Excel-Dateien auswählen (vllt über eine Dialog-Box oder der Benutzer muss diese einfach von vorn herein geöffne...
14.03.2013 15:52:45
Thread-ID: 1304012
15 Beiträge
Excel 2010-Dateien vergleichen - alte Mitglieder e
Ardona

Guten Abend
Ich habe alte Tabellen aus verschiedenen Regionen, wo die Mitglieder wie folgt gelistet sind:
Nachname (Spalte A), Vorname (Spalte B), E-Mail-Adresse (Spalte C), Herr oder Frau (Spalte D), Stasse (Spalte E) etc.
Die Mitglieder sind alphabetisch von A-Z (Spalte A) geordne...
19.07.2013 14:38:35
Thread-ID: 1323256
3 Beiträge
Zellen inhalte zwischen 2 Dateien vergleichen
HerrA

Hallo zusammen,
kann mir jemand helfen?
Ich habe in einer Datei einen Wert in einer Zelle stehen. Nun soll in einer anderen Datei (immer die Gleiche) die Zeilen nach dem Wert (der immer in der gleichen Spalte C steht) durchsucht werden. Sobald in der Spalte C der Wert gefunden wurde sol...
01.04.2014 12:47:45
Thread-ID: 1355664
6 Beiträge
2 Dateien vergleichen
Thomas

Hi,
hab da wieder mal ne frage^^
ich hab zwei Dateien.
Datei 1 wurde am Montag angelegt, da sind sehr viele Werte, text, etc hinterlegt.
Datei 2 wurde am Mittwoch angelegt, da sind manche Werte, texte etc von Montag verändert worden, manche nicht, es sind aber auch neue dazu gek...
14.04.2014 12:04:24
Thread-ID: 1357227
6 Beiträge
2 Dateien vergleichen
Michael

Hallo!
Folgendes Problem hab ich. Ich muss 2 Tabellen miteinander vergleichen.
Tabellen Blatt 1 (meine aktiven Angebote)
Spalte A: EAN Code
Spalte B; Warenbeschreibung
Tabellen Blatt 2 (Bestand des Großhändlers)
Spalte A: EAN Code
Spalte B: Warenbeschreibung
Spal...
24.12.2014 10:53:27
Thread-ID: 1399520
2 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
14
1
17
5
14
2
5
5
1
1
8
2
1
9
4
2
4
12
3
2
6
1
9
9