Office: Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion

sowosamma · 27. August 2013

Hallo,

ich habe eine Funktion in VBA geschrieben, in der ich zwei Bereich aus einem Tabellenblatt, nach bestimmten Kriterien durchsuchen will. Nachdem ich nie einen Rückgabewerte bekomme, habe ich begonnen den Code im Debug-Modus zu starten und mir ist aufgefallen, dass meine Variablen keinen Wert annehmen... und ich versteh nicht warum

Die Funktion rufe ich aus einem Arbeitsblatt auf =fctCheckInv(DA130:EX130;LC131:MZ131;EZ9) ... und ja, die markierten Bereiche haben Werte :-)

Code:

Function fctCheckInv(rRang As Range, rInv As Range, lPlatz As Long) As Boolean

Dim r As Range
Dim i As Integer

Dim lRang(49) As Long
Dim dInv(49) As Long

i = 0
Debug.Print rRang.Address
Debug.Print rRang.Rows.Count
Debug.Print rRang.Columns.Count
For Each r In rRang
lRang(i) = r
Debug.Print i, r.Address, r, lRang(i)
i = i + 1
Next r

i = 0
For Each r In rInv
dInv(i) = r
i = i + 1
Next r

For i = 0 To 49
If lRang(i) = lPlatz Then
If dInv(i) > 0 Then
fctCheckInv = True
Else
fctCheckInv = False
End If
Exit Function
End If
Next i
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ausgabe:
Code:

$DA$130:$EX$130
1
50
0 $DA$130 0
1 $DB$130 0
2 $DC$130 0
3 $DD$130 0
4 $DE$130 0
5 $DF$130 0
6 $DG$130 0
7 $DH$130 0
8 $DI$130 0
9 $DJ$130 0
10 $DK$130 0
11 $DL$130 0
12 $DM$130 0
13 $DN$130 0
14 $DO$130 0
15 $DP$130 0
16 $DQ$130 0
17 $DR$130 0
18 $DS$130 0
19 $DT$130 0
20 $DU$130 0
21 $DV$130 0
22 $DW$130 0
23 $DX$130 0
24 $DY$130 0
25 $DZ$130 0
26 $EA$130 0
27 $EB$130 0
28 $EC$130 0
29 $ED$130 0
30 $EE$130 0
31 $EF$130 0
32 $EG$130 0
33 $EH$130 0
34 $EI$130 0
35 $EJ$130 0
36 $EK$130 0
37 $EL$130 0
38 $EM$130 0
39 $EN$130 0
40 $EO$130 0
41 $EP$130 0
42 $EQ$130 0
43 $ER$130 0
44 $ES$130 0
45 $ET$130 0
46 $EU$130 0
47 $EV$130 0
48 $EW$130 0
49 $EX$130 0
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

pefeu · 29. August 2013

Hallo sowosamma,

auf den ersten Blick meine ich, die Trennung der Ranges in der Übergabe an Deine Function, sollten Komma- nicht Semikolon-getrennt erfolgen.

Gruß Peter

Hasso · 29. August 2013

Hallo Andi,

von Andi

und ja, die markierten Bereiche haben Werte
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welche denn?

eine Beispielmappe wäre schon hilfreich und eine etwas genauere Erklärung, was die Funktion eigentlich machen soll. Welchen Wert sollte die Funktion denn zurückgeben?
Nur wenn diese Bedingung wahr ist, gibt es ja überhaupt einen Rückgabewert (und zwar WAHR oder FALSCH): Code:

For i = 0 To 49
If lRang(i) = lPlatz Then
If dInv(i) > 0 Then
fctCheckInv = True
Else
fctCheckInv = False
End If
Exit Function
End If
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe einfach mal ein paar Fantasiezahlen in die betreffenden Bereiche eingesetzt und bekomme als Funktionsergebnis WAHR zurück - wo liegt genau dein Problem?

EarlFred · 29. August 2013

Hallo Andi,

die Funktion arbeitet bei mir grundsätzlich. Sind die Bezüge richtig? Betreffen sie das richtige Blatt / die richtige Mappe?

Ich habe mir erlaubt, den Code ein wenig zu kürzen - er sollte das gleiche tun, wie Deiner:
Code:

Option Explicit

Function fctCheckInv(rRang As Range, rInv As Range, lPlatz As Long) As Boolean

Dim vRet As Variant
vRet = Application.Match(lPlatz, rRang.Value, 0)
If Not IsError(vRet) Then fctCheckInv = (rInv(vRet) > 0)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

sowosamma · 29. August 2013

Hallo,

vielen Dank für Euer Feedback.

Das Problem in meiner Datei war, dass lRang(i) keine Werte angenommen hat. Die Bedingung hinten erfüllt genau meinen Zweck, nur bin ich leider nie bis zu dem Teil gekommen weil die Variable eben keinen Wert angenommen hat.
Nachdem es in Hasso's Beispiel funktioniert hat, habe ich das eine Tabellenblatt aus meiner Datei herausgelöst und den Code aus Hasso's Datei hineinkopiert => Funktioniert nicht!
Danach habe ich begonnen meine Datei etwas zu kürzen, um sie hier hochzuladen und dabei ist mir etwas aufgefallen. Im Bereich DA:EX stehen die Ränge von vorher berechneten Werten. Da die Anzahl der zu analysierenden Werte von 32 auf 50 ansteigt, sind in dieser Zeile mehrere leere Felder. Und genau das verursacht das Problem!
Code:

=WENN(BB132="";"";RANG(BB132;$BB132:$CY132))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich den VBA Code wie folgt ändere, dann funktioniert es wunderbar
Code:

If r = "" Then
lRang(i) = 9999
Else
lRang(i) = r
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nachmals vielen Dank für Eure Hinweise!!!!

Office: Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion

Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion

Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion

Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion

Keine Werte bei Übergabe eines Bereichs innerhalb einer Funktion - Similar Threads - Werte Übergabe Bereichs

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Werte auslesen mit s(w)verweis

Dropdown Auswahl -> anderer Wert Speichern

Werte automatisch übernehmen

Wenn wert dann Schrägstrich

Wenn der Wert größer ist als 10 will ich die Differenz in einer Spalte haben

Letzter Wert in Spalte B übergabe wert A ?!