Office: (Office 2010) Excel VBA

Helfe beim Thema Excel VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, Ich bin auf der Suche nach einer VBA Lösung mit welcher ich folgendes Lösen kann: ich habe ein Excelliste wo in Spalte "A" viele verschiedene... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von pali99, 21. Mai 2016.

Seite 1 von 2

PALI99

pali99

Excel VBA

Hallo,

Ich bin auf der Suche nach einer VBA Lösung mit welcher ich folgendes Lösen kann:

ich habe ein Excelliste wo in Spalte "A" viele verschiedene Dateinamen stehen. Jetzt möchte ich in einem vorgegeben Ordner "C:\Test\" und in allen vorhandenen Unterordnner nach den in "A" stehenden Dateien suchen und den Pfad wo die Datei enthalten ist in Spalte "B" ausgeben.

Wie kann ich das in VBA umsetzen?

Vielen Dank für die Hilfe!

:)

pali99, 21. Mai 2016

#1
FENNEK11

Fennek11

Hallo,

ungeprüft und deshalb fehleranfällig:

PHP:

Sub Pfad_lesen sPath = "c:\tmp\" ' <<<< anpassen sFile = "*.xls*" ' <<<< anpassen lr = cells(rows.count, "A").end(xlup).row for i = 1 to lr ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir " & sPath & sFile & " /s/b").stdout.readall, vbCrLf) cells(i, "B") = ar(0) next i End Sub

Fennek11, 23. Mai 2016

#2
Beverly Erfahrener User

Hi,

stehen die Dateinamen einschließlich Dateiendung in Spalte A? Ich bin mal davon ausgegangen dass das der Fall ist:

Code:

Sub OrdnerPruefen()
Dim lngZeile As Long
For lngZeile = 1 To 2
OrdnerAuswahl "C:\Test\", Cells(lngZeile, 1), lngZeile
Next lngZeile
End Sub

