Das Archiv des Excel-Forums
2 dateien miteinander abgleichen
Betrifft: 2 dateien miteinander abgleichen
von: Ronny
Geschrieben am: 22.09.2003 10:20:12
hallo,
ich habe 2 dateien.
in datei A gibt es die Spalten: Anrede, Name, email, PLZ, Wohnort...
in datei B gibt es die Spalten: email, geburtsdatum
die spalte "geburtsdatum" aus datei B sollte sozusagen datei A ergänzen undzwar nach den email adressen geordnet, da diese die einzigsten erkennungsmerkmale sind.
auch kommt es in Datei B vor, dass die email adresse nicht komplett erfasst wurde.
zb. "HerbertMaier@t-on" (<-hier fehlt das "line.de")
mit nem makro hab ich es für eine zeile schon geschaft *gg*, wollte ne schleife drumherumbasteln aber das funzt nich so wirklich.
könnte mir jemand helfen, wäre wirklich sehr dankbar.
Betrifft: AW: 2 dateien miteinander abgleichen
von: Erich M.
Geschrieben am: 23.09.2003 08:59:48
Hallo Ronny,
wie wärs wenn du den Code ins Forum stellst?
mfg
Erich
Betrifft: AW: 2 dateien miteinander abgleichen
von: Ronny
Geschrieben am: 23.09.2003 09:48:19
ok,hier
Dim suchwort As Variant
Dim zelle As String
Dim zellen, zelle3, zelle4 As String
Dim i As Integer
For i = 1 To 13
Windows("netbislogon.xls").Activate
zelle = "A" + CStr(i)
Range(zelle).Select
suchwort = Range(zelle).Value
zellen = "B" + CStr(i) + ":" + "E" + CStr(i)
inhalt = Range(zellen).Value
Range(zelle).Select
Selection.Copy
Windows("user1999.xls").Activate
Cells.Find(What:=suchwort, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("C1:F1") = inhalt
Next i
thx
Betrifft: AW: 2 dateien miteinander abgleichen
von: Ronny
Geschrieben am: 23.09.2003 11:52:30
hiho,
und was mach ich jetzt, wenn das "suchfenster" in excel das gesuchte nicht findet?
sowas wie eine IF-abfrage?
da steht was von .activate - er kann ja aber die zelle nich aktivieren wenn er sie nicht findet.
also, bei nicht finden soll er einfach weiterspringen bzw. den nächsten durchlauf starten.
wie machen?
thx
Excel-Beispiele zum Thema " 2 dateien miteinander abgleichen"