21. 04. 2011, 10:25
# 1
MOF User
Registrierung: 11. 11. 2009
Karma:
VBA - Dateien auf Laufwerk suchen
Hallo liebe Gemeinde,
ich suche mir hier den Wolf um mittels VBA ein bestimmtes Laufwerk zu durchsuchen und in einer Liste alle Treffer mit Dateiort aufzulisten. Problem: ich kann nicht nach einem Dateinamen suchen sondern muß eine Variante wählen, nach der ich den Inhalt, oder Teilinhalt, einer bestimmten Zelle auslesen muß. Die Dateinamen können u. VBA - Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen - MS-Office-Forum. U. geändert worden sein wesahlb ich das mit dem Inhalt machen muß. - suche in Laufwerk D:\ nach Exceldatei mit dem Inhalt hilfe in Zelle B5 Tabelle1
- trage den Fundort in nächster freier Zeile der Scriptdatei ein. - Wenn keine Treffer mehr gebe Meldung ( msgbox)
Hat das schonmal jemand gemacht?? vielen Dank
vbanewcomer
21. 2011, 16:49
# 2
MOF Guru
Registrierung: 08. 12. 2006
Hallo vbanewcomer,
folgendes Makro durchsucht das gesamte Laufwerk D mit allen Unterordnern nach Exceldateien. Es werden nur Exceldateien bis einschließlich Excelversion 2003, also solche mit der Dateiendung "" berücksichtigt.
Excel Vba Datei Suchen In Berlin
Print & " ist eine Exceldatei" 'mach was mit der Datei
End If
Loop
Function IsInArray(str As String, arr As Variant) As Boolean
IsInArray = ( UBound (Filter(arr, str)) > - 1)
End Function
Wie du dann mit den Exceldateien weiter arbeitest musst du wissen
Excel Vba Datei Suchen Download
Das mag hin und wieder durchaus ausreichend sein – und falls sich der Dateiname oder das Verzeichnis mal ändern, kann man natürlich den Code entsprechend anpassen oder das Makro neu aufzeichnen. Wirklich praktisch ist das aber nicht, schöner wäre es, wenn der Code variabel ist. Und genau das möchte ich Ihnen nun zeigen. [adcode categories="office, excel"]
Variabler Code
Nehmen wir an, die Datei kommt täglich (aus irgendeiner anderen Software o. ä. ) und hat das jeweilige Datum im Dateinamen. Die Dateien sollen beispielsweise "" heißen. Excel vba datei suchen program. Wenn wir als einfachsten Fall annehmen, dass einmal am Tag die Datei genau dieses Tages ausgewertet werden soll, könnte man das Systemdatum verwenden. Die Prozedur sähe dann – incl. der notwendigen Datumsumwandlung – wie folgt aus:
Sub Makro2()
datum = date()'liefert das aktuelle Systemdatum, entspricht der Excel-Funktion HEUTE()
datum = format(datum, "yyyymmdd") ' formatiert das Datum in einen Text, der dem notwendigen Format entspricht
Filename:="C:Daten" & datum & "" ' baut das Datum in den Dateinamen ein
PS: Wenn Sie mehr Tipps im Umgang mit Excel erhalten möchte, empfehle ich Ihnen meine Office 2010 Tutorial-Filme
PS: Qualitätsmanagement ist uns wichtig!
Excel Vba Datei Suchen Video
Freue mich auf Eure Vorschläge,
Beste Grüße
Thomas
27. 2013, 19:21
# 2
MOF Guru
Registrierung: 17. 05. 2008
Hallo Thomas,
so wie ich das lese kennst Du Dich Klasse in VBA aus. Dann dürfte das ein Ansatz sein. __________________
Signatur in jedem Beitrag
Bitte Version angeben. Excel vba datei suchen 1. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Fragen werden im Forum beantwortet, nicht per PN. 28. 2013, 13:42
# 3
Threadstarter
Erstmal habe ich meine Kentnisse in VBA dank dieses Forums erweitern können, muss man mal sagen! Dein Skript sieht schonmal KLASSE aus. Ich habe schon einen Ansatz wie ich damit arbeiten könnte, allerdings würde ich gerne wissen wie ich eine spezielle IF Bedingung machen kann, nach dem Schema:
If = [ALLE Strings in den Zellbereichen A2 bis A10 kommen in Betrach] Then
[... ]
Ich möchte ja bestimmte Ordner ausschließen und in den Zellbereichen A2 bis A10 möchte ich nur die Namen der Ordner angeben die durchlaufen werden sollen.
Excel Vba Datei Suchen 1
i=5
Ich referenziere die Arbeitsblätter. Set ws1=Worksheets ("Auswertung")
Set ws2=Worksheets ("Basisdaten")
Im Blatt "Auswertung lösche ich bisherige Suchergebnisse. Dafür wähle ich den Bereich von A5:L4000. Warum bis L4000? Um sicher zu gehen, dass dort keine Informationen mehr stehen. Excel VBA: Datei öffnen - so geht's - CHIP. Der zu löschende Bereich kann auch kleiner oder größer gewählt werden. Range("A5:L4000"). ClearContents
Die Suchprozedur
Ich teile dem Makro jetzt mit, wo der Suchbegriff "strSuch" zu finden ist. ("B2")
Jetzt wird die Fundzelle / -bereich referenziert und die Suchanweisung gegeben. Set ("A7:A59″)(what:=strSuch, LookIn:=xlValues, LookAt:=xlWhole)
Wenn nichts mehr gefunden wird: If Not rngFund Is Nothing Then
setze die erste Adresse als dress
Bedingung, nur wenn Zugangskontrolle: If (0, 6)="X" Then
Das soll jetzt getan werden: Do
(0, 1)
(0, 2)
(0, 3)
(0, 4)
(0, 6)
Offset ist das Pendant in VBA zu RSCHIEBEN in Excel. Die Anweisung zu strGef bedeutet, gehe von der Fundzelle (rngFund) 6 Spalten nach rechts (0 Zeilen, 6 Spalten).
Also die Ordnertiefe kann sehr lang sein. Jetzt wollte ich nur bestimmte Ordner rekursiv durchlaufen, zb Berta und Caesar. Excel vba datei suchen download. Und die die ich durchlaufen wollte, wollte ich bequem per Tabelleneingabe festlegen, die Informationen dazu waren in den Zellen A1-A28. Mittlerweile habe ich eine For Schleife gebaut, die einfach die Zellen durchgeht und wenn da ein Ordnername steht, diesen Ordner auch durchsucht.
Dafür möchte ich mich bei allen Mitgliedern unserer Abteilung für Ihre Unterstützung und Kooperation in diesem doch nicht einfachen Jahr bedanken! Ich wünsche Ihnen und Ihren Familien fröhliche und besinnliche Weihnachten sowie ein gesundes und erfolgreiches neue Jahr! Schöne Feiertage und bleiben Sie alle gesund! Beitrags-Navigation
Basketballverein Berlin Mitte Business Circle
V.
Lachshuhnweg 17b
++0049-30-6639461
U Rudow / Bus 271
Mo 20. 15-21. 45 Uhr, Do 20-21. 45 Uhr
Training: Sportplatz Treseburger Ufer
SV Blau gelb Berlin
Gustav-Adolf-Straße 66
++0049-30-92091798
Weißensee
Bus 156 / Tram 13, 23
Mi 19. 30-21 Uhr, Fr 19-20. 30 Uhr
Training: Sportplatz Rennbahnstraße
THC Franziskaner
Dresdener Straße 17
++0049-30-67197050
Kreuzberg
U Kottbusser Tor
Spiel: Sa Vorm. Sportplatz Blücherstraße
TSF Freizeitcenter Marienfelde
Richard-Tauber-Damm 36
++0049-30-7421091
Tempelhof
S Buckower Chaussee / Bus 283
Mo-So 7-23 Uhr
Tennis, Squash, Fußball, Fitness
Fußball – Sportplätze – Sportstätten
Sport- und Kulturzentrum Pankow
Nordendstraße 56
++0049-30-4771034
Pankow
Tram 53
Sommer: tgl. Basketballverein berlin mitte business circle. 8-22 Uhr, Winter: tgl. 8-23 Uhr
Tennis, Beachvolleyball, Fußball, Badminton, usw.
FC Union Berlin
++0049-30-65668820
BFC Berlin (EHC)
Steffenstraße
++0049-30-9860869
Tram 5, 15
Einstiegsalter: 4 Jahre
Tennis Borussia Berlin
++0049-30-3069610
S Messe-Süd
Fußball – Schulen
Hertha BSC
Hanns-Braun-Straße/Friesenhaus 2
++0049-30-3009280
U Olympia-Stadion
Einstiegsalter: 5 Jahre
Handball – Vereine – Verbände
Handball-Verband Berlin e.
Basketballverein Berlin Mitte Friedrichstrasse
92
10119 Berlin
Anzeige
Basketballverein Berlin Mitte Checkpoint Charlie
ab 11 Uhr
auch Fußball + Rudern + Hochseilgarten
Volleyballschulen
Di + Do 20-22 Uhr
Basketballverein Berlin Mitte Plz
), vollständig geimpft (zwei Wochen vergangen seit letzer Impfung) oder genesen (positives Testergebnis mindestens 28 Tage nach und nicht älter als sechs Monate) sein müsst und die entsprechenden zeitlichen Vorgaben eingehalten wurden. Die Nachweise sind zu den Traingingseinheiten bzw. Spielen vorzuweisen. Für Zuschauer gilt ebenfalls die 3G-Regel. Darüber hinaus sind die Abstandsregelen zu beachten. Weiter Informationen findet Ihr unter folgenden Links:
Wir wünschen Euch allen einen erfolgreichen Start in die Saison und stetige Gesundheit. Liebe BasketballerInnen, liebe Eltern,
gemäß der aktuellen Landesverordnung sowie Angaben des Bezirksamts dürfen wir ab sofort das kontaktlose Training für unsere 13-14 jährigen Mädchen und Jungs im Freien anbieten. Basketballverein berlin mitte checkpoint charlie. Der kurze Auszug: Innerhalb der festen Gruppen kann auf den Mindestabstand verzichtet werden. Ständiger unmittelbarer Körperkontakt sollte jedoch vermieden werden. Auf Gepflogenheiten des sozialen Miteinanders wie Händeschütteln, Umarmungen, Abklatschen o. ä. ist zu verzichten.
Basketballverein Berlin Mitte Ansteckten
Verfolgen Sie das Spiel hautnahe und verpassen Sie keinen Korb & Rebound. >>> Hier geht es zum Liveticker: Brose Bamberg vs. Alba Berlin
Hier erhalten Sie außerdem alle aktuellen Nachrichten und Informationen zu Alba Berlin. Lesen Sie auch:
Alba Berlin: Ein bisschen Spaß muss sein
Alba-Feuerwerk im ersten Viertelfinale
Maodo Lo: "Wie es aussieht, bleibe ich bei Alba Berlin"
Basketball:
Pleiß will zweiten Euroleague-Titel: "Wäre großartige Sache"
Tibor Pleiß lässt die Möglichkeit eines Comebacks im Nationalteam offen. Foto: picture alliance / Ina Fassbender/dpa/Archivbild
Tibor Pleiß kann etwas schaffen, was vor ihm noch keinem deutschen Basketballer gelungen ist. Dennoch läuft er in der Heimat weiter unter dem Radar. Was sich im Sommer aber ändern könnte. Tibor Pleiß ist unter die Hobby-Fotografen gegangen. Immer wenn es die Zeit zulässt, schnappt sich der Basketballer seine Kamera und schlendert durch die Gegend. Basketball | Vereine für Frauen, Männer, Kinder | in Berlin Mitte | Empfehlungen | citysports.de. "Die Bilder kommen meist zustande, wenn ich alleine unterwegs bin. Kopfhörer in die Ohren, und dann lasse ich mich einfach treiben", sagte Pleiß. "Die Motive, die mich interessieren, kommen dann von ganz alleine. " Das gewünschte Motiv an diesem Wochenende muss Pleiß nicht lange suchen. Das Objekt der Begierde, das er fotografieren, aber vor allem in den eigenen Händen halten will, ist klar umrissen: der Siegerpokal für den Gewinn der Euroleague ist es, dem der Fokus von Pleiß voll und ganz gilt.