Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien nach Tabelleninhalt sortieren

Dateien nach Tabelleninhalt sortieren
10.01.2008 13:58:28
Markus
Hallo zusammen,
hab alle Dateinamen eines Ordners mit einem Makro in eine Spalte eingelesen.
Muss diese Liste abgleichen mit anderen.
Ist es möglich in Excel, wenn ich eine vorhandene Liste mit Dateinamen habe das Excel alle Datein aus der Liste mit dem Inhalt des Ordners abgleicht die gefundenen Datein makiert oder mir die Datein, am besten in einen neuen Ordner kopiert.
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien nach Tabelleninhalt sortieren
12.01.2008 00:17:39
Chris
Servus Markus,
vielleicht hilft dir das weiter:

Sub File()
Dim Fso, DateiName
Dim strPfad As String
Dim iLauf As Integer
Dim lngLetzte As Long
lngLetzte = Range("A65536").End(xlUp).Offset(0, 0).Row
strPfad = ThisWorkbook.Path & "\" & "Vorhandene"
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad ' neuer Ordner wird angelegt
End If
For iLauf = 1 To lngLetzte
Set Fso = CreateObject("Scripting.FileSystemObject")
DateiName = ActiveWorkbook.Path & "\" & Cells(iLauf, 1)
If Fso.FileExists(DateiName) Then ' Prüfung auf Vorhandensein
Workbooks.Open DateiName
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\Vorhandene\" & Cells(iLauf, 1) ' _
Speichern in neuem Ordner
ActiveWorkbook.Close
End If
Next lauf
End Sub


Für dieses Beispiel muss der Code in das Tabellenblattmodul eingefügt werden, wo die Dateinamenliste (in der Art: xyz.xls) steht. In diesem Fall stehen die Dateinamen in Spalte A (Cells(iLauf,1)).
Die Datei muss in den zu durchsuchenden Ordner. Datei öffnen, Makro starten. Es werden im Ordner die Dateinamen verglichen, wenn vorhanden, dann kurz geöffnet und im neu angelegten Unterordner abgespeichert, dann wieder geschlossen.
Gruß
Chris

Anzeige

301 Forumthreads zu ähnlichen Themen

Datei öffnen - nach Zelleninhalt
Jens

Hallo,
Ich habe einen Ordner (C:/excel/muster) der mehrere Exceldateien enthält (auswahl.xls, 101.xls, 102.xls, etc.)
Nun möchte ich in der Datei auswahl.xls in der Zelle A1 eine Zahl eingeben, z.B. 101
und dann mit Klick auf Schaltfläche soll sich die Datei 101.xls in einem neuen F...
11.09.2008 11:29:25
Thread-ID: 1009049
4 Beiträge
Anzeige
Verzeichnis + Dateien nach Zellinhalt durchsuchen
Patrick

Hallo,
ich benötige bitte eure Hilfe.
Folgendes Problem treibt mich um:
Ich möchte ein festes Verzeichnis (c:\test - enthält nur xls.-Dateien) durchsuchen.
Und zwar möchte ich das bei allen enthaltenen Dateien überprüft wird, ob auf dem
Worksheet "Daten" in der Zelle G6 "DE"...
10.05.2011 14:57:44
Thread-ID: 1213837
4 Beiträge
Viele Dateien auslesen OHNE öffnen
Dietmar

Hallo zusammen,
habe folgenden Code, der auch recht zufriedenstellend funktioniert.
Diese liest fest definierte Zellen aus und überträgt sie Zeile für Zeile in das Auswertungssheet *Auswertung_KW20_2013_02*
Mein Problem:
Alle auszuwertenden Datein werden zunächst geöffnet und da...
20.05.2013 01:39:37
Thread-ID: 1313937
4 Beiträge
Anzeige
Suchen nach Inhalt der aktiven Zelle
A.

Hallo Leute, ich hoffe, ihr könnt mir helfen.
Wie muß das Makro aussehen, wenn ich in Tabelle1 den Inhalt der aktiven Zelle aus Tabelle2 suchen will?
Vielen Dank schon mal für eure Hilfe
mfG A. Schulz
26.06.2014 14:58:53
Thread-ID: 1367613
2 Beiträge
suchen nach Inhalten in einer Zeile
Markus Gerhartz

Hi,die folgende Makrofunktion bietet die Möglichkeit komplette Zeilen mit "bestimmten Inhalt" zu löschen. Funktioniert einwandfrei. Sub t()
Dim c As Range
Dim bereich As Range
Dim eingabe(10)
' löschzeilenwert festlegen
eingabe(1) = "hierLöschText1"
eingabe(2) = "hierLöschTex...
19.07.2002 16:00:41
Thread-ID: 138562
3 Beiträge
Dateien in Pfad suchen und nacheinander öffnen
Robin

Hallo Leute,
ich habe ein Programm geschrieben, wo manuell Dateien geöffnet und dann Daten importiert werden.
Nun will ich das Öffnen und Verarbeiten automatisieren.
Im Quellpfad soll nach Dateien mit dem Namensinhalt *Benutzer* gesucht werden.
Dann sollen alle Dateien nacheinan...
28.07.2014 09:36:43
Thread-ID: 1372657
3 Beiträge
Zeileninhalte nach Kriterien suchen
Zwilland

Hallo zusammen, für ein Inventory suche ich eine Formel die mir Zeileninhalte nach bestimmten Kirterien in einer Spalte sucht:
Ich möchte in der Zelle B1 Auszüge von Zeichenfolgen der Zeile anzeigen lassen, die in Spalte A mit folgenden Inhalt vorkommt: "Megabytes Usable Installed Memory"
27.04.2015 09:51:05
Thread-ID: 1423238
6 Beiträge
inhalt Listbox nach Auswahl von Textbox suchen
Textbox

Hallo Guten Morgen Forumer,
ich habe auf einer Userform eine Listbox und eine Textbox. Ich will wenn ich in die Textbox ein Wort eingebe, dass er mir die Listbox durchsucht. Gibt es eine Möglichkeit dazu?
Danke
05.01.2016 07:02:15
Thread-ID: 1467066
16 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
3
3
2
1
2
2
5
15
5
1
9
8
2
6
4
2
2
3
2
4
3
1
7