Sub OrdnerAuswahl(varSuchordner, strMappe As String, lngZeile As Long)
Dim fso As Object
Dim Ordner
Dim UnterOrdner
Dim lngUnterOrdner As Long
Dim blnVorhanden As Boolean
Dim strPfad As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = fso.getfolder(varSuchordner)
On Error Resume Next
lngUnterOrdner = Ordner.subfolders.Count
If lngUnterOrdner 0 Then blnVorhanden = True
On Error GoTo 0
If blnVorhanden Then
For Each UnterOrdner In Ordner.subfolders
strPfad = Dir(UnterOrdner, vbDirectory)
If Dir(Ordner & "\" & strPfad & "\" & strMappe) "" Then
Cells(lngZeile, 2) = UnterOrdner
Set fso = Nothing
Set Ordner = Nothing
Exit Sub
Else
OrdnerAuswahl UnterOrdner, strMappe, lngZeile
End If
Next
blnVorhanden = False
lngUnterOrdner = 0
End If
Set fso = Nothing
Set Ordner = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 23. Mai 2016

#3
PALI99

pali99

Excel VBA

Hallo Berly,

Danke für die Antwort. Es sieht schon mal ganz gut aus. Leider habe ich nur Dateinamen ohne Dateiendung. Die Dateiendung kann beliebig sein. Kannst du mir diese Anpassung noch mitteilen?

Danke!!!

pali99, 24. Mai 2016

#4
Beverly Erfahrener User

Hi,

um welche Dateitypen geht es denn - sind es bestimmte oder ist der Dateityp generell nicht bekannt?

Beverly, 24. Mai 2016

#5
PALI99

pali99

Hallo,

Dateityp ist nicht bekannt. Danke!

pali99, 24. Mai 2016

#6
Beverly Erfahrener User

Hi,

dann kann ich dir leider nicht weiterhelfen.

Beverly, 24. Mai 2016

#7
HAKLESOFT

haklesoft

Excel VBA

Hallo pali99,

in #2 hat Fennek11 Dir einen möglichen Weg zur Lösung Deiner Frage aufgezeigt. Nach einer kleinen Umstellung und Erweiterung sollte es so klappen: Code:

' Ursprungscode von MOF\Fennek11
' erweitert und kommentiert durch MOF\haklesoft
Sub Pfad_lesen()
Dim sPath As String, sFile As String, lr As Long, i As Long, j As Long, Ar
'Startverzeichnis festlegen (immer mit Backspace am Ende)
sPath = "c:\Tmp\" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

haklesoft, 24. Mai 2016

#8
FENNEK11

Fennek11

\@Haklesoft

danke für die Erwähnung, das ist mit als "Lernenden" noch nicht passiert.

Die Zeile mit AR = split() stammt von snb, mein Beitrag ist lediglich der Schalter /s, der alle Unterverzeichnisse durchsucht.

mfg

Fennek11, 24. Mai 2016

#9
HAKLESOFT

haklesoft

\@Fennek11
Ich löse solche Fragestellungen normalerweise mit rekursivem Dir oder dem FSO. Deshalb fand ich es interessant, noch eine weitere Alternative ausprobieren zu können.

haklesoft, 24. Mai 2016

#10
Beverly Erfahrener User

Hi,

nur als Hinweis: wenn Dateien selben Namens im Haupt- UND in Unterpfaden vorhanden sind, wird nur die im Hauptpfad berücksichtigt.

Beverly, 24. Mai 2016

#11
HAKLESOFT

haklesoft

von Beverly

Hi,

nur als Hinweis: wenn Dateien selben Namens im Haupt- UND in Unterpfaden vorhanden sind, wird nur die im Hauptpfad berücksichtigt.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

haklesoft, 24. Mai 2016

#12
Beverly Erfahrener User

Excel VBA

\@All,

mein ursprünglicher Code liest doch alle Dateitypen aus (hatte mich schon darüber gewundert, dass das beim Testen nicht der Fall war). Ursache lag einfach darin, dass mittels Instr immer nur der 1. Treffer gefunden und dann die Schleife ja verlassen wird. Mit einer kleinen Änderung lassen sich auch mit meinem Code alle Dateitypen ermitteln. Anstoß für die Lösung hat mir mein eigener Hinweis aus Beitrag 25.05.2016 10:32 geliefert:

Code:

Sub OrdnerPruefen()
Dim lngZeile As Long
For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
OrdnerAuswahl "C:\Test\", Cells(lngZeile, 1), lngZeile
Next lngZeile
End Sub

Sub OrdnerAuswahl(varSuchordner, strMappe As String, lngZeile As Long)
Dim fso As Object
Dim Ordner
Dim UnterOrdner
Dim lngUnterOrdner As Long
Dim blnVorhanden As Boolean
Dim objFile As Object
Dim strName As String
Dim intSpalte As Integer
intSpalte = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set Ordner = fso.getfolder(varSuchordner)
On Error Resume Next
lngUnterOrdner = Ordner.subfolders.Count
If lngUnterOrdner 0 Then blnVorhanden = True
On Error GoTo 0
If blnVorhanden Then
For Each UnterOrdner In Ordner.subfolders
For Each objFile In UnterOrdner.Files
strName = Mid(objFile, InStrRev(objFile, "\") + 1)
strName = Left(strName, InStrRev(strName, ".") - 1)
If strName = strMappe Then
Cells(lngZeile, intSpalte) = objFile
intSpalte = intSpalte + 1
End If
Next objFile
OrdnerAuswahl UnterOrdner, strMappe, lngZeile
Next
blnVorhanden = False
intSpalte = 2
lngUnterOrdner = 0
End If
Set fso = Nothing
Set Ordner = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 25. Mai 2016

#13
HAKLESOFT

haklesoft

\@All
Code wurde noch ein wenig verbessert. Blanke Zellen werden übergangen und kein Namensvergleich im Pfad mehr. Code:

' Ursprungscode von MOF\Fennek11
' erweitert und kommentiert durch MOF\haklesoft(v3)
Sub Pfad_lesen()
Dim sPath As String, sFile As String, lr As Long, i As Long, j As Long, Ar
Dim lSpalte As Long 'Zähler der Folgespalte
Dim sZellInhalt As String 'Inhalt der Vergleichszelle
'Startverzeichnis festlegen (mit Backspace am Ende)
sPath = "c:\Tmp\" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

haklesoft, 25. Mai 2016

#14
FENNEK11

Fennek11

Hallo,

in einem kleinen Test per Hand im cmd-Fenster konnte ich nicht nachvollziehen, dass, falls 2 Dateien den gleichen Namen haben, nur eine angezeigt wird.

Ist mein Test zu simpel oder entsteht der Fehler bei der Übertragung in Excel?

mfg

Fennek11, 25. Mai 2016

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Excel VBA

Die Seite wird geladen...

Excel VBA - Similar Threads - Excel VBA
VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen
in Microsoft Word Hilfe
VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen: Hallo zusammen, ich habe eine Word-Vorlage mit Platzhaltern, in die ich mit VBA Daten aus einer Excel-Datei einfüge (in eine Excel-Zeile schreibe ich alle Daten für ein neues Word-Dokument). So...
Excel Range als Bild in Word einfügen
in Microsoft Excel Hilfe
Excel Range als Bild in Word einfügen: Hallo, ich möchte gerne per Makro in einem Wordtemplate Mustergrafiken, die als Platzhalter dienen durch Bereiche in meiner Exceldatei ersetzen, die ich als Bild einfüge. Per Hand mache ich das...
VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.
in Microsoft Excel Hilfe
VBA: Spalten auf anderen Worksheeds in der Mappe ausblenden.: Hallo zusammen, Eine Tabelle mit 9 Worksheets, Datenblatt, Studien, Studie_1 ...Studie_7. Auf dem Deckblatt werden in Zelle B4-B10 die Namen der Studien eingetragen. Davon abhängig ob ein Name...
Excel VBA Spalten mit Ordnerinhalt vergleichen
in Microsoft Excel Hilfe
Excel VBA Spalten mit Ordnerinhalt vergleichen: Hallo, Bin ehr Excel VBA Neuling, Würde aber gerne in einer bestehender Tabelle die Auflistung der Ordner mit dem eigentlichen Stand in den besagten Ordner kontrollieren. Also in der Spalte Q10...
Array aus Excel Tabelle einlesen Word VBA
in Microsoft Excel Hilfe
Array aus Excel Tabelle einlesen Word VBA: Hallo, ich benötige in einer Word Datei die Werte einer Excel Datei. Ich würde gerne eine Spalte als Array einlesen. Wie das Array ein lesen in Excel geht weiß ich, aber wie schaffe ich den...
Dynamische Tabellen mit automatischer Aktualisierung
in Microsoft Excel Hilfe
Dynamische Tabellen mit automatischer Aktualisierung: Hallo in die Runde! Vorab schon mal vielen Dank für alle Mühen und die Hilfe! Ich habe folgendes Anliegen: Ich habe eine Geräteliste als Excel Datei mit einigen verschiedenen Tabellenblättern...
(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?
in Microsoft Excel Hilfe
(Excel) Dynamische Tabelle, VBA, fehlende Formatierung?: Liebe Experten, Gefilterte Daten sollen in ein Listobject übertragen werden. Für das Listobject habe ich ein Template angelegt, dass alle Formatierungen (u.a. bedingte Formatierung etc.) enthält....

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden