Discussion:
Übergabe von Werten an Funktionen in Excel VBA
(zu alt für eine Antwort)
Christian F.
2004-01-21 11:47:36 UTC
Permalink
Ich möchte unten genannten Code öfter verwenden (als Funktion), nur
der Feldbezug gehört geändert

sub Klebebinder()
Application.Worksheets("Klebebinder").Range("B24").FormulaR1C1 = _

"=IF(R[-6]C>0,
INDEX(\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Werte,
MATCH(R[-6]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Such_Auflage),
MATCH(R[-3]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Such_Bogen)),0)"

Call values("B24", "Klebebinder")
end sub


Wie übergeben ich die Feldbeziehungen an die Funktion

sub klebebinder()
call kb("B24",???)
end sub

Function kb(lwert As String, fauflage As String)
Application.Worksheets("Klebebinder").Range(lwert).FormulaR1C1 = _
"=IF(lauflage>0,
INDEX(\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Werte,
MATCH(R[-6]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Such_Auflage),
MATCH(R[-3]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!KB_Leistung_Such_Bogen)),0)"
Call values(lwert, "Klebebinder")

End Function


Hoffentlich kann mir jemand helfen

Ciao

Christian Fimberger
Eichler
2004-01-21 13:08:30 UTC
Permalink
Hallo Christian,
hilft das?

Sub Test()
BereichTest (ActiveSheet.Range("A4"))
End Sub

Function BereichTest(ZielBereich As Range)
ZielBereich.Value = 1
End Function

gruß
peter
Post by Christian F.
Ich möchte unten genannten Code öfter verwenden (als Funktion), nur
der Feldbezug gehört geändert
sub Klebebinder()
Application.Worksheets("Klebebinder").Range("B24").FormulaR1C1 = _
"=IF(R[-6]C>0,
INDEX(\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!K
B_Leistung_Werte,
MATCH(R[-6]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabelle
n.xls!KB_Leistung_Such_Auflage),
MATCH(R[-3]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabelle
n.xls!KB_Leistung_Such_Bogen)),0)"
Post by Christian F.
Call values("B24", "Klebebinder")
end sub
Wie übergeben ich die Feldbeziehungen an die Funktion
sub klebebinder()
call kb("B24",???)
end sub
Function kb(lwert As String, fauflage As String)
Application.Worksheets("Klebebinder").Range(lwert).FormulaR1C1 = _
"=IF(lauflage>0,
INDEX(\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabellen.xls!K
B_Leistung_Werte,
MATCH(R[-6]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabelle
n.xls!KB_Leistung_Such_Auflage),
MATCH(R[-3]C,\\Win2000server\Lotus\Domino\Data\BBO_Excel\KV\Leistungstabelle
n.xls!KB_Leistung_Such_Bogen)),0)"
Post by Christian F.
Call values(lwert, "Klebebinder")
End Function
Hoffentlich kann mir jemand helfen
Ciao
Christian Fimberger
Loading...