Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien nach Tabelleninhalt sortieren

Forumthread: 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

Anzeige

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
;

Forumthreads zu verwandten 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
Datei suchen = Zellinhalt gleich Dateiname
Bernd

Guten Morgen liebe EXCEL-User
Ich habe folgendes Problem: Zum kopieren von Daten zwischen 2 Dateien definiere ich in der Startdatei den Namen der zu öffnenden Datei (dieser ändert sich nach dem abschließenden Speichern der Startdatei!). Wenn diese im angegebenen Zielverzeichnis vorhanden is...
07.11.2008 10:15:00
Thread-ID: 1022558
2 Beiträge
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
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
Anzeige
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
Anzeige
Daten aus anderer Datei suchen und in Userform
Patrick

Hallo,
Erstmal...habe es schon in einem anderen Forum versucht, leider keine Antwort dazu bekommen :( vielleicht kann mir hier jemand helfen.
Habe eine Datei mit einer Userform und einem Listenfeld.
Wenn man einen Eintrag im Listenfeld anklickt, so erscheint die Nummer aus der erste...
15.02.2017 21:05:13
Thread-ID: 1541824
2 Beiträge
Exceldatei per Eingabefeld nach Inhalt durchsuchen
Codexfree

Hallo liebe Experten,
ich habe folgendes Problem, bei welchem ich keine Lösung habe:
Ich möchte alle Exceldateien eines zuvor in einem Eingabefeld angegebenen Pfades und alle enthaltenen Tabellenblätter per "Freitextsuchfunktion" nach einem eingegebenen Suchbegriff durchsuchen.
Ansc...
06.07.2017 12:59:53
Thread-ID: 1567684
10 Beiträge
Zellen durchsuchen nach Teilinhalt
Rolf

Hallo Forum,
In meinem Zellenbereich möchte ich Suchen nach: "Abecken"
Es ist manschmal Gross geschrieben, manschmal klein und Irgendwo zwischen anderen Wörtern (...um Abecken auszuführen...)
Wie lautet das VBA um die Zellen zu Suchen?
Wenn das Wort in der entsprechenden Zelle n...
24.06.2004 11:40:02
Thread-ID: 445338
3 Beiträge
Anzeige
Zeichenfolge suchen und benachbarte Inhalt löschen
Frank

Hallo, ich benötige mal wieder eure Hilfe.
Ist es möglich mit einem Makro in Spalte A nach eine bestimmten Zeichenfolge z.B.Besucher zu suchen
und den Inhalt selbst und den Inhalt der zwei darüberliegenden Zellen und der zwei darunterliegenden Zellen zu löschen?
Diese Zeichenfolge...
03.06.2006 10:18:03
Thread-ID: 769949
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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