VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Variablenübergabe in andere Arbeitsmappen

Gruppe

Allgemein

Bereich

Interaktion

Thema

Variablenübergabe in andere Arbeitsmappen

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

    


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