Hallo Manni,
http://www.file-upload.net/download-4068497/vba_Test…
ich mumaße mal du hast im Code einen Pfad zum Ordner eingefügt den es zwar gibt, sonst wäre die Fehlermeldung anders, aber da stehen deine drei mappen nicht drin oder sowas.
Ich habe deine drei Mappen und auch ZAMappe5.xls in den Ordner K:\Manni gestellt und das erscheint nach Codedurchlauf:
Tabellenblatt: K:\Manni\[ZAMappe5.xls]!Tabelle1
│ A │ B │ C │ D │
──┼───────┼──────────┼────────────┼──────────┤
1 │ Zelle │ Blatt │ Mappe │ Pfad │
──┼───────┼──────────┼────────────┼──────────┤
2 │ D6 │ Tabelle1 │ Mappe1.xls │ K:\Manni │
──┼───────┼──────────┼────────────┼──────────┤
3 │ D6 │ Tabelle1 │ Mappe2.xls │ K:\Manni │
──┼───────┼──────────┼────────────┼──────────┤
4 │ D6 │ Tabelle1 │ Mappe3.xls │ K:\Manni │
──┴───────┴──────────┴────────────┴──────────┘
A1:smiley:4
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Vermutlich läßt es auch dir keine Ruhe.
Naja, hält sich in Grenzen, eine Lösung die einen Suchbegriff überall durch einen anderen ersetzt hättse schon.
Das was du willst von Treffer zu treffer zu hüpfen ist weit schwieriger. Erstens sowieso ud zweitens müßte ich ja einplanen, vorausdenken was du oder sonstige Benutzer des makros für Blödsinn treiben.
Z.B. wie nach einem leeren Suchbegriff suchen und so Kwark.
Aber auch das ist keine Herasuforderung für mich.
Sowas z.B. ist eine:
Function DecNova(ByVal vglZN As String, ByVal vglFN As String, ByVal KVs) As Boolean
Dim i As Long, n As Long, s As Long, shz() As Long, plc As Object
On Error Resume Next
CallMyName Me.Parent, Krypt("RcUMFneSFdVoAB%s", KVs(3), 3, 2, 1), 8, plc
If IsError(CallByName(plc, Join(VPart(Evaluate("transpose(char(code(Sprite(""" & Inlet & \_
""",""""))-" & AnzAMBxAnim & "))"), 0, 0), ""), 2)) Then DecNova = vglZN vglFN
If DecNova Then
n = CallMyName(Me.Parent, Krypt("h[oYhRhQVnxkoExs", KVs(1), 3, 2, 1), 2, \_
Krypt("5]EoNb7olb187", KVs(1), 3, 2))
s = CallByName(plc, Krypt("csQ}Or22Lrj3", KVs(3), 3, 2), 2, n, lOrBlIdx)
CallByName plc, Krypt("y[ng^GvxZKdgd", KVs(1), 3, 1, 1), 4, 0
CallByName plc, Krypt("bVsXWhXjQJoXaR", KVs(2), 3, 1, 1), 4, 0
CallByName plc, Krypt("ygLM`QsqN\_jg", KVs(3), 3, 1, 1), 4, 0
Set plc = Nothing
ReDim shz(1 To s)
For i = 1 To s
shz(i) = i
CallMyName Me.Parent, Krypt("tbU`2Y3Xmu%rgEn4", KVs(2), 3, 2, 1), 4, i, \_
Krypt("OUp[lnQYUJ+]VNZ:8", KVs(1), 3, 2, 1), -1
Next i
If n
Da stehe ich noch gaaaaaanz am Anfang um zu kapieren was diese Funktion eigentlich so macht. Daß ich den Code von CallMyName nicht kenne spielt da erstmal keine Rolle.
Naja, so hat halt jeder auf sich so seine Excelproblemchen :smile:)
> schönes WE
Dito.
Gruß
Reinhard
