VBA Belegdaten in Sharepoint Datei kopie
20.12.2021 15:15:49
Chrissi
wie ich hier bereits erklärt habe, https://www.herber.de/forum/messages/1862330.html
habe ich ein Tool erstellt, bei dem Rechnungen lokal erstellt werden. Die Rechnungsdaten werden dann lokal und zusätzlich online auf Sharepoint (in einer Excel Datei) gespeichert.
Dieser Speichervorgang online funktioniert teilweise nicht vollständig. Besonders der Kopiervorgang von lokal nach Sharepoint war öfters fehlerhaft.
Hier ist der Code:
Sub Belegdaten_festschreiben_NB_online()
Application.ScreenUpdating = False
'Belegdaten in "gebuchte Belege" Sicherung Sharepoint übertragen
Workbooks.Open Filename:= _
"https://PFAD/MR%20Ablage.xlsx"
DoEvents
Dim LZeile&
LZeile = Workbooks("MR Ablage.xlsx").Sheets("Tabelle1").Cells(Rows.Count, "b").End(xlUp).Row + 1 'letzte Zeile bestimmen!
DoEvents
Workbooks("MR Ablage.xlsx").Sheets("Tabelle1").Cells(LZeile, 2).Select 'in letzte Zeile springen
Windows("Nummerntool.xlsm").Activate 'zurück ins Tool springen 'Immer auf aktuelle Bezeichnung ändern!
DoEvents
Sheets("Neuer Beleg").Range("B38:BZ38").Copy 'Belegdaten kopieren
Workbooks("MR Ablage.xlsx").Sheets("Tabelle1").Cells(LZeile, 2).PasteSpecial Paste:=xlPasteValues
DoEvents
Application.CutCopyMode = False
Application.DisplayAlerts = False
Workbooks("MR Ablage.xlsx").Save
DoEvents
Workbooks("MR Ablage.xlsx").Close
Application.DisplayAlerts = True
End Sub
Oder gibt es gar noch einen ganz anderen Weg, an den ich nicht gedacht habe?
Vielen Dank im Voraus.
Viele Grüße
Christof