Kennwortschutz, Verknüpfungen

[Fennek]

Der erste Schritt ist es den richtigen Dateinamen zum Öffnen zu erstellen:

Ich habe verstanden:

Sheets("Verknüpfungen")

Spalte A
O:\MITARBEITER\Mitarbeiter 2021\Max Mustermann
O:\MITARBEITER\Mitarbeiter 2021\Markus Beispiel

Daraus erzeugt diese Funktion in der Spalte D den Dateinamen:

Code:

Sub Main
for i = 1 to cells(rows.count, 1).end(xlup).row
    cells(i,4) = cells(i,1) & "\Zeitkonto " & FName(cells(i,1).value) & ".xlsx"
next i
End Sub

function FName(pf as string) as string
pos = instrRev(pf, "\")

FName = right(pf, len(pf)-pos)
end function

Das Ergebnis ist:

O:\MITARBEITER\Mitarbeiter 2021\Max Mustermann\Zeitkonto Max Mustermann.xlsx
O:\MITARBEITER\Mitarbeiter 2021\Markus Beispiel\Zeitkonto Markus Beispiel.xlsx

Dieser Dateiname zusammen mit dem Password aus Spalte B kann die Datei öffnen.

-----------------------------------------
Um die 12 Sheets pro Datei durchzuschleifen geht etwas wie

for each Sh in WB.Sheets

aber damit weis ich immer noch nicht welche Bereiche kopiert werden sollen.

[Kuhn83]

hallo Fennek,

herzlichen Dank für deine Mühe! mit Hilfe eines Kollegen und deines Codes hat es nun endlich geklappt.!

DANKE