Moin,

ich öffne eine Datei auf einem Sharepoint. Werte auslesen funktioniert.
Die Änderung in:
ActiveWorkbook.ActiveSheet.Cells(800, 1) = "PA-0225"
wird jedoch nicht gespeichert?
Die Änderung möchte ich in der gleichen Tabelle (Excel-Datei) speichern.
Was bitte mache ich falsch?

Danke.

Gruß
Michael



Sub Lesen()
Dim URL As String
Dim X As Integer
Dim Eingereichte As Variant
Dim Teilenummer As String

URL = "https://eb.sharepoint.com/teams/EM-PlantNKQuality/Lab Metrology/Messaufträge 2025.xlsx"
Workbooks.Open Filename:=URL
ActiveWorkbook.Sheets(2).Activate

For X = 1 To 200
'Eingereichte = ActiveWorkbook.ActiveSheet.Cells(X, 1).Value
'Teilenummer = ActiveWorkbook.ActiveSheet.Cells(X, 2).Value
'Debug.Print "HHHH: " & Eingereichte
'If ActiveWorkbook.ActiveSheet.Cells(x, 1).Value > 0 Then
Debug.Print ActiveWorkbook.ActiveSheet.Cells(X, 3).Value
'End If
Next X

ActiveWorkbook.ActiveSheet.Cells(800, 1) = "PA-0225"
ActiveWorkbook.Save

Workbooks.Close

End Sub