Datenblätter Makro in Sharepoint
22.09.2022 13:53:31
Mike
Dieses Laufwerk fällt weg und dies soll nun auf Sharepoint abgewickelt werden.
Leider bin ich nicht wirklich auf Stand wo der Fehler im System ist, da nur eine Fehlermeldung ausgegeben wird aber die Datei nicht gespeichert wird
Sub Blätter_anlegen()
' Blätter_anlegen Makro
Dim Quelldaten As Worksheet
Set Quelldaten = ActiveWorkbook.Worksheets("Quelldaten")
Datum = ActiveWorkbook.Worksheets("Quelldaten").Cells(7, 3)
For a = 11 To 31
If Cells(a, 2) "" Then
Speicherpfad = "https://xyz/:f:/r/teams/EKITeamObst/Freigegebene%20Dokumente/Aufteilungen%20LKW/M%C3%BCller?csf=1&web=1&e=sa4w2t" & ActiveWorkbook.Worksheets("Quelldaten").Cells(8, 3) & "\"
IAN = ActiveWorkbook.Worksheets("Quelldaten").Cells(a, 2)
Artikelbezeichnung = ActiveWorkbook.Worksheets("Quelldaten").Cells(a, 3)
KL_I = ActiveWorkbook.Worksheets("Quelldaten").Cells(a, 4)
KL_II = ActiveWorkbook.Worksheets("Quelldaten").Cells(a, 5)
Sheets(Array("Dispo", "Aufteilungsblatt", "Querformat")).Select
Sheets("Querformat").Activate
Sheets(Array("Dispo", "Aufteilungsblatt", "Querformat")).Copy
ChDir "K:\EKI_-_OG\02_Allgemein\Einkäufer\__Planung_Obst\Aufteilung LKW\Woll\"
ActiveWorkbook.SaveAs Filename:= _
Speicherpfad & Datum & " " & IAN & " " & Artikelbezeichnung & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Worksheets("Dispo").Cells(1, 1) = IAN & " " & Artikelbezeichnung
ActiveWorkbook.Worksheets("Dispo").Cells(2, 4) = KL_I
ActiveWorkbook.Worksheets("Querformat").Cells(1, 1) = IAN & " " & Artikelbezeichnung
ActiveWorkbook.Worksheets("Aufteilungsblatt").Cells(1, 1) = IAN & " " & Artikelbezeichnung
ActiveWorkbook.Worksheets("Aufteilungsblatt").Cells(1, 23) = Datum
ActiveWorkbook.Worksheets("Aufteilungsblatt").Cells(6, 23) = KL_I
ActiveWorkbook.Worksheets("Aufteilungsblatt").Cells(6, 24) = KL_II
ActiveWorkbook.Worksheets("Aufteilungsblatt").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Quelldaten.Activate
Else
Exit For
End If
Next a
End Sub