Microsoft Excel

Herbers Excel/VBA-Archiv

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

Rückgabewert aus Funktion

Betrifft: Rückgabewert aus Funktion von: yummi
Geschrieben am: 23.09.2014 10:48:06

Hallo Zusammen,

ich steh gerade auf dem SChlauch. Ich habe mir folgende Funktion geschrieben:

Function myfind(ByVal wks As Worksheet, ByVal strRange As String, ByVal strWert As String) As  _
Range
Dim rng As Range

    Set rng = wks.Range(strRange).Find(strWert)
    myfind = rng
    
End Function

und würde gern die Zelle oder halt den Range in der der Wert gefunden wurde an die aufrufende Stelle zurück geben.
So bekomme ich immer den Fehler, dass der with block nicht festgelegt ist.

Könnt ihr mir bitte eien Tipp geben, was ich falsch mache

Danke
yummi

  

Betrifft: AW: Rückgabewert aus Funktion von: Rudi Maintaire
Geschrieben am: 23.09.2014 10:54:47

Hallo,
Set myFind = rng

Gruß
Rudi


  

Betrifft: AW: Rückgabewert aus Funktion von: yummi
Geschrieben am: 23.09.2014 11:03:34

Hallo Rudi,

das hatte ich auch schon probiert. Mit dem gleichen Ergebnis. Objektvariable oder With block nicht festgelegt. Wenn ich vor der Rückgabe in rng reinschaue, kann ich sehen, dass der gesuchte Wert gefunden wurde. Ich kann ihn nur nicht zurück geben.

Gruß
yummi


  

Betrifft: AW: Rückgabewert aus Funktion von: Rudi Maintaire
Geschrieben am: 23.09.2014 11:11:57

Hallo,

  Function myFind(ByVal wks As Worksheet, ByVal strRange As String, ByVal strWert As String) As  _
Range
  Dim rng As Range
  Set rng = wks.Range(strRange).Find(strWert)
  Set myFind = rng
  End Function


Sub aaa()
  Dim r As Range
  Set r = myFind(Sheets(2), "A:A", "test")
  If Not r Is Nothing Then
    MsgBox r.Address
  Else
    MsgBox "nich da"
  End If
End Sub

funktioniert.

Gruß
Rudi


  

Betrifft: Danke!!! von: yummi
Geschrieben am: 23.09.2014 11:17:57

Hallo Rudi,

der Aufruf war falsch, dort hatte ich kein set spendiert.

Vielen Dank
yummi


 

Beiträge aus den Excel-Beispielen zum Thema "Rückgabewert aus Funktion"