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
Hallo Arnold,
(16.02.2019, 11:55)Arni49 schrieb: [ -> ]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
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
Hallo Arnold,
(17.02.2019, 00:38)Arni49 schrieb: [ -> ]verstehe ich das richtig das dein Code meinen Komplett ersetzt?
Ja. (Habe aber gerade noch Tabelle1 mit Tabelle35 ersetzt)
(17.02.2019, 00:38)Arni49 schrieb: [ -> ]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
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.
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
Hallo,
Mo-Fr wird nur benötigt.
Gruß Arnold
Hallo Arnold,
(17.02.2019, 08:29)Arni49 schrieb: [ -> ]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
Hallöchen,
Zitat: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?
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