ich möchte, per VBA-Skript einen bestimmten Wert in eine bestimmte Zelle in einer Excel-Datei schreiben lassen, welche sich auf einem Sharepoint befindet.
Grundsätzlich funktioniert das Skript schon. Allerdings nur, wenn die Ziel-Datei lokal auf dem PC liegt.
Das ist mein Code:
Public Sub Uebertrag()
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim obj_wkb_ziel As Workbook
Dim obj_wkb_quelle As Workbook
Dim lng_zeile As Long
Dim rng_finden As Range
Set obj_wkb_ziel = Workbooks("https://sharepoint.xx.xxxx.de/sites/DMS/Arbeitsbereich/ _
Freigegebene%20Dokumente/PM%20und%20Service/Datenanalyse/Masterliste_122019.xlsx?web=1")
Set obj_wks_ziel = obj_wkb_ziel.Worksheets("Masterliste_122019")
Set obj_wkb_quelle = ThisWorkbook
Set obj_wks_quelle = obj_wkb_quelle.Worksheets("Tabelle1")
With obj_wks_ziel
Set rng_finden = .Range("A:A").Find(obj_wks_quelle.Range("B1").Value, lookat:=xlWhole)
lng_zeile = rng_finden.Row
.Cells(lng_zeile, 5) = obj_wks_quelle.Range("B4")
End With
Range("B4").ClearContents
End Sub
Wenn ich das Makro ausführe (ausgelöst durch einen Button), makiert er mir die Zeile gelb, in welcher der Sharepoint-Pfad steht.Kann mir jemand sagen, was ich falsch mache?
Hab ich ggf. falsch deklariert?
Btw: Ich bin VBA Anfänger! Den hier gezeigten Code habe ich nur mit Hilfe dieser Community geschrieben. (Danke nochmal dafür :) )