Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Verknüpfung mit Zelle nach unten "übertragen" Unmöglich?
Normale Version: Verknüpfung mit Zelle nach unten "übertragen" Unmöglich?
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

tobham

27.02.2018, 16:20
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

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

steve1da

27.02.2018, 16:28
Hola,

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

Gruß ,
steve1da

tobham

27.02.2018, 17:05
(27.02.2018, 16:28)steve1da schrieb: [ -> ]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

02.03.2018, 15:32
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
Clever-Excel-Forum > Office-Anwendungen > Excel > Verknüpfung mit Zelle nach unten "übertragen" Unmöglich?