formel nur für vorhandene Einträge
22.02.2005 11:24:58
Anton
ich habe zwei Datei-Listen abzugleichen.
Dazu habe ich ein Makro, dass schon gut Funktioniert.
-Aber die Date wird riesig und es dauert ewig.-
Es sind halt zuviele leere Einträge die generiert werden.
Meine Datei-Listen sind sehr verschieden lang (aber > 65000 habe ich nie).
Ich möchte dass die Formel nur für die zellen generieren,
die in der Zelle nebenan einen Dateinamen haben.
Bitte helft mir weiter.
Danke
Euer Anton
PS: hier der bisherige Code:
Sub Dateien_vergleichen()
'Holen der gefundenen Server-Dateien von Tabelle1
Sheets("gefiltert_nicht_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("C2").Select
ActiveSheet.Paste
'Holen der der gebookmarkten Dateien von Tabelle2
Sheets("gefiltert_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("A2").Select
ActiveSheet.Paste
'Vorbereiten des Vergleichs-Blatt
'Setzen der Überschriften
Sheets("anwesenheitsprüfung").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("D1").Select
ActiveCell.FormulaR1C1 = "-leer-"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Fundstücke"
Rows("1:1").Select
Selection.Font.Bold = True
'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:E60000"), Type:=xlFillDefault
Range("E2:E60000").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:B60000"), Type:=xlFillDefault
Range("B2:B60000").Select
Columns("A:B").Select
Columns("A:B").EntireColumn.AutoFit
End Sub