title image


Smiley Re: Zwei Tabellen vergleichen und Zeilen anfügen
Hi Jens,



was heist "kommt dem schon ganz nah",

ich mein was stimmt noch nicht.



Also "Quelle" ist die in Excel geöffnete Textdatei, und "Ziel" ist

deine "Excel-Datei" die du überprüfen willst.

Du mußt also "Quelle" die geöffnete Textdatei zuordnen (Bsp. Nummern.txt)

Set Quelle = Workbooks("Nummern.txt").Sheets(1)



Dann noch "Ziel" deine Datei zuordnen

Set Ziel = Workbooks("Auftragsnummern.xls").Sheets(1)



Das mit dem Kopieren in eine neues Blätt ist schon möglich,

aber kopier doch das ganze Blatt, und lass dann das Makro laufen.

Bzw. erstell dir auf jeden Fall eine Sicherungskopie.



An Sonst hab ich noch was entdeckt, ich verwende ".Find" um nach den Nummern zu suchen, dabei suche ich aber nur nach Teilen in den Zelle.

Du könntest also die Ziele mit ".Find" durch die folgede ersetzen.

Set c = Ziel.Columns("A:A").Find(What:=Quelle.Cells(i, 1).Value, After:=Ziel.Cells(1, 1), LookIn:=xlFormulas, _

LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False)




Gruss Klapperstorch
----------------------------------------------------
Aus Felern lernt man oder...
Edjucashon isnt woerking

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: