Verknüpfung mit Zelle nach unten "übertragen" Unmöglich?

[tobham]

Ich habe folgende Forme bzw. verknüpfung

Code:

=WENNFEHLER('C:pfad[60.xlsx]Angaben zum Projekt'!$B$3;"-")

Ich möchte gerne sie mit dem Fadenkreuz "herunterziehen", sodass ich folgendes bekomme:

Code:

=WENNFEHLER('C:pfad[60.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[61.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[62.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[63.xlsx]Angaben zum Projekt'!$B$3;"-")

Die zahl kann auch auss einer spalte ausgelesenwerden, also ungefähr so:

Code:

=WENNFEHLER('C:pfad[& A60 &.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[& A61 &.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[& A62 &.xlsx]Angaben zum Projekt'!$B$3;"-")
=WENNFEHLER('C:pfad[& A63 &.xlsx]Angaben zum Projekt'!$B$3;"-")

Leider Funktioniert das so nicht. Ist das überhaupt möglich, bzw. weiss jemand welche syntax da klappen könnte?

Damit wäre mir unendlich geholfen!!

[Jockel]

Hallo, das geht ganz einfach..: --> guck hier... <--- klick

[steve1da]

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß ,
steve1da

[tobham]

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß ,
steve1da

Hat Jockel netterweise schon erledigt. 
Falls mir jemand helfen kann, wie ich diesen Prozess bis zum Ende der Tabelle (ganz unten) automatisieren kann, wäre super. 

Code:

Rows("05:05").Select
   Selection.Replace What:="01.xlsx", Replacement:="02.xlsx", LookAt:=xlPart _
       , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   Rows("06:06").Select
   Selection.Replace What:="01.xlsx", Replacement:="03.xlsx", LookAt:=xlPart _
       , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   Rows("07:07").Select
   Selection.Replace What:="01.xlsx", Replacement:="04.xlsx", LookAt:=xlPart _
       , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False

[schauan]

Hallöchen,

habe jetzt "drüben" nicht reingeschaut, könnte so gehen

Code:

Sub test()
'Variablendeklaration-Long
Dim iCnt&
'Schleife bis zur letzten gefuellten Zelle anhand Spalte A
For iCnt = 5 To Cells(Rows.Count, 1).End(xlUp).Row
  'Dateinamen ersetzen, im einstelligen Bereich mit fuehrender 0
  'Dateinummer 2 kleiner als Schleifenzaehler
  Rows(1).Replace What:="01.xlsx", Replacement:=Format(iCnt - 2, "00") & ".xlsx", LookAt:=xlPart _
       , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False 'Ende Schleife bis zur letzten gefuellten Zelle anhand Spalte A
'Ende Schleife bis zur letzten gefuellten Zelle anhand Spalte A
Next
End Sub