AW: Tabellen vergleichen
22.02.2005 17:38:23
Anton
Hallo Eddi40
versuch's mal damit....
Bei mir vergleicht das tool Dateien, die ich vorher aus zwei verschiedenen Verzeichnissen hole.
Ich hoffe Du blickst da durch.
Servus,
Anton
Sub Dateien vergleichen()
'Vorbereiten des Vergleichs-Blatt
'Setzen der Überschriften
Sheets("Tabelle3").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "hier wird nach Dateien Gesucht"
Range("A1").Select
ActiveCell.FormulaR1C1 = "nach diesen Dateien wird gesucht"
Range("B1").Select
ActiveCell.FormulaR1C1 = "OK?"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Fundstücke"
Rows("1:1").Select
Selection.Font.Bold = True
'Holen der gefundenen Server-Dateien von Tabelle1
Sheets("Tabelle1").Select
Range("B1:B10000").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("C2").Select
ActiveSheet.Paste
'Holen der der gebookmarkten Dateien von Tabelle2
Sheets("Tabelle2").Select
Range("B1:B10000").Select
Selection.Copy
Sheets("Tabelle3").Select
Range("A2").Select
ActiveSheet.Paste
'einfügen der Vergleichs-Formel
'=SVERWEIS(A2;C:C;1;FALSCH)
Range("E2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],C[-2],1,FALSE)"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E10000"), Type:=xlFillDefault
Range("E2:E10000").Select
'einfügen der Gefunden-Formel
'=WENN(ISTLEER(A2);" ";WENN(ISTFEHLER(E2);"<= nix da";"<= gefunden"))
Range("B2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[-1]),"" "",IF(ISERROR(RC[3]),""<= nix da"",""<= gefunden""))"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B10000"), Type:=xlFillDefault
Range("B2:B10000").Select
End Sub