Ich habe die folgende Frage auch schon in Spothligt-Forum gestellt, darauf aber nur eine, leider noch nicht zufriedenstellende Antwort, bekommen und zwar am 18.Feb. 2003, 10:00 Uhr.
Vor dem Ablauf meines „Such-Makros“ beträgt die Dateigrösse 530 KB, nach dem Aktivieren des Makros und abspeichern der Datei beträgt die Dateigrösse plötzlich 2.6 MB. Ich habe die Zellen nicht formatiert. Frage: „Was für eine Erklärung gibt es dafür?“
Nachfolgend nochmals einen Teil aus dem Makro:
'Blätter von bis werden nach dem Suchbegriff durchsucht
For n = 1 To bl
Set db = Sheets(n).Range(Bereich)
For Each Zelle In db
If InStr(Zelle.Value, Suche) <> 0 Then
Sheets(n).Activate
Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 5)).Copy _
Destination:=Sheets("Ergebnis").Cells(x, 3)
Vielen Dank zum Voraus für Eure Bemühungen.
Gruss Heinz