Hallo liebes Forum,
ich habe Dank Eurer Hilfe einen Lieferschein erstellt.
Dieser wird unter der fortlaufenden Nummer abgespeichert.
Auflisten lasse ich mir alle gespeicherten Lieferscheine mit:
Sub Einlesen()
Dim FName$, FCount%, z%
Dim FileArray()
FName = Dir("*.xls")
Do While FName <> ""
FCount = FCount + 1
ReDim Preserve FileArray(1 To FCount)
FileArray(FCount) = FName
FName = Dir()
Loop
For z = 1 To FCount
ActiveSheet.Cells(z, 1) = FileArray(z)
Next
End Sub
Jetzt stehen alle Lieferscheine in Tabelle 1 Spalte A aufgelistet.
Ich möchte jetzt noch den entsprechenden Empfänger in Spalte B angezeigt bekommen.
Der Empfänger steht im Lieferschein in Zelle H6.
Könnt Ihr helfen?
mfg Klaus