Thema: Variablenübergabe in andere Arbeitsmappen

StandardModule: basMain

Sub CallFunction()
   Dim wkb As Workbook
   Dim iStart As Integer, iEnd As Integer
   On Error Resume Next
   Set wkb = Workbooks("Test.xls")
   If Err > 0 Or wkb Is Nothing Then
      Beep
      MsgBox _
         prompt:="Die Testdatei wurde nicht gefunden!"
      Exit Sub
   End If
   On Error GoTo 0
   iStart = 5
   iEnd = Run("Test1.xls!Plus5", iStart)
   MsgBox prompt:="Startwert: " & iStart & _
      vbLf & "Endwert: " & iEnd
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Interaktion