Datei-Listen untereinander
14.03.2005 16:01:49
Anton
mein Problem:
Ich möchte die Ergebnisse verschiedener Datei-Suchen untereinander Listen lassen.
---------Vorgeschichte:------------------
In Modul1 sind die Angaben was wo gesucht werden soll.
In Modul2 werden die Dateien gelistet und doppelte ausgefiltert.
In Modul3 werden die Dateinamen per "SVERWEIS" verglichen.
Schließlich kann ich dann per Autofilter die "neuen Dateien" per Link bearbeiten.
40 verschiedene Datei-Suchen kann ich so per Auswahl auf das selbe Ergebnis-Blatt ausgeben lassen.
--------Wie gesagt... funzt einzeln erstklassig.---------
Jetzt möchte ich alle Gleichzeitig suchen lassen und Auf meinem Ergebnis-Blatt untereinander listen lassen.
Das hier ist der Code, der bei jedem Suchdurchgang die gefundenen Dateinamen auf die Ergebnis-Seite stellt:
Sub b5_Dateien_nebeneinander()
'Holen der gefundenen Server-Dateien von Tabelle1
Sheets("gefiltert_nicht_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("A4").Select '<= Diese Angabe bestimmt den Anfang der ersten Datei-
' Liste und soll ersetzt werden.
ActiveSheet.Paste
'Holen der der gebookmarkten Dateien von Tabelle2
Sheets("gefiltert_gebookmarkt").Select
Range("A3:A60000").Select
Selection.Copy
Sheets("anwesenheitsprüfung").Select
Range("C4").Select '<= Diese Angabe bestimmt den Anfang der zweiten Datei-
' Liste und soll ersetzt werden.
ActiveSheet.Paste
Sheets("Suchparameter").Select
End Sub
Der folgende Code ist von Bert Körn:
Sub Letzte_Zeile()
lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lZeile
End Sub
...und liefert die korrekte Zahl der letzten benutzten Reihe.
Das Ergebnis dieser Msg-Box plus 1 soll die erste Zeile der nächsten Abfrage sein.
------------Schwierigkeit: -----------
Zeile 1 bis 3 ist gefüllt mit Überschriften und Command-Buttons; deshalb wird unterhalb fixiert.
--------------------------------------
Ich krieg' es heute einfach nicht gebacken... bitte helft mir mal auf die Sprünge.
Vielen Dank,
Euer Anton