Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Variablenübergabe in andere Arbeitsmappen

Gruppe

Interaktion

Problem

Wie kann ich eine Funktion in einer anderen Arbeitsmappe mit Parameter aufrufen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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