Namen für Bereich in VBA verwenden
25.01.2006 15:11:07
Erwin
Ich habe in einem Excel-Blatt den Bereich A1 bis BZ1000 mit dem Namen "Verbrauch" belegt. Unter VBA habe ich mir nun eine eigene Funktion gebaut, die auf diesen Bereich zurückgreifen soll. Wie schaffe ich es, dass der Bereich mit dem Namen "Verbrauch" in untenstehender Funktion den Platz der Variable "bereich" einnimmt? Momentan übergebe ich den Bereich immer noch beim Aufruf der Funktion, was etwas umständlich ist.
Function test(nummer, werk, bereich, monat)
Dim C As Range
Dim offsetweite
offsetweite = monat * 2 + 8
For Each C In bereich.Cells
If C = nummer Then
If C.Offset(0, 2) = werk Then
menge = C.Offset(0, offsetweite)
preis_vor = C.Offset(0, offsetweite - 1)
menge_vor = C.Offset(0, offsetweite - 2)
mengeneffekt = preis_vor * (menge - menge_vor)
Exit Function
End If
End If
Next C
End Function
Anzeige