Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nummern in Ordern suchen & Pfad einlesen

Nummern in Ordern suchen & Pfad einlesen
29.04.2021 12:14:11
Timo
Hallo zusammen,
ich bräuchte einmal euer Schwarmwissen und bedanke mich vorab für eure Hilfe.
Ich habe in Spalte A von A2 bis "aktuell A12" Projektnummern eingetragen.
Ich weiß, dass in der 4. Ebene meiner Verzeichnisstruktur: 

C:\Daten\Hallen\"hier sind unterschiedlichste Ordner"\ ... hier möchte ich suchen
diese Nummern "ein Teil" des Ordnernamens sind. Da häufig Nummern in dieser Liste ergänzt werden, würde ich nun gern diese Nummern im 4. Pfad meiner Verzeichnisstruktur suchen lassen und den kompletten Pfad bis zu dieser 4. Ebene in Spalte B zu jeder Projektnummer ergänzen lassen.
Könnt ihr mir dabei helfen? Das wäre klasse :-)
Danke und viele Grüße
Timo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nummern in Ordern suchen & Pfad einlesen
29.04.2021 12:53:38
Timo
Servus MCO,
danke für deine Hilfe, ich hatte mir den auch schon vorab angeschaut, aber meine VBA Kenntnisse reichen nicht aus um die "Finde und trage in Spalte B ein" zu ergänzen.

Sub Daten_aktualisieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim ZielID As Workbook
Dim Ursprung As Workbook
Dim Pfad_var As String
Dim Pfad As String
Set ZielD = ActiveWorkbook
Pfad_var = "\\U:\Daten\Hallen\"
For Each cl In Range("A:A").SpecialCells(xlCellTypeConstants) 'Ordnernamen durchgehen
Pfad = Pfad_var & "U:\Daten\Hallen" & cl.Value 'kompl. Pfad bestimmen
Dim Fso As Object
Dim SearchFolder As Object
Dim FD As Object, FI As Object
Dim EachFil As Object
'Set Fso = CreateObject("Scripting.Filesystemobject")
Set SearchFolder = Fso.GetFolder(Pfad)
ActiveWorkbook.Sheets("Projektliste").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = Folder(Pfad) ' Suchbegriff einlesen
Next
Application.DisplayAlerts = True 'WICHTIG! Wieder einschalten!
End Sub
Hier gibt er mir den Fehler in der Zeile " Set SearchFolder = Fso.GetFolder(Pfad)".
Oha, jetzt ist mein Versuch öffentlich und ihr Spezis kommt vor lachen nicht in den Schlaf :-).
VG
Timo
Anzeige
AW: Nummern in Ordern suchen & Pfad einlesen
29.04.2021 13:40:12
Fennek
Hallo,
alle Dateinenaman mit dem Ornden kann Powershell so auslesen:

$Pfad = 'c:\temp' # anpassen #
[array]$L = @()
foreach ($f in Get-ChildItem -Path $Pfad -Recurse)  {$L += $f.fullname.Split('\')[-2] + "|" +$f.name}
$L | Out-File 'c:\users\[user]\desktop\iDir.txt'
mfg
AW: Nummern in Ordern suchen & Pfad einlesen
30.04.2021 07:52:05
MCO
Hallo Timo!
Ich gebe zu, das war eine Anpassung, die konntest du nicht machen: Der Ordnername ist ja gesucht, nicht die Daten im Ordner.
Dennoch bietet die Recherche bei HERBER einiges an Möglichkeiten.
Ich habe dir das Makro mal auf deine Bedürfnisse geändert und vereinfacht.
Tip: Ist dein Problem nicht gelöst, setze den Vorgang auf "Offen"(Kästchen oberhalb des Beitragtextes)! Ansonsten wird deine Antwort wahrscheinlich übersehen.

Sub Daten_aktualisieren()
Application.ScreenUpdating = False
Dim pfad As String
Dim Fso As Object, SearchFolder As Object, ordn As Object
Dim cl As Range
pfad = "\\U:\Daten\Hallen\"
For Each cl In Range("A2:A99").SpecialCells(xlCellTypeConstants) 'Ordnernamen durchgehen
Set Fso = CreateObject("Scripting.Filesystemobject")
Set SearchFolder = Fso.GetFolder(pfad)
Set Ordnerliste = SearchFolder.subfolders
For Each ordn In Ordnerliste
If InStr(ordn.Name, cl) > 0 Then
cl.Offset(0, 1) = ordn.Path
Exit For
End If
Next ordn
Next
End Sub
Viel Erfolg!
Gruß, MCO
Anzeige
AW: Nummern in Ordern suchen & Pfad einlesen
04.05.2021 19:29:48
Timo
Hallo MCO,
erst einmal vielen Danke für deine Hilfe und sorry, dass ich mich jetzt erst zurück melde, alles irgendwie drunter und drüber im Moment.
Ich bekomme leider einen Laufzeitfehler '76' "Pfad nicht gefunden" bei der Zeile:

Set SearchFolder = Fso.GetFolder(pfad)
Hast du da evtl. noch einen Tipp für mich?
Danke und viele Grüße
Timo

228 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Anzeige
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
Aktuellen Pfad in Variable einlesen
Daniel

Hallo Excel-Götter,
ich als VBA-Dummie darf mich mit einem schönen Makro-Problem befassen:
Ich arbeite mit einem Excel-File, das Auswertungen aufgrund von Daten in einem 2.File macht. Beide Files liegen im gleichen Ordner auf meinem Rechner. Das ganze wurde erstellt von meinem Vorgänger...
07.11.2008 06:58:19
Thread-ID: 1022480
6 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 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
18
1
8
4
6
3
5
4
3
6
2
5
5
9
1
2
6
6
4
3
8
8
1
6
6