CODE für Verwendung als AddIn umschreiben
10.04.2004 15:52:10
Lorenz
Folgendes Problem!
In Spalte A3:A80 stehen Zahlen (DienstNummern)
Jeweils in Spalte B3:B80, C3:C80, ...... stehen Werte die in der jeweiligen gleichnamigen Funktion wie lt.
Beispiele:
Public
Function VORNAME(r)
Select Case r.Value
Case Is = Range("a3").Value: VORNAME = Range("b3").Value
Case Is = Range("a4").Value: VORNAME = Range("b4").Value
Case Is = Range("a5").Value: VORNAME = Range("b5").Value
Case Is = Range("a6").Value: VORNAME = Range("b6").Value
End Select
End Function
Public
Function NAME(r)
Select Case r.Value
Case Is = Range("a3").Value: NAME = Range("c3").Value
Case Is = Range("a4").Value: NAME = Range("c4").Value
Case Is = Range("a5").Value: NAME = Range("c5").Value
Case Is = Range("a6").Value: NAME = Range("c6").Value
End Select
End Function
Soweit funkts ja (natürlich nur im selben Worksheet)
Ich brauche aber die Funktionen als *.xla wo von allen Sheets aus zugegriffen werden kann.
Danke im voraus!
Grüße Lorenz