Hallo Zusammen,

ich benutze relativ oft eine Exceldatei, welche auf unserem Server abgelegt ist.

Diese Exceldatei würde ich gerne aus über ein VBA Makro aus Outlook(2010) heruas öffnen, bearbeiten und dann wieder abspeichern.

Folgender Code funktioniert irgendwie nicht ..

Public Sub Angebotsvergleich()
  Dim File$
  Dim Xl As Object ' Excel.Application
  Dim Wb As Object ' Excel.Workbook
  Dim Ws As Object ' Excel.Worksheet
  Dim Rn As Object ' Excel.Range

  File = "G:\..."

  On Error Resume Next
  Set Xl = GetObject(, "excel.application")
  On Error GoTo 0
  If Xl Is Nothing Then Set Xl = New Excel.Application
  Set Wb = Xl.Workbooks.Open(File)
  Set Ws = Wb.Sheets(1)
  Ws.Activate
  Set Rn = Ws.Range("a1")
  Rn.Activate
  Xl.Visible = True
End Sub