Attribute VB_Name = "mdl_Update_paths"
Public Function initpaths()
Dim rowcounter As Integer 'Zeilenummer
Dim colcounter As Integer 'Spaltennummer
Dim Lettercount As Integer
Dim path As String 'Quellpfad
Dim fpath As String
Dim iKW As String 'KW als Zeichen
Dim iYear As Integer 'Jahr als Zahl
Dim Field As String 'Feld als Zeichen
Dim FLetter As String 'Feldbuchstabe als Zeichen
Dim FNumber As Integer 'Feldnummer als Zahl
Tabelle25.Select
iKW = Tabelle25.Cells(14, 4) '14 Zeile (Rowindex) und 4 Spalte (Colindex)
iYear = Format(Tabelle25.Cells(14, 8), "YYYY")
path = "='\\MeinServer\MeinPfad\" & iYear & "\[Morgenrundenblatt-DL382_KW_" & iKW & ".xlsx]" 'Pfad für das Morgenblatt Dokument
Counter = 0
rowcounter = 6 'Reihe 6
colcounter = 44 'Spalte AR6
Lettercount = 9 'Buchstabe "J" für J9x
FNumber = 91 '330 'War Ursprünglich in der Morgenrunde vorhanden, Jetzt Montag J9X in Morgenrunde.
Do
FLetter = Chr(Asc("A") + Lettercount) 'ASCII Buchstabe A + 9 = J
Field = FLetter & FNumber 'J91
fpath = path
Tabelle35.Cells(rowcounter, colcounter).Value = fpath 'Zurückgeben oder festlegen ein Variant -Werts, das den Wert des angegebenen Bereichs darstellt
rowcounter = rowcounter + 1 'Schleife Reihe 6+1 = 7
FNumber = FNumber + 1 '91+1 =92
If rowcounter = 20 Then 'Reihe 20 erreicht zurück auf Reihe 6
rowcounter = 6
FNumber = 91
Lettercount = Lettercount + 1
If colcounter = 44 Then
colcounter = colcounter + 2
Else
colcounter = colcounter + 6
End If
End If
Loop While colcounter <= 70
Tabelle35.Cells(rowcounter, colcounter).Value = fpath
'MsgBox Tabelle35.Cells(rowcounter, colcounter).Value & vbNewLine & path & vbNewLine & "KW: " & iKW & " Jahr: " & iYear
End Function