Fileabgleich

Forumthread: Fileabgleich

Fileabgleich

16.08.2004 09:42:28

Klamsi

Hi Leute. Vielleicht kann mir ja einer von euch helfen:
Damit ich mein Prob. erklären kann, muss ich euch ne Beispiel-Datei geben:
https://www.herber.de/bbs/user/9677.xls

SO!
In dieser Datei sind 2 Sheets benutzt.
Meine Aufgabe ist es, den Pfad, aus dem Sheet1 rechts neben den Dateinamen von Sheet2 im zweiten Sheet zu schreiben.
Die Schwierigkeit dabei ist, dass in meiner Pfadauflistung im Sheet1 auch teilweise unwichtige Angaben drin stehen, wie z.B. A5 und A8, da dahinter keine Datei steht.
Aber irgendwie muss man es doch schaffen, Excel zu erklären, dass es genau diese stellen auslässt.
Grob Skizziert soll Excel im Sheet2 ab Stelle B2 bis B-unendlich nachschauen, ob der Dateiname "Datei1.dat" in A2 im sheet2 mit dem Dateinamen/-pfad "C:\Files\DATEI1.DAT"
in A2 im sheet1 übereinstimmt. Also muss er das "Datei1.dat" im Sheet1 wiederfinden.
Dann Soll er den Dateipfad A2 im sheet1 nach B2 ins sheet2 kopieren ...
(möglichst ohne, das dann hinter dem dateipfad nochmal der dateiname steht, also das der dateiname gleich mit weggelöscht wird, und nur der pfad dasteht, da in ROW A ja der
Dateiname schon da steht, aber das ist erst mal unwichtiger...)

... und bei der nächsten Zelle noch mal das gleiche. Im sheet1 A5 findet er dann aber nicht die im sheet2 A5 erwartete Datei "Datei4.dat", und soll Sheet1 A5 überspringen,
und ab Sheet1 A6 weitersuchen, so lange bis er die gewünschte Datei wieder findet. Also über ne Schleife im die Suchabfrage eine Zeile drunter neu starten. Ich habe leider
von VBA gar keinen schimmer, und weiß nicht, wie man das umsetzen kann. Vielleicht kann mir ja einer von euch dabei helfen.

Des wäre echt totaaaal geil, is nämlich unglaublich wichtig...

Gröööößten Dank schon mal,

euer Klamsi

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fileabgleich

16.08.2004 11:18:50

Hans W. Herber

AW: Fileabgleich

16.08.2004 11:18:50

Hans W. Herber

Hallo,
wie folgt:


Sub PfadFiltern()
Dim wksA As Worksheet, wksB As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iChar As Integer
Dim sPath As String
Set wksA = Worksheets("Sheet1")
Set wksB = Worksheets("Sheet2")
iRow = 2
Do Until IsEmpty(wksB.Cells(iRow, 1))
vRow = Application.Match("*" & wksB.Cells(iRow, 1).Value, wksA.Columns(1), 0)
If Not IsError(vRow) Then
sPath = wksA.Cells(vRow, 1).Value
For iChar = Len(sPath) To 1 Step -1
If Mid(sPath, iChar, 1) = "\" Then Exit For
Next iChar
wksB.Cells(iRow, 2).Value = Left(sPath, iChar - 1)
End If
iRow = iRow + 1
Loop
End Sub

gruss hans

Beliebteste Forumthreads (12 Monate)

Forumthread: Fileabgleich

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread