Funktion geht nicht?
24.08.2006 09:31:04
dieter(drummer)
Habe 2 Funktionen, die ich in der PERSONL.XLS hinterlegt habe. Diese habe ich gestern aus dem Forum von EULE erhalten. Diese Funktionen gehen aber nur, wenn ich diese in einem Modul der aktuellen Arbeitsmappe habe. Die Funktionen sollen aber GENERELL zur Verfügung stehen. Was mache ich falsch?
Hier die Funktionen, die ansonsten sehr gut funktionieren:
'Im Modul (von Eule)
Function BuchstabenRaus(rng As Range) 'z.B. =BuchstabenRaus(A1)
Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 48 To 57
BuchstabenRaus = Val(BuchstabenRaus & Mid(rng, intZ, 1))
End Select
Next intZ
End Function
' Im Modul (von Eule)
Function ZahlenRaus(rng As Range) 'z.B. =Zahlenraus(A1)
Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 48 To 57
Case Else
ZahlenRaus = ZahlenRaus & Mid(rng, intZ, 1)
End Select
Next intZ
End Function
Mit Dank für eine Antwort
grüßt
dieter(drummer)
Anzeige