Kann mir jemand helfen ? Bräuchte dies dringend. Danke im voraus
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
Sub Seite_speichern()
Sheets("Tabelle3").Select 'erstmal zur Ergebnis-Seite
Cells.Select 'alle Zellen markieren
Selection.Copy 'Markierung kopieren
Workbooks.Add 'neue Excel-Datei
ActiveSheet.Paste 'Kopie einsetzen
Application.CutCopyMode = False 'Klemmbrett löschen
Application.Dialogs(xlDialogSaveAs).Show 'Speichern-Unter-Dialog anzeigen
End Sub