Teil eines Dateiname aus einer Zelle lesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub test() Dim strMapp As String, zz As Long, cc As Integer, ii As Integer Const strVz As String = "C:\temp\" ' Quellverzeichnis anpassen For zz = 19 To 50 ii = 1 For cc = 4 To 12 Step 2 If Cells(zz, 1) > "" Then strMapp = "P_007_" & Cells(zz, 1) & "_G_" & ii & ".xls" ' P_007_S_734_G_1.xls If Dir(strVz & strMapp) > "" Then With Cells(zz, cc) .Formula = "='" & strVz & "[" & strMapp & "]" & Worksheets(1).Name & "'!D10" .Value = .Value End With Else MsgBox strVz & strMapp & vbLf & "wurde nicht gefunden" End If ii = ii + 1 End If Next cc Next zz End Sub

Hallo Erich,
danke für deine Hilfe. Dickes Lob.
Das Addin habe ich mittlerweile durch eigene Codezeilen ersetzt, da es nicht immer stabil lief.
Eine Frage habe ich zu deiner Lösung "Teil eines Dateinamen". Du hast ja den absoluten Pfad für strVz (Quellverzeichnis) verwendet und als Konstante deklariert.
Const strVz As String = "C:\temp\" ' Quellverzeichnis anpassen
Nun wollte ich der Konstanten strVz den aktuellen Pfad des Workbooks plus dem Unterverzeichnis (gibt nur eins) zuweisen, in dem ich folgende Möglichkeiten codierte:
Const strVz As String = ThisWorkbook.Path & "\XYZ\"
Const strVz As String = ThisWorkbook.Path & SubFolders
Beim Kompilieren erhalte ich die Fehlermeldung, dass ein konstanter Wert erwartet wird (.path ist hinterlegt). Offensichtlich ist .path nicht als Konstante geeignet, aber warum.
strVz als Variable zu nutzen hat nicht funktioniert, da die For-Schleife dann nicht durchlaufen wird.
Auch musste ich feststellen, als ich versuchte das Ergebnis der Anweisung (ohne Konstante) in eine Zelle zu schreiben, dass die Anweisungen nicht funktionierten. Irgendwie bin ich auf dem Holzweg!!!
Kannst du mir einen Tipp geben, wie ich den relativen Pfad & Unterverzeichnis als Konstante an die For-Schleife übergebe. Dann kann ich deine Lösung universeller nutzen.
Danke und viele Grüße
Matze

Hi Matze,
"ThisWorkbook.Path" ist keine Konstante, sondern hängt nun mal davon ab, wo eine Datei gespeichert ist.
Also: Dim strVz as String und später strVz=...
Versuchs mal so:


Option Explicit
Sub test2()
Dim strMapp As String, zz As Long, cc As Integer, ii As Integer
Dim strVz As String
strVz = ThisWorkbook.Path & "\xyz\"        ' Unterverzeichnis anpassen
For zz = 19 To 50
ii = 1
For cc = 4 To 12 Step 2
If Cells(zz, 1) > "" Then
strMapp = "P_007_" & Cells(zz, 1) & "_G_" & ii & ".xls" ' P_007_S_734_G_1.xls
If Dir(strVz & strMapp) > "" Then
With Cells(zz, cc)
.Formula = "='" & strVz & "[" & strMapp & "]Tabelle1'!D10"
.Value = .Value
End With
Else
MsgBox strVz & strMapp & vbLf & "wurde nicht gefunden"
End If
ii = ii + 1
End If
Next cc
Next zz
End Sub

Geändert habe ich hier auch die .Formula-Zeile.
Worksheets(1).Name gibt den Namen des ersten Blattes der gerade aktiven Mappe wieder,
also der Mappe, in der dieser Code steht.
Das hat nichts zu tun mit den (hier unbekannten) Blättern der Quellmappen.
Die neue Version geht davon aus, dass der Wert von D10 immer aus dem Quellblatt "Tabelle1" geholt werden soll.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Teil eines Dateiname aus einer Zelle lesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teil eines Dateiname aus einer Zelle lesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread