Eintragen eines Pfads in eine Zelle

[schauan]

Hallöchen,

Du könntest den Code vereinfachen indem Du die Wochentage in einer Schleife abfertigst, z.B. so mit Format(…):

Code:

Sub test()
Dim iCnt%
For iCnt = 2 To 8
MsgBox Format(iCnt, "dddd")
Next
End Sub

[Kuwer]

Hallo Arnold,

Meine Fragen:
kann diese Formel optimiert werden ? wahrscheinlich für Profis eine Blöde Frage :)
Und wie bekomme ich es dann hin in den 2 Tabellenbereich die Daten  der Morgenblatt KW 6 ab AR86  einzutragen.

Public Sub Initpaths_Kuwer()

 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 = "='\\E:\excel4170\Abt 4170\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2) & "'!J91"

     For i = 0 To 4

       .Offset(j * 80, i * 6).Formula = "='\\E:\excel4170\Abt 4170\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2) & "'!AR91"

     Next i

   Next j

 End With

End Sub

Gruß Uwe

[Arni49]

Hallo Uwe,

verstehe ich das richtig das dein Code meinen Komplett ersetzt?
Es kommt ein Fenster aus dem ich den Wochentag auswählen soll, wähle ich Montag wars das und es wird nichts eingetragen ?

Gruß Arnold

[Kuwer]

Hallo Arnold,

verstehe ich das richtig das dein Code meinen Komplett ersetzt?

Ja. (Habe aber gerade noch Tabelle1 mit Tabelle35 ersetzt)

Es kommt ein Fenster aus dem ich den Wochentag auswählen soll, wähle ich Montag wars das und es wird nichts eingetragen ?

Keine Ahnung, wovon Du sprichst.

Gruß Uwe

[schauan]

Moin Arnold,

hat es einen besonderen Grund, dass der Montag in Deinem Code 2x verarbeitet wird?

Bei einer Laufwerksangabe würde ich die \\ vor dem Laufwerksbuchstaben weglassen.

Die Quelldateien sind vorhanden? Füge mal
Debug.Print "='E:\excel4170\Abt 4170\[Morgenrundenblatt-DL382_KW_" & strKW & ".xlsx]" & WeekdayName(i + 1, 0, 2)
ein und schaue nach.

[Arni49]

Moin zusammen,

das Fenster das sich öffnet fragt nach einem Samstag den es im Morgenrundenblatt nicht gibt.

Montag doppelt hat keinen besonderen Grund, fällt sicherlich unter optimierungsfähig :)

Laufwerksangabe momentan nicht so relevant da später eine Serverzugriff eingesetzt wird.

Gruß Arnold

[Arni49]

Hallo,

Mo-Fr wird nur benötigt.

Gruß Arnold

[Kuwer]

Hallo Arnold,

Montag doppelt hat keinen besonderen Grund, fällt sicherlich unter optimierungsfähig
...
Mo-Fr wird nur benötigt.

ist alles in meinem Code berücksichtigt, den ich mangels Quelldateien mit festem Wert für KW getestet habe.

Gruß Uwe

[schauan]

Hallöchen,

das Fenster das sich öffnet fragt nach einem Samstag den es im Morgenrundenblatt nicht gibt.

einen Samstag gibt es in Uwe's Code auch nicht. Hast Du eventuell schon in Deinem Blatt Formeln die auf einen Samstag verweisen?

[Arni49]

Moin,

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 ??

Gruß Arnold