Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Eintragen eines Pfads in eine Zelle
#31
Hallo Arnold,

(18.02.2019, 07:24)Arni49 schrieb: 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
Antworten Top
#32
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
Antworten Top
#33
Hallo Arnold,

auweia, Asche auf mein Haupt. Blush
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
Antworten Top
#34
Thumbs Up 
Hallo Uwe,

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

1000 Dank für deine bzw. eure Hilfe.

Bis Bald mal wieder
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste