Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1236to1240
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
Inhaltsverzeichnis

Pfad anpassen schwierig

Pfad anpassen schwierig
karl
Hallo zusammen, Hallo Steffen,
ich öffne einen neuen Beitrag, da ich nicht herausgefunden habe wie ich auf meinen
alten
https://www.herber.de/forum/archiv/1236to1240/t1236293.htm#1237095
weiter antworten kann.
Code von Steffen funzt einwandfrei.
Wie muss die Pfadangabe(Mappennamen) geändert werden wenn ich folgende
Namenskombi habe und beispielsweise nur alle 2010er oder
alle 2010er mit Bu1 berücksichtigen will,sicher könnte ich alle Mappen umbenennen, hmmmm.
Mappe_Bu1_2010
Mappe_Bu2_2010
Mappe_Bu_1_2010
Mappe_Bu_5_2010
Bu geht bis 10, Jahr von 2000 bis xxxxx
Hier mein Versuch den Code anzupassen, ohne Erfolg
strDat = Dir(strPath & "\*Mappe* & * & 2010" & ".xls")
Dankeschön an alle
karl

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Pfad anpassen schwierig
09.11.2011 15:37:05
Rudi
Hallo,
strDat = Dir(strPath & "\Mappe_*_2010.xls")
Gruß
Rudi
AW: Pfad anpassen schwierig
09.11.2011 16:01:06
karl
Hallo Rudi,
nun liefert mir der Code unendlich die vermutlich erste gefundene Datei, bis
zum Abbruch.
Werde mal versuchen diese Codezeile anzupassen.
Wenn ich das richtig verstehe, dann soll der * quasi ein unbekannter Platzhalter sein.
Wenn ich nicht weiterkomme frage ich nochmal hier im Forum
Gruß
karl
AW: Pfad anpassen schwierig
09.11.2011 16:15:02
CitizenX
Hi Karl,
du könntest mit dem Filepicker deine Dateien auswählen,dann bist du etwas flexibler.
Teste mal:
Sub allewerte()
Dim lngLast As Long, strPath As String
Dim oWbk As Workbook, oFP As Object, vItem, strFileType As String
Set oFP = Application.FileDialog(msoFileDialogFilePicker)
strPath = "C:\Users\Steffen\Desktop\Test" 'Pfad & Dateiname in dem die Dateien gespeichert  _
sind
strFileType = "*.xls"                     'ggf anpassen
Application.ScreenUpdating = False
With oFP
.Title = "Bitte wählen Sie den gewünschten Ordner aus!"
.ButtonName = "Weiter"
.AllowMultiSelect = True
.InitialFileName = strPath
.Filters.Add "Exceldatei", strFileType, 1
If .Show = -1 Then
For Each vItem In .SelectedItems
Set oWbk = GetObject(vItem)
lngLast = Application.Max(ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End( _
xlUp).Row + 1, 2)
ThisWorkbook.Sheets("Tabelle1").Cells(lngLast, 1).Resize(1, 4).Value = oWbk. _
Worksheets("Tabelle1").Range("A4:E4").Value 'Tabellennamen od Bereich ggf anpassen
oWbk.Close
Next
End If
End With
Application.ScreenUpdating = True
Set oWbk = Nothing
End Sub

(Kommentare zur Anpassung bitte beachten)

Grüße
Steffen
Anzeige
AW: Pfad anpassen schwierig
09.11.2011 16:23:25
karl
Danke Steffen so geht es prima.
Spitze Forum
karl

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige