Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

2 Werte zurückgeben

Betrifft: 2 Werte zurückgeben von: Katja
Geschrieben am: 27.08.2004 10:54:45

Hallo Leute

Ich habe folgendes Problem: In einer Subroutine möchte ich eine Funktion oder eine Sub (ich weiss nicht, wie ich es deklaieren muss, mit der Funktion gehts wohl nicht) aufrufen, welcher ich z.B. die Zahl 4 übergebe. Die aufgerufene Funktion oder Sub soll mir die Werte 3 und 5 an die Subroutine zurückgeben. Wie kann ich das lösen? Geht das überhaupt?

Danke für eure Hilfe!

Grüsse Katja

  


Betrifft: AW: 2 Werte zurückgeben von: Thomas Risi
Geschrieben am: 27.08.2004 11:04:56

Hallo Katja

Die Funktion kann auch ein Array zurück geben ...


      
Option Explicit

Sub f1()
    
    
Dim myArray() As Integer
    
    myArray = f2(4)
    
    MsgBox myArray(0)
    MsgBox myArray(1)
    
End Sub

Function f2(v As IntegerAs Integer()
    
Dim a%(1)
    a(0) = 3
    a(1) = 5
    f2 = a
End Function 


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
Thomas

Risi Thomas Softwareentwicklung




  


Betrifft: AW: 2 Werte zurückgeben von: Katja
Geschrieben am: 27.08.2004 11:09:08

Hallo Thomas

Hei super, danke, auf diese Idee bin ich natürlich nicht gekommen... DANKE!!!

Gruss Katja