Eintragen eines Pfads in eine Zelle

[Kuwer]

Hallo Arnold,

For i = 0 To 4 soll denke ich Mo -Fr bedienen, mit dieser Vorgabe fragt er nach einem Tabellenblatt "Samstag" in der Morgenrunde........ Datei

bei For i = 0 To 3 trägt er nur bis Donnerstag ein und lässt den Freitag weg ??

genau so ist es. Im Code wird dann noch 1 dazu addiert: WeekdayName(i + 1, 0, 2)

Zeige doch bitte Deinen Code, mit dem Du das probierst.

Gruß Uwe

[Arni49]

Hallo Uwe,

Public Sub Initpaths()
 Dim strKW As String                 'KW als Zeichen
 Dim iYear As Integer                'Jahr als Zahl
 Dim i As Long, j As Long
 
 strKW = Tabelle25.Cells(14, 4)         '14 Zeile (Rowindex) und 4 Spalte (Colindex)
 iYear = Format(Tabelle25.Cells(14, 8), "YYYY")
 
 With Tabelle35.Range("AT6").Resize(15, 1)
   For j = 0 To 1
     strKW = Format(strKW + j, "00")
     .Offset(j * 80, -2).Formula = "='\\MeinServer\Morgenrundenblatt\2019\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2) & "'!J91"
     For i = 0 To 4
       .Offset(j * 80, i * 6).Formula = "='\\MeinServer\Morgenrundenblatt\2019\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2) & "'!AR91"
     Next i
   Next j
 End With
End Sub

[Kuwer]

Hallo Arnold,

auweia, Asche auf mein Haupt.
Der Fehler war in der Extrazeile für die erste Montagsspalte.
So sollte es jetzt klappen:

Public Sub Initpaths()
 Dim strKW As String                 'KW als Zeichen
 Dim iYear As Integer                'Jahr als Zahl
 Dim i As Long, j As Long
 
 strKW = Tabelle25.Cells(14, 4)          '14 Zeile (Rowindex) und 4 Spalte (Colindex)
 iYear = Format(Tabelle25.Cells(14, 8), "YYYY")
 
 With Tabelle35.Range("AT6").Resize(15, 1)
   For j = 0 To 1
     strKW = Format(strKW + j, "00")
     .Offset(j * 80, -2).Formula = "='\\MeinServer\Morgenrundenblatt\2019\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(1, 0, 2) & "'!J91"
     For i = 0 To 4
       .Offset(j * 80, i * 6).Formula = "='\\MeinServer\Morgenrundenblatt\2019\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2) & "'!AR91"
     Next i
   Next j
 End With
End Sub

Gruß Uwe

[Arni49]

Hallo Uwe,

kein Thema :) läuft jetzt wie gewünscht.

1000 Dank für deine bzw. eure Hilfe.

Bis Bald mal wieder