AW: Public Const und Function
29.01.2009 16:45:01
Erich
Hallo Born,
das Ganze hat eigentlich nur dann einen Sinn, wenn "italien" sich NICHT ändert,
wohl aber der zugehörige Wert in Laender!C1:C30
Wie wäre es damit?
Option Explicit
Public Const Land As String = "italien"
Public Function WName() As String
WName = Application.VLookup(Land, _
ThisWorkbook.Sheets("Laender").Range("B1:C30"), 2, 0)
End Function
Sub tst()
MsgBox Land
MsgBox WName ' oder WName()
End Sub
Wenn der Wert von WName kein String, sondern z. B. eine Zahl wäre,
ersetzt du das untere "String" einfach etwa durch Long oder Double.
Wenn VLookup den Suchbegriff nicht findet gibts dann einen Fehler.
Die Funktion wird ohne Fehler verlassen, wenn sie "As Variant" oder ohne Typ deklariert ist.
An den Aufrufer der Fkt. wird dann ein Fehlerwert zurückgegeben.
Wenn du das so machst, brauchst du vielleicht die Konstante "Land" gar nicht mehr als Public.
Wenn du sie nur hier brauchst, reicht die Deklaration mit
Const Land As String = "italien"
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